Add test case for tidyverse#2203

Combine should work with NA and characters
zeehio · Oct 27, 2016 · 196deff · 196deff
1 parent b205d1f
commit 196deff
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-combine.R b/tests/testthat/test-combine.R
@@ -16,3 +16,8 @@ test_that("combine works with input that used to fail (#1780)", {
   no <- list(alpha = letters[1:3], omega = letters[24:26])
   expect_equal(combine(no), unlist(no, use.names = FALSE))
 })
+
+test_that("combine works with NA and characters (#2203)", {
+  works <- combine(list("a", "b", "c", NA, "e"))
+  expect_equal(works, c("a", "b", "c", NA, "e"))
+})