Create test-glob.R (#167)

jmbarbone · Aug 12, 2023 · 95cabc5 · 95cabc5
1 parent 370aa6e
commit 95cabc5
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-glob.R b/tests/testthat/test-glob.R
@@ -0,0 +1,14 @@
+test_that("glob() works", {
+  x <- c("apple", "banana", "peach", "pear", "orange")
+  obj <- glob(x, "*e")
+  exp <- c("apple", "orange")
+  expect_identical(obj, exp)
+
+  obj <- glob(x, "pea*", value = FALSE)
+  exp <- c(3L, 4L)
+  expect_identical(obj, exp)
+
+  obj <- glob(x, "*an*", value = NA)
+  exp <- c(FALSE, TRUE, FALSE, FALSE, TRUE)
+  expect_identical(obj, exp)
+})