test_that("extra.css and extra.js copied and linked", { pkg <- local_pkgdown_site(test_path("assets/init-extra-2")) expect_output(init_site(pkg)) skip_if_no_pandoc() # Now check they actually get used . expect_output(build_home(pkg)) html <- xml2::read_html(path(pkg$dst_path, "index.html")) paths <- xpath_attr(html, ".//link", "href") }) test_that("single extra.css correctly copied", { pkg <- local_pkgdown_site(test_path("assets/init-extra-1")) expect_output(init_site(pkg)) }) test_that("asset subdirectories are copied", { pkg <- local_pkgdown_site(test_path("assets/init-asset-subdirs")) expect_output(init_site(pkg)) expect_true(file_exists(path(pkg$dst_path, "subdir1", "file1.txt"))) expect_true(file_exists(path(pkg$dst_path, "subdir1", "subdir2", "file2.txt"))) }) test_that("site meta doesn't break unexpectedly", { pkgdown <- as_pkgdown(test_path("assets/reference")) # null out components that will vary yaml <- site_meta(pkgdown) yaml$pkgdown <- "{version}" yaml$pkgdown_sha <- "{sha}" yaml$pandoc <- "{version}" yaml$last_built <- timestamp(as.POSIXct("2020-01-01", tz = "UTC")) expect_snapshot_output(yaml) })
Generated by dwww version 1.15 on Wed Jun 26 01:17:46 CEST 2024.