tests/testthat/test-gt3x_parsers.R

test_that("gt3x parsers yield convergent output", {

  ## Read gt3x file
  file <- system.file(
    "extdata", "example.gt3x", package = "AGread"
  )

  testthat::expect_true(legacy_dev_compare(file))

})

Try the AGread package in your browser

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

AGread documentation built on Sept. 13, 2022, 5:06 p.m.