fix test return

Author: yannrichet

src/test/cases.ECEGO/branin.R

@@ -24,13 +24,13 @@ argmin.f = c(0.5427730, 0.15)
 min.f = 0.3978874
 
 library(testthat)
-test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin.f,nrow=1))[1,1],min.f,tolerance = .0001)})
-test_that("f_constr(armgin.f) == 0",{expect_equal(f(matrix(argmin.f,nrow=1))[1,2],0,tolerance = .0001)})
+if (!isTRUE(test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin.f,nrow=1))[1,1],min.f,tolerance = .0001)}))) quit(status=1)
+if (!isTRUE(test_that("f_constr(armgin.f) == 0",{expect_equal(f(matrix(argmin.f,nrow=1))[1,2],0,tolerance = .0001)}))) quit(status=1)
 
 test = function(algorithm_file) {
     results = run.algorithm(algorithm_file, options = list(nugget='0.1', nugget_constr='0.1'),fun=list(input=input.f,output=output.f))
-    test_that("branin constr min",{expect_equal(as.numeric(results$min),min.f,tolerance = .1)})
+    if (!isTRUE(test_that("branin constr min",{expect_equal(as.numeric(results$min),min.f,tolerance = .1)}))) quit(status=1)
     if (!is.numeric(results$argmin)) results$argmin=jsonlite::fromJSON(results$argmin)
-    test_that("branin constr argmin",{expect_equal(sum((results$argmin-argmin.f)^2),0,tolerance = .01)})
+    if (!isTRUE(test_that("branin constr argmin",{expect_equal(sum((results$argmin-argmin.f)^2),0,tolerance = .01)}))) quit(status=1)
 }
 

src/test/cases.EGO/branin.R

@@ -21,10 +21,10 @@ argmin3.f = c(0.5427730, 0.15)
 min.f = 0.3978874
 
 library(testthat)
-test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin1.f,nrow=1))[1,1],min.f,tolerance = .0001)})
+if (!isTRUE(test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin1.f,nrow=1))[1,1],min.f,tolerance = .0001)}))) quit(status=1)
 
 test = function(algorithm_file) {
     results = run.algorithm(algorithm_file, options=NULL,fun=list(input=input.f,output=output.f))
-    test_that("branin min",{expect_equal(as.numeric(results$min),min.f,tolerance = .1)})
+    if (!isTRUE(test_that("branin min",{expect_equal(as.numeric(results$min),min.f,tolerance = .1)}))) quit(status=1)
 }