1918e2a844
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12431 626c5289-ae23-0410-ae9c-e8d60b6d4f22
17 lines
255 B
R
17 lines
255 B
R
unittest <- function (x,y) {
|
|
if (x==y) {
|
|
print("PASS")
|
|
} else {
|
|
print("FAIL")
|
|
stop("Test failed")
|
|
}
|
|
}
|
|
|
|
unittesttol <- function(x,y,z) {
|
|
if (abs(x-y) < z) {
|
|
print("PASS")
|
|
} else {
|
|
print("FAIL")
|
|
stop("Test failed")
|
|
}
|
|
}
|