tests/testthat/test-classes.R

In trace: Tandem Repeat Analysis by Capillary Electrophoresis

# init --------------------------------------------------------------------

testthat::test_that("fragments class initialization", {
  test_fragments <- fragments$new(
    unique_id = "test"
  )

  testthat::expect_equal(
    class(test_fragments)[1], "fragments"
  )
})