tests/testthat/test-is_duplicated.R

In forestgeo/fgeo.utils: Import and Manipulate 'ForestGEO' Data

context("is_duplicated")

test_that("returns true if any value of a variable is duplicated", {
  expect_true(is_duplicated(c(1, 1)))
  expect_false(is_duplicated(c(1, NA)))
  expect_false(is_duplicated(c(1, 2)))
})



context("is_multiple")

test_that("detects multiple different values of a variable", {
  expect_true(is_multiple(c(1, 2)))
  expect_false(is_multiple(c(1, NA)))
  expect_false(is_multiple(c(1, 1)))
})