add test

r-lib · Apr 17, 2024 · 0a8acdc · 0a8acdc
1 parent 4e84ced
commit 0a8acdc
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/tests/testthat/test-standalone-vctrs.R b/tests/testthat/test-standalone-vctrs.R
@@ -452,3 +452,16 @@ test_that("ptype is finalised", {
   out <- vec_cast_common(list(out, x))[[1]]
   expect_identical(out$x, NA)
 })
+
+test_that("vec_recycle_common() throws appropriate errors", {
+
+  expect_error(
+    vec_recycle_common(list(a = 1:2), size = 1),
+    "Inputs can't be recycled to `size`."
+  )
+  expect_error(
+    vec_recycle_common(list(a = 1:2, b = 1:3)),
+    "Inputs can't be recycled to a common size."
+  )
+
+})