tests/testthat/test-fnc_check_fmt_Vdata.R

testthat::test_that(
  desc = "check_fmt_Vdata works",
  code = {
    inp <- system.file(package = "eCerto", "extdata", "eCerto_Testdata_VModule.xlsx")
    testthat::expect_equal(eCerto:::check_fmt_Vdata(file = inp), "Agilent")
  }
)

Try the eCerto package in your browser

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

eCerto documentation built on April 12, 2025, 9:13 a.m.