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)))
})
HughParsonage/heims documentation built on May 7, 2019, 5:02 a.m.