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))
})

Try the soobench package in your browser

Any scripts or data that you put into this service are public.

soobench documentation built on Feb. 9, 2020, 5:08 p.m.