jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Corrected the testing in unittest so that all elements of

Browse source 
a vector result are checked. Previously it was just the first
element.
This commit is contained in:
Richard Beare 2016-03-15 12:14:20 +11:00
commit 5c2cd32795
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Examples/test-suite/r/unittest.R
View file

@ -1,5 +1,5 @@
unittest <- function (x,y) { unittest <- function (x,y) {
if (x==y) { if (all(x==y)) {
print("PASS") print("PASS")
} else { } else {
print("FAIL") print("FAIL")
@ -8,7 +8,7 @@ unittest <- function (x,y) {
} }
unittesttol <- function(x,y,z) { unittesttol <- function(x,y,z) {
if (abs(x-y) < z) { if (all(abs(x-y) < z)) {
print("PASS") print("PASS")
} else { } else {
print("FAIL") print("FAIL")