tests/testthat/test-rmd.R

In styler: Non-Invasive Pretty Printing of R Code

test_that("can style .Rmd files", {
  expect_warning(test_collection("rmd", "simple",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)

  expect_warning(test_collection("rmd", "r_and_non_r_code_chunks",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)

  expect_warning(test_collection("rmd", "nested",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)

  expect_warning(test_collection("rmd", "invalid",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)

  ## new 3-5
  expect_warning(test_collection("rmd", "random3",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)
  expect_warning(test_collection("rmd", "random5",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)
  expect_warning(test_collection("rmd", "random6",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)
  expect_warning(test_collection("rmd", "random7",
    transformer = transform_mixed,
    transformer_fun = style_text,
    filetype = "Rmd",
    write_tree = FALSE
  ), NA)
})


test_that("code chunks without code are returned as zero lines", {
  local_test_setup()
  t <- make_transformer(transformers = tidyverse_style())
  lines <- ""

  expect_equal(transform_mixed_non_empty("", t), character(0))
  expect_equal(transform_mixed_non_empty("\n", t), character(0))
  expect_equal(transform_mixed_non_empty(c("", ""), t), character(0))
  expect_equal(transform_mixed_non_empty(c("", " "), t), character(0))
  expect_equal(transform_mixed_non_empty(c("\t", ""), t), character(0))
})