tests/e2e/test-build-sass.R

In Appsilon/rhino: A Framework for Enterprise Shiny Applications

min_css_path <- fs::path("app", "static", "css", "app.min.css")
main_css_path <- fs::path("app", "styles", "main.scss")

# Create minimal css and check app.min.css output
cat(
  ".myClass { color: #fff; }\n",
  file = main_css_path
)
rhino::build_sass()
testthat::expect_identical(
  readLines(min_css_path),
  ".myClass{color:#fff}"
)

# Revert to empty CSS and check output
cat("\n", file = main_css_path
)
rhino::build_sass()
testthat::expect_identical(
  readLines(min_css_path), ""
)