add tests

tests/testthat/_snaps/coerce.md

@@ -31,6 +31,22 @@
       sparsevctrs: Sparse vector materialized
       sparsevctrs: Sparse vector materialized
 
+# coerce_to_sparse_matrix() can pass through error call
+
+    Code
+      tmp_fun(1)
+    Condition
+      Error in `tmp_fun()`:
+      ! `x` must be a <data.frame>, not a number.
+
+---
+
+    Code
+      tmp_fun(1)
+    Condition
+      Error in `tmp_fun()`:
+      ! `x` must be a <sparseMatrix>, not a number.
+
 # coerce_to_sparse_data_frame() errors with no column names
 
     Code
@@ -55,6 +71,14 @@
       Error in `coerce_to_sparse_data_frame()`:
       ! `x` must be a <sparseMatrix>, not an integer vector.
 
+# coerce_to_sparse_data_frame() can pass through error call
+
+    Code
+      tmp_fun(1)
+    Condition
+      Error in `tmp_fun()`:
+      ! `x` must be a <sparseMatrix>, not a number.
+
 # coerce_to_sparse_tibble() errors with no column names
 
     Code

tests/testthat/test-coerce.R

@@ -79,6 +79,17 @@ test_that("coerce_to_sparse_matrix() materializes non-zero defaulted columns", {
   expect_identical(res, exp)
 })
 
+test_that("coerce_to_sparse_matrix() can pass through error call", {
+  tmp_fun <- function(x) {
+    coerce_to_sparse_matrix(x, call = rlang::caller_env(0))
+  }
+
+  expect_snapshot(
+    error = TRUE,
+    tmp_fun(1)
+  )
+})
+
 ### coerce_to_sparse_data_frame ------------------------------------------------
 
 test_that("coerce_to_sparse_data_frame() works", {
@@ -140,6 +151,17 @@ test_that("coerce_to_sparse_data_frame() errors with wrong input", {
   )
 })
 
+test_that("coerce_to_sparse_data_frame() can pass through error call", {
+  tmp_fun <- function(x) {
+    coerce_to_sparse_data_frame(x, call = rlang::caller_env(0))
+  }
+
+  expect_snapshot(
+    error = TRUE,
+    tmp_fun(1)
+  )
+})
+
 ### coerce_to_sparse_tibble ----------------------------------------------------
 
 test_that("coerce_to_sparse_tibble() works", {
@@ -204,6 +226,19 @@ test_that("coerce_to_sparse_tibble() errors with wrong input", {
   )
 })
 
+test_that("coerce_to_sparse_matrix() can pass through error call", {
+  tmp_fun <- function(x) {
+    coerce_to_sparse_tibble(x, call = rlang::caller_env(0))
+  }
+
+  expect_snapshot(
+    error = TRUE,
+    tmp_fun(1)
+  )
+})
+
+### .sparse_matrix_to_list -----------------------------------------------------
+
 test_that(".sparse_matrix_to_list() handles fully sparse columns (#69)", {
   skip_if_not_installed("Matrix")
 
@@ -220,4 +255,4 @@ test_that(".sparse_matrix_to_list() handles fully sparse columns (#69)", {
     coerce_to_sparse_data_frame(x_mat_sparse),
     x_df
   )
-})
+})