add snapshot test

r-lib · Apr 3, 2024 · 4974a45 · 4974a45
1 parent 9e3f13d
commit 4974a45
Show file tree

Hide file tree

Showing 2 changed files with 45 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/public_api-1.md b/tests/testthat/_snaps/public_api-1.md
@@ -45,3 +45,38 @@
       ----------------------------------------
       Please review the changes carefully!
 
+# messages have the correct width
+
+    Code
+      styled <- style_pkg(testthat_file("public-api", "xyzpackage"))
+    Output
+      Styling  3  files:
+       R/hello-world.R                  v 
+       tests/testthat.R                 v 
+       tests/testthat/test-package-xyz.R v 
+      ----------------------------------------
+      Status	Count	Legend 
+      v 	3	File unchanged.
+      i 	0	File changed.
+      x 	0	Styling threw an error.
+      ----------------------------------------
+
+---
+
+    Code
+      styled <- style_pkg(
+        testthat_file(
+          "public-api",
+          "xyzpackage"))
+    Output
+      Styling  3  files:
+       R/hello-world.R         v 
+       tests/testthat.R        v 
+       tests/testthat/test-package-xyz.R v 
+      ----------------------------------------
+      Status	Count	Legend 
+      v 	3	File unchanged.
+      i 	0	File changed.
+      x 	0	Styling threw an error.
+      ----------------------------------------
+
diff --git a/tests/testthat/test-public_api-1.R b/tests/testthat/test-public_api-1.R
@@ -131,6 +131,16 @@ test_that("messages (via cat()) of style_file are correct", {
   }
 })
 
+test_that("messages have the correct width", {
+  expect_snapshot(
+    styled <- style_pkg(testthat_file("public-api", "xyzpackage"))
+  )
+  withr::local_options(width = 24)
+  expect_snapshot({
+    styled <- style_pkg(testthat_file("public-api", "xyzpackage"))
+  })
+})
+
 test_that("Messages can be suppressed", {
   withr::with_options(
     list(styler.quiet = TRUE),