Committing the S4 version of the OpenMx design. Implementation of matrices and basic...
[openmx:openmx.git] / R / MxUnitTesting.R
1 checkEquals <- function(a, b) {
2         if (a != b) {
3                 stop(paste("Error:", a, "and", b, "are not equal"))
4         }       
5 }
6
7 checkTrue <- function(a) {      
8         if(!a) {
9                 stop(paste("Error", match.call()$a, "is not true"))
10         }
11 }