tests/testthat/test.vectorize.R

In optim.functions: Standard Benchmark Optimization Functions

library(optim.functions)
context("vectorization argument passing")

# test_that("The vectorize function correctly passes additional arguments", {
#   test.func <- function(x, a) a+x
#   expect_equal(opt.vect(test.func, a=3)(1:5), 1:5 + 3)
#   expect_equal(opt.vect(test.func, a=3)(1), 4)
# })