add test

r-lib · Oct 7, 2024 · e1d0e49 · e1d0e49
1 parent aad1da2
commit e1d0e49
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/tests/testthat/test-label-lut.R b/tests/testthat/test-label-lut.R
@@ -0,0 +1,11 @@
+test_that("label_lut gives correct answers", {
+
+  short <- c("A", "B", "C")
+  lut <- c("A" = "Apple", "C" = "Cherry", "D" = "Date")
+
+  expect_equal(label_lut(lut)(short), c("Apple", "B", "Cherry"))
+  expect_equal(
+    label_lut(lut, nomatch = "Banana")(short),
+    c("Apple", "Banana", "Cherry")
+  )
+})