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

})
paulhibbing/AGread documentation built on Sept. 17, 2022, 2:37 a.m.