Use inline test

r-lib · May 21, 2024 · dfed20d · dfed20d
1 parent 0054a5b
commit dfed20d
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 12 deletions.
diff --git a/tests/testthat/_snaps/package.md b/tests/testthat/_snaps/package.md
@@ -23,10 +23,10 @@
 # read_meta() errors gracefully if _pkgdown.yml failed to parse
 
     Code
-      as_pkgdown(test_path("assets/bad-yaml"))
+      as_pkgdown(pkg$src_path)
     Condition
       Error in `as_pkgdown()`:
-      ! Could not parse config file at 'assets/bad-yaml/_pkgdown.yml'.
+      ! Could not parse config file at '<src>/_pkgdown.yml'.
       Caused by error in `yaml.load()`:
       ! Scanner error: mapping values are not allowed in this context at line 2, column 8
 
diff --git a/tests/testthat/assets/bad-yaml/DESCRIPTION b/tests/testthat/assets/bad-yaml/DESCRIPTION
diff --git a/tests/testthat/assets/bad-yaml/_pkgdown.yml b/tests/testthat/assets/bad-yaml/_pkgdown.yml
diff --git a/tests/testthat/test-package.R b/tests/testthat/test-package.R
@@ -84,8 +84,14 @@ test_that("titles don't get autolinked code", {
 })
 
 test_that("read_meta() errors gracefully if _pkgdown.yml failed to parse", {
+  pkg <- local_pkgdown_site()
+  write_lines(path = path(pkg$src_path, "_pkgdown.yml"), c(
+    "url: https://pkgdown.r-lib.org",
+    "  title: Build websites for R packages"
+  ))
   expect_snapshot(
+    as_pkgdown(pkg$src_path),
     error = TRUE,
-    as_pkgdown(test_path("assets/bad-yaml"))
+    transform = function(x) gsub(pkg$src_path, "<src>", x, fixed = TRUE)
   )
 })