Add assertion

reside-ic · Aug 30, 2024 · d4f10cf · d4f10cf
1 parent 1d48f71
commit d4f10cf
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/R/standalone-utils-assert.R b/R/standalone-utils-assert.R
@@ -141,6 +141,16 @@ assert_is <- function(x, what, name = deparse(substitute(x)), arg = name,
 }
 
 
+assert_list <- function(x, name = deparse(substitute(x)), arg = name,
+                        call = parent.frame()) {
+  if (!is.list(x)) {
+    cli::cli_abort("Expected '{name}' to be a list",
+                   arg = arg, call = call)
+  }
+  invisible(x)
+}
+
+
 assert_named <- function(x, unique = FALSE, name = deparse(substitute(x)),
                          arg = name, call = parent.frame()) {
   nms <- names(x)

diff --git a/tests/testthat/test-util-assert.R b/tests/testthat/test-util-assert.R
@@ -103,3 +103,11 @@ test_that("assert_scalar_logical", {
   expect_no_error(assert_scalar_logical(TRUE))
   expect_error(assert_scalar_logical(1), "to be logical")
 })
+
+
+test_that("assert_list", {
+  expect_silent(assert_list(list()))
+  expect_silent(assert_list(list(a = 1)))
+  x <- c(a = 1)
+  expect_error(assert_list(x), "Expected 'x' to be a list")
+})