tests/testthat/helper-utils.R

In sass: Syntactically Awesome Style Sheets ('Sass')

compressed_css <- function(x) {
  gsub("\\s+|\\n", "", paste(as.character(x), collapse = ""))
}

expect_css <- function(input, css, output = NULL, ...) {
  res <- sass(input, output = output, ...)
  if (!is.null(output)) {
    res <- read_utf8(res)
  }
  expect_identical(
    compressed_css(res),
    compressed_css(css)
  )
}