inst/tinytest/test_pairlist.R

if(is.null(Sys.getenv('CMD_ARG_ALL_TEST')))
  exit_file("Set CMD_ARG_ALL_TEST environment variable to run these tests in this file.")


# Test pairlist.h

Rcpp::sourceCpp("cpp/pairlist.cpp")

expect_equal(test_pairlist(list(1, 30), rep), do.call(rep, list(1, 30)))

expect_identical(test_pairlist(list(formula = mpg ~ hp, data = mtcars), lm),
                 do.call(lm, list(formula = mpg ~ hp, data = mtcars)))
Bijaelo/cmdline.arguments documentation built on June 12, 2021, 1:42 p.m.