trunk/Examples/test-suite/r/unittest.R

unittest <- function (x,y) {
if (x==y) print("PASS") 
else print("FAIL") 
}

unittesttol <- function(x,y,z) {
if (abs(x-y) < z) print("PASS")
else print("FAIL")
}