tests/testthat/test-file_endings.R

# Check that every file has a proper EOF
# Given that reading a file with improper EOF
# Throws a warning, we'll expect_silent() the readLines()

test_that(
  "All files have a proper EOF",{
    new_golem <- perform_inside_a_new_golem(function() {
      return(getwd())
    })
    withr::with_dir(
      new_golem,
      {
        r_files <- list.files(
          pattern = ".*R$",
          recursive = TRUE,
          full.names = TRUE
        )

        for (i in r_files) {
          expect_silent(
            readLines(i)
          )
        }
        js_files <- list.files(pattern = ".*js$", recursive = TRUE)

        for (i in js_files) {
          expect_silent(
            readLines(i)
          )
        }

        css_files <- list.files(pattern = ".*css$", recursive = TRUE)

        for (i in css_files) {
          expect_silent(
            readLines(i)
          )
        }
      }
    )
    unlink(
      new_golem,
      TRUE,
      TRUE
    )
  }
)
ThinkR-open/shinytemplate documentation built on Aug. 27, 2024, 3:15 p.m.