tests/testthat/test-art_api.R

In amregtest: Runs Allelematch Regression Tests

test_that("We are running the 3rd edition of testthat", code = {
  # If this tests fails, then call
  #   usethis::use_testthat(3)
  # to configure DESCRIPTION to use 3rd edition of 'testthat'.
  testthat::expect_gte(!!testthat::edition_get(), 3)
})

test_that("art_api functions working", {

  sink(nullfile())

  # These tests should give 100% test coverage for our API calls:
  expect_no_error(artVersion())
  expect_output(artList(), "Reproduction of the examples in 'allelematchSuppDoc.pdf':")
  expect_no_error(artRun("^$")) # Special filter to avoid starting tests recursively

  sink()
})