#25 add test

jmbarbone · May 15, 2023 · f1219d7 · f1219d7
1 parent 67d8336
commit f1219d7
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-list.R b/tests/testthat/test-list.R
@@ -8,3 +8,13 @@ test_that("list0", {
   expect_error(list0(1, `__not_a_variable__`))
   expect_error(list0(1, `__not_a_variable__`, ))
 })
+
+test_that("handles names [#25]", {
+  obj <- list0(a = 1, 2, c = 3)
+  exp <- list(a = 1, 2, c = 3)
+  expect_identical(obj, exp)
+
+  obj <- list0(a = 1, 2, c = 3, )
+  exp <- list(a = 1, 2, c = 3)
+  expect_identical(obj, exp)
+})