tests/testthat/test_function_id.R

context("function_id")

test_that("Wrapping works.", {
  fn <- generate_sphere_function(10)
  wfn <- counting_function(fn)
  expect_equal(function_id(wfn),function_id(fn))
})
olafmersmann/soobench documentation built on May 24, 2019, 12:51 p.m.