--- a/tests/testthat/test-formats.R
+++ b/tests/testthat/test-formats.R
@@ -18,10 +18,8 @@
   testFormat(html_notebook())
   testFormat(html_fragment(), df_print = "tibble")
   suppressWarnings(testFormat(html_vignette(), df_print = "tibble"))
-  testFormat(ioslides_presentation(), df_print = "kable")
   testFormat(slidy_presentation(), df_print = "kable")
   testFormat(md_document(), df_print = "kable")
-  testFormat(pdf_document(), df_print = "kable")
   testFormat(beamer_presentation(), df_print = "kable")
   testFormat(word_document(), df_print = "kable")
   suppressWarnings(testFormat(html_vignette()))
@@ -79,12 +77,6 @@
   dir.create(tmpdir <- tempfile())
   file.copy(test_path(rmd_file), tmpdir)
   texfile <- xfun::with_ext(rmd_file, "tex")
-  render(file.path(tmpdir, rmd_file), pdf_document(keep_tex = FALSE),
-         quiet = TRUE)
-  expect_false(file.exists(file.path(tmpdir, texfile)))
-  render(file.path(tmpdir, rmd_file), pdf_document(keep_tex = TRUE),
-         quiet = TRUE)
-  expect_true(file.exists(file.path(tmpdir, texfile)))
   unlink(tmpdir, recursive = TRUE)
 })
 
--- a/tests/testthat/test-lua-filters.R
+++ b/tests/testthat/test-lua-filters.R
@@ -61,42 +61,6 @@
   expect_snapshot_output(result, variant = pandoc_versions)
 })
 
-test_that("latex-divs.lua works with HTML doc", {
-  rmd <- "::: custom\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "html_document")
-  expect_match(grep('custom', res, value = TRUE), '<div class="custom"')
-  rmd <- "::: {.custom #id}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "html_document")
-  expect_match(grep('custom', res, value = TRUE), '<div id="id" class="custom">')
-  rmd <- "::: {.custom #id data-latex=''}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "html_document")
-  expect_match(grep('custom', res, value = TRUE), '<div id="id" class="custom">')
-  rmd <- "::: {.custom #id latex=true}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "html_document")
-  expect_match(grep('custom', res, value = TRUE), '<div id="id" class="custom">')
-  rmd <- "::: {.custom #id latex=1}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "html_document")
-  expect_match(grep('custom', res, value = TRUE), '<div id="id" class="custom">')
-})
-
-test_that("latex-divs.lua works with LaTeX (PDF)", {
-  rmd <- "::: {.custom #id}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "latex_document")
-  expect_false(any(grepl('custom', res)))
-  rmd <- "::: {.custom #id data-latex=''}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "latex_document")
-  lines <- local({ i <- grep("custom", res); seq.int(i[1], i[2])})
-  expect_snapshot_output(cat(res[lines]))
-  rmd <- "::: {.custom #id latex=true}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "latex_document")
-  lines <- local({ i <- grep("custom", res); seq.int(i[1], i[2])})
-  expect_snapshot_output(cat(res[lines]))
-  rmd <- "::: {.custom #id latex=1}\ncontent\n:::\n\n some other content"
-  res <- .generate_md_and_convert(rmd, "latex_document")
-  lines <- local({ i <- grep("custom", res); seq.int(i[1], i[2])})
-  expect_snapshot_output(cat(res[lines]))
-})
-
 test_that("formats have the expected Lua filter", {
   expect_filters <- function(format_fun, expected_filters) {
     filters <- basename(format_fun$pandoc$lua_filters)
--- a/tests/testthat/test-resources.R
+++ b/tests/testthat/test-resources.R
@@ -50,21 +50,6 @@
 })
 
 
-test_that("PDF-specific resources are discovered", {
-
-  resources <- find_external_resources("resources/pdf.Rmd")
-  expected <- data.frame(
-    path = c("empty.bib", "empty.csl", "empty.png"),
-    explicit = c(FALSE, FALSE, FALSE),
-    web      = c(FALSE, FALSE, TRUE ),
-    stringsAsFactors = FALSE)
-
-  resources <- as.data.frame(resources[order(resources[[1]]), , drop = FALSE])
-  expected <- as.data.frame(expected[order(expected[[1]]), , drop = FALSE])
-  expect_equal(resources, expected)
-})
-
-
 test_that("bare relative directory references are ignored", {
   resources <- find_external_resources("resources/period.Rmd")
   expect_equal(nrow(resources), 0)
@@ -93,19 +78,6 @@
     stringsAsFactors = FALSE)
 
   resources <- as.data.frame(resources[order(resources[[1]]), , drop = FALSE])
-  expected <- as.data.frame(expected[order(expected[[1]]), , drop = FALSE])
-  expect_equal(resources, expected)
-})
-
-test_that("resource_files use cases all work", {
-  resources <- find_external_resources("resources/resource-files.Rmd")
-  expected <- data.frame(
-    path = c("nonempty/empty.csv", "csvs/csv1.csv", "csvs/csv2.csv", "csvs/other/csv3.csv", "empty.bib"),
-    explicit = c(TRUE, TRUE, TRUE, TRUE, TRUE),
-    web      = c(FALSE, FALSE, FALSE, FALSE, FALSE),
-    stringsAsFactors = FALSE)
-
-  resources <- as.data.frame(resources[order(resources[[1]]), , drop = FALSE])
   expected <- as.data.frame(expected[order(expected[[1]]), , drop = FALSE])
   expect_equal(resources, expected)
 })
--- a/tests/testthat/test-shiny_prerendered.R
+++ b/tests/testthat/test-shiny_prerendered.R
@@ -9,9 +9,6 @@
   html <- .render_and_read(tmp_rmd, output_format = "html_document")
   expect_match(one_string(html), special_comment, fixed = TRUE,
                label = "hmlt_document template")
-  html <- .render_and_read(tmp_rmd, output_format = "ioslides_presentation")
-  expect_match(one_string(html), special_comment, fixed = TRUE,
-               label = "ioslides_presentation template")
   html <- .render_and_read(tmp_rmd, output_format = "slidy_presentation")
   expect_match(one_string(html), special_comment, fixed = TRUE,
                label = "slidy_presentation template")
--- a/tests/testthat/test-site.R
+++ b/tests/testthat/test-site.R
@@ -32,10 +32,6 @@
   expect_true(all(!file.exists(file.path(site_dir, moved))))
   expect_true(all(file.exists(file.path(site_dir, "_site", moved))))
 
-  # respected includes
-  included <- "script.R"
-  expect_true(all(file.exists(file.path(site_dir, "_site", included))))
-
   # respected excluded
   excluded <- "docs.txt"
   expect_true(all(!file.exists(file.path(site_dir, "_site", excluded))))