tests/testthat/test-parse_comments.R

In r-lib/styler: Non-Invasive Pretty Printing of R Code

test_that("spacing within comments is done correctly", {
  expect_warning(test_collection("parse_comments",
    "within_spacing_with_force",
    transformer = style_text,
    style = tidyverse_style,
    start_comments_with_one_space = TRUE
  ), NA)

  expect_warning(test_collection("parse_comments",
    "within_spacing_without_force",
    transformer = style_text,
    style = tidyverse_style,
    start_comments_with_one_space = FALSE
  ), NA)

  expect_warning(test_collection("parse_comments",
    "eol_eof_spaces",
    transformer = style_text
  ), NA)
})

test_that("comments are treated corectly", {
  expect_warning(test_collection("parse_comments",
    "mixed",
    transformer = style_empty
  ), NA)

  expect_warning(test_collection("parse_comments",
    "just_comments",
    transformer = style_empty
  ), NA)


  expect_warning(test_collection("parse_comments",
    "with_indention",
    transformer = style_text
  ), NA)
})

test_that("rplumber tags / syntax is handled properly", {
  expect_warning(test_collection("parse_comments",
    "rplumber",
    transformer = style_text
  ), NA)
})


test_that("hashbangs are respected", {
  expect_warning(test_collection("parse_comments",
    "shebang",
    transformer = style_text
  ), NA)
})

test_that("xaringan markers are respected", {
  expect_warning(test_collection("parse_comments",
    "xaringan",
    transformer = style_text
  ), NA)
})

test_that("output prefix markers are respected", {
  expect_warning(test_collection("parse_comments",
    "output-prefix",
    transformer = style_text
  ), NA)
})

test_that("code chunk headers for spinning are respected", {
  expect_warning(test_collection("parse_comments",
    "spinning_code_chunk_headers",
    transformer = style_text
  ), NA)
})