From ca143b42f96d0c8a55b00e3c45e929b0d4f23053 Mon Sep 17 00:00:00 2001
From: Kyle Husmann <kyle.husmann@gmail.com>
Date: Wed, 17 Jul 2024 15:49:54 -0700
Subject: [PATCH] add test for collector-level na args

---
 tests/testthat/test-col-na.R | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tests/testthat/test-col-na.R

diff --git a/tests/testthat/test-col-na.R b/tests/testthat/test-col-na.R
new file mode 100644
index 00000000..83c0814d
--- /dev/null
+++ 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"),
+    )
+  )
+})