fix tests

Author: cderv

R/blog.R

@@ -59,7 +59,7 @@ make_post_dir <- function(dest, wd, call) {
   # is this a quarto project for blog ? Expecting _quarto.yml in working dir
   if (!fs::file_exists(fs::path(working, "_quarto.yml"))) {
     cli::cli_abort(
-      "You need to be at root of a Quarto project to create a blog post in the {.file posts/} directory at {.file {working}}.",
+      "You need to be at root of a Quarto project to create a blog post in the {.file posts/} directory at {.file {fs::path_real(working)}}.",
       call = call
     )
   }

R/utils.R

@@ -49,6 +49,6 @@ in_rstudio <- function() {
 hide_path <- function(path) {
   function(x) {
     x <- gsub(path, "<project directory>", x, fixed = TRUE)
-    gsub(fs::path_norm(path), "<project directory>", x, fixed = TRUE)
+    gsub(fs::path_real(path), "<project directory>", x, fixed = TRUE)
   }
 }

tests/testthat/_snaps/blog.md

@@ -1,3 +1,11 @@
+# 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

tests/testthat/test-blog.R

@@ -5,14 +5,18 @@ test_that("Create a blog post", {
   dir_path <- withr::local_tempdir(pattern = "test-blog-project-")
   withr::local_dir(dir_path)
 
+  proj_name <- "test-blog-project"
+
   quarto_create_project(
-    name = "test-blog-project",
+    name = proj_name,
     type = "blog",
     dir = dir_path,
     quiet = TRUE,
     no_prompt = TRUE
   )
 
+  withr::local_dir(proj_name)
+
   withr::local_envvar(list(FULLNAME = "Max Kuhn"))
 
   # ------------------------------------------------------------------------------