tests/testthat/test-movebank_constants.R

In move2: Processing and Analysing Animal Trajectories

test_that("check for duplicated constants", {
  expect_true(all(names(mb_column_units) %in% names(movebank_column_types)))
  expect_true(all(names(mb_column_units_underscore) %in% names(mb_column_types_underscore)))
  expect_equal(anyDuplicated(names(movebank_column_types)), 0L)
  expect_equal(anyDuplicated(names(mb_column_units)),0L)
})