Correct snapshot by hidding path

Author: cderv

R/utils.R

@@ -42,3 +42,13 @@ in_positron <- function() {
 in_rstudio <- function() {
   identical(Sys.getenv("RSTUDIO"), "1")
 }
+
+
+# for test
+
+hide_path <- function(path) {
+  function(x) {
+    x <- gsub(path, "<project directory>", x, fixed = TRUE)
+    gsub(fs::path_norm(path), "<project directory>", x, fixed = TRUE)
+  }
+}

tests/testthat/_snaps/blog.md

@@ -1,25 +1,16 @@
-# Create a blog post
-
-    Code
-      new_blog_post("Intro to Felt Surrogacy", data = "1999-12-31", open = FALSE)
-    Condition
-      Error in `new_blog_post()`:
-      ! There is already a 'intro-to-felt-surrogacy' directory in 'posts/'
-
 # Error if not a quarto project
 
     Code
       new_blog_post("Intro to Felt Surrogacy", open = FALSE)
     Condition
       Error in `new_blog_post()`:
-      ! You need to be at root of a Quarto project to create a blog post in the 'posts/' directory at 'C:/Users/chris/AppData/Local/Temp/RtmpU72EnV/test-blog-project-415061be69e8'.
+      ! You need to be at root of a Quarto project to create a blog post in the 'posts/' directory at '<project directory>'.
 
 ---
 
     Code
-      new_blog_post("Intro to Felt Surrogacy", wd = withr::local_tempdir(pattern = "test-blog-project-2-"),
-      open = FALSE)
+      new_blog_post("Intro to Felt Surrogacy", wd = tmp_dir, open = FALSE)
     Condition
       Error in `new_blog_post()`:
-      ! You need to be at root of a Quarto project to create a blog post in the 'posts/' directory at 'C:/Users/chris/AppData/Local/Temp/RtmpU72EnV/test-blog-project-2-4150447c3b64'.
+      ! You need to be at root of a Quarto project to create a blog post in the 'posts/' directory at '<project directory>'.
 

tests/testthat/test-blog.R

@@ -35,8 +35,8 @@ test_that("Create a blog post", {
   # ------------------------------------------------------------------------------
 
   expect_snapshot(
-    new_blog_post("Intro to Felt Surrogacy", data = "1999-12-31", open = FALSE),
-    error = TRUE
+    error = TRUE,
+    new_blog_post("Intro to Felt Surrogacy", data = "1999-12-31", open = FALSE)
   )
 
   # ------------------------------------------------------------------------------
@@ -67,16 +67,19 @@ test_that("Error if not a quarto project", {
   withr::local_dir(dir_path)
 
   expect_snapshot(
+    error = TRUE,
+    transform = hide_path(dir_path),
     new_blog_post("Intro to Felt Surrogacy", open = FALSE),
-    error = TRUE
   )
 
+  tmp_dir <- withr::local_tempdir(pattern = "test-blog-project-2-")
   expect_snapshot(
+    error = TRUE,
+    transform = hide_path(tmp_dir),
     new_blog_post(
       "Intro to Felt Surrogacy",
-      wd = withr::local_tempdir(pattern = "test-blog-project-2-"),
+      wd = tmp_dir,
       open = FALSE
     ),
-    error = TRUE
   )
 })