expect_snapshot() over expect_error()

Author: MichaelChirico

tests/testthat/_snaps/expect-shape.md

@@ -0,0 +1,24 @@
+# at least one argument is required
+
+    Code
+      expect_shape(1:10)
+    Condition
+      Error in `expect_shape()`:
+      ! Exactly one of `length`, `nrow`, `ncol`, or `dim` must be provided.
+
+---
+
+    Code
+      expect_shape(1:10, 2)
+    Condition
+      Error in `expect_shape()`:
+      ! Exactly one of `length`, `nrow`, `ncol`, or `dim` must be provided.
+
+---
+
+    Code
+      expect_shape(1:10, nrow = 1L, ncol = 2L)
+    Condition
+      Error in `expect_shape()`:
+      ! Exactly one of `length`, `nrow`, `ncol`, or `dim` must be provided.
+

tests/testthat/test-expect-shape.R

@@ -37,7 +37,7 @@ test_that("returns input", {
 
 test_that("at least one argument is required", {
   err_msg <- "Exactly one of `length`, `nrow`, `ncol`, or `dim` must be provided."
-  expect_error(expect_shape(1:10), err_msg, fixed = TRUE) # no args
-  expect_error(expect_shape(1:10, 2), err_msg, fixed = TRUE) # no named args
-  expect_error(expect_shape(1:10, nrow = 1L, ncol = 2L), err_msg, fixed = TRUE) # multiple named args
+  expect_snapshot(expect_shape(1:10), error = TRUE) # no args
+  expect_snapshot(expect_shape(1:10, 2), error = TRUE) # no named args
+  expect_snapshot(expect_shape(1:10, nrow = 1L, ncol = 2L), error = TRUE) # multiple named args
 })