tests/testthat/test_dictionary_format.R

context("Dictionary format")

test_that("No repeated long_names", {
  dict_names <- browse_elements(".")
  expect_false(any(duplicated(dict_names$long_name)))
  expect_false(any(duplicated(dict_names$orig_name)))
})

Try the heims package in your browser

Any scripts or data that you put into this service are public.

heims documentation built on May 2, 2019, 9:20 a.m.