tests/e2e/test-format-sass.R

In Appsilon/rhino: A Framework for Enterprise Shiny Applications

rhino::format_sass()

# Create bad scripts and test if formatting returns the expected result
test_file_path <- fs::path("app", "styles", "bad-style.scss")
cat("@import 'asdf';\nx+y{ color: red}", file = test_file_path)
rhino::format_sass()
testthat::expect_identical(
  readLines(test_file_path),
  c(
    '@import "asdf";',
    "x + y {",
    "  color: red;",
    "}"
  )
)

# Clean up
file.remove(test_file_path)