testthat for as_api_object

jonthegeek · Apr 19, 2024 · 197d3aa · 197d3aa
1 parent bda5e25
commit 197d3aa
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-as.R b/tests/testthat/test-as.R
@@ -0,0 +1,10 @@
+test_that("as_api_object() checks argument `x` ", {
+  expect_error(as_api_object())
+  expect_error(as_api_object(NULL))
+  expect_error(as_api_object(list()))
+
+  L <- list(a = "one") # named list
+  M <- c(a = "one") # named character vector
+  expect_error(as_api_object(L))
+  expect_error(as_api_object(M))
+})