tests/testthat/test-public-api.R

In mlr-org/styler.mlr: Third-Party Style Guide for 'mlr'

test_that("general", {
  withr::local_options(styler.quiet = TRUE, usethis.quiet = TRUE)
  expect_equal(
    style_text("x = 1 ", scope = "tokens") %>%
      as.character(),
    "x = 1"
  )
  example_code = "x <- 1    # comment"
  file = withr::local_tempfile(fileext = ".R")
  writeLines(example_code, file)
  style_file(file, strict = FALSE)

  expect_equal(readLines(file), "x = 1    # comment")

  dir = withr::local_tempdir()
  file = fs::path(dir, ".Rprofile")
  writeLines(example_code, file)
  style_dir(dir, include_roxygen_examples = FALSE)
  expect_equal(readLines(file), "x = 1 # comment")

  dir = withr::local_tempdir(pattern = "pkg")
  usethis::create_package(dir, open = FALSE)
  file = fs::path(dir, "R", "script.R")
  writeLines(" a %>% c", file)
  style_pkg(dir)
  expect_equal(readLines(file), "a %>% c()")
})

test_that("rowwise tables do not get styled", {

  withr::local_options(styler.quiet = TRUE, usethis.quiet = TRUE)
  expect_equal(
    style_text(
      'rowwise_table(
      ~type,     ~package,           ~task,           ~learner,         ~prediction,         ~measure,
      "regr",    "mlr3spatiotempcv", "TaskRegrST",    "LearnerRegr",    "PredictionRegr",    "MeasureRegr",
      "classif", "mlr3spatiotempcv", "TaskClassifST", "LearnerClassif", "PredictionClassif", "MeasureClassif"
)') %>%
      as.character(),
    c("rowwise_table(",
      "  ~type,     ~package,           ~task,           ~learner,         ~prediction,         ~measure,",
      "  \"regr\",    \"mlr3spatiotempcv\", \"TaskRegrST\",    \"LearnerRegr\",    \"PredictionRegr\",    \"MeasureRegr\",",
      "  \"classif\", \"mlr3spatiotempcv\", \"TaskClassifST\", \"LearnerClassif\", \"PredictionClassif\", \"MeasureClassif\"",
      ")") %>%
      as.character())
})