tests/e2e/test-format-js.R

In Appsilon/rhino: A Framework for Enterprise Shiny Applications

rhino::format_js()

# Create bad scripts and test if formatting returns the expected result
test_file_path <- fs::path("app", "js", "bad-style.js")
cat('const  someFunction = (a ,b) => a+ b + "asdf"', file = test_file_path)
rhino::format_js()
testthat::expect_identical(
  readLines(test_file_path),
  "const someFunction = (a, b) => a + b + 'asdf';"
)

# Clean up
file.remove(test_file_path)