tests/testthat/test_formats.R

context("Formats")

test_that("valid formats are valid and invalid ones are not", {
  expect_true(check_format("text/csv"))
  expect_error(check_format("badformat"))
})

test_that("a format can be returned", {
  fmt <- format_eml("2.2")
  expect_is(fmt, "character")
  expect_gt(length(fmt), 0)
})
NCEAS/arcticdatautils documentation built on July 13, 2024, 11:02 a.m.