Drop full site integration test; add empty lines

Author: hadley

R/build-llm.R

@@ -43,7 +43,9 @@ build_llm_docs <- function(pkg = ".") {
 
   index <- c(
     read_lines(path(pkg$dst_path, "index.md")),
+    "",
     read_file_if_exists(path(pkg$dst_path, "reference", "index.md")),
+    "",
     read_file_if_exists(path(pkg$dst_path, "articles", "index.md"))
   )
   write_lines(index, path(pkg$dst_path, "llms.txt"))

tests/testthat/_snaps/build-llm.md

@@ -0,0 +1,7 @@
+# integration test for convert_md()
+
+    Code
+      readLines(path)
+    Output
+      [1] "# Page title" ""             "## Heading"   ""             "Some text"   
+

tests/testthat/_snaps/build-llm/index.md

@@ -1,28 +1,9 @@
-test_that("integration test for build_llm_docs()", {
-  skip_if_no_pandoc()
-  pkg <- local_pkgdown_site(
-    desc = list(
-      Package = "pkgdown",
-      Description = "My package does great things!"
-    ),
-    meta = list(url = "https://pkgdown.r-lib.org")
-  )
-
-  suppressMessages(build_site(pkg, devel = TRUE))
-
-  llms_txt <- path(pkg$dst_path, "llms.txt")
-  expect_snapshot_file(llms_txt)
-
-  index_md <- path(pkg$dst_path, "index.md")
-  expect_snapshot_file(index_md)
-})
-
 test_that("integration test for convert_md()", {
   skip_if_no_pandoc()
 
   path <- withr::local_tempfile(pattern = "pkgdown-llm")
   convert_md(test_path("assets", "llm.html"), path)
-  expect_snapshot_file(path, name = "llm.md")
+  expect_snapshot(readLines(path))
 })
 
 test_that("simplifies page header", {