tests/testthat/test-tags.R

In epiverse-trace/linelist: Tagging and Validating Epidemiological Data

test_that("tests for tags", {

  # Check error messages
  x <- make_linelist(cars, age = "speed")

  # Check functionality
  expect_identical(tags(x), list(age = "speed"))
  expect_identical(tags(x, TRUE), attr(x, "tags"))
  expect_identical(tags(make_linelist(cars), TRUE), tags_defaults())
})