tests/testthat/test-util-fns_equal.R

test_that("fns_equal works", {
  expect_true(fns_equal(read.csv, read.csv))
  expect_false(fns_equal(read.csv, write.csv))

  # Error on non-function
  expect_error(fns_equal(read.csv, 3))
})

Try the filecacher package in your browser

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

filecacher documentation built on May 29, 2024, 7:35 a.m.