non-vec test fun

Author: yannrichet

src/test/cases/branin.R

@@ -21,7 +21,7 @@ argmin3.f = c(0.5427730, 0.15)
 min.f = 0.3978874
 
 library(testthat)
-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)
+if (!isTRUE(test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin1.f,nrow=1))[1],min.f,tolerance = .0001)}))) quit(status=1)
 
 test = function(algorithm_file) {
     results = run.algorithm(algorithm_file, options=list(yminimization='true',x0='0.5',ytol='0.01'),fun=list(input=input.f,output=output.f,fun=f))

src/test/cases/branin_-510_015.R

@@ -21,7 +21,7 @@ argmin3.f = c(0.5427730*15-5, 0.15*15)
 min.f = 0.3978874
 
 library(testthat)
-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)
+if (!isTRUE(test_that("f(armgin.f) == f.min",{expect_equal(f(matrix(argmin1.f,nrow=1))[1],min.f,tolerance = .0001)}))) quit(status=1)
 
 test = function(algorithm_file) {
     results = run.algorithm(algorithm_file, options=list(yminimization='true',x0='0.5',ytol='0.01'),fun=list(input=input.f,output=output.f,fun=f))