add test for collector-level na args

tidyverse · Jul 17, 2024 · ca143b4 · ca143b4
1 parent 4c0a3f1
commit ca143b4
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/tests/testthat/test-col-na.R b/tests/testthat/test-col-na.R
@@ -0,0 +1,16 @@
+test_that("collector-level na overrides global na", {
+  test_vroom(
+    "a,b,c\na,foo,REFUSED\nb,REFUSED,NA\nOMITTED,bar,OMITTED\n",
+    col_types = cols(
+      a = col_character(na = "OMITTED"),
+      b = col_character(na = "REFUSED"),
+      c = col_character()
+    ),
+    na = "NA",
+    equals = tibble::tibble(
+      a = c("a", "b", NA),
+      b = c("foo", NA, "bar"),
+      c = c("REFUSED", NA, "OMITTED"),
+    )
+  )
+})