Nothing
# Disable sass cache
local_disable_cache()
test_that(".scss file compiles", {
expected <- "foo {\n margin: 36.6px;\n}\n\nbar {\n margin: 63px;\n}\n"
class(expected) <- c("css", "html", "character")
attr(expected, "html") <- TRUE
expect_equal(
sass(sass_file("test-compile.scss")),
expected
)
})
test_that("string input compiles", {
expected <- "foo {\n margin: 36.6px;\n}\n"
class(expected) <- c("css", "html", "character")
attr(expected, "html") <- TRUE
expect_equal(
sass("foo { margin: 122px * .3; }"),
expected
)
})
test_that("character vector input compiles", {
input <- c(".foo {\n color: red;\n}\n", ".bar {\n background-color: blue;\n}\n")
expected <- paste(input, collapse = "\n")
class(expected) <- c("css", "html", "character")
attr(expected, "html") <- TRUE
expect_equal(sass(input), expected)
expect_equal(sass(as.list(input)), expected)
})
test_that("named character vector throws warning", {
expect_warning(sass(c(var = "foo{color: red}")), "named")
})
test_that("sass compiles", {
expected <- "foo {\n margin: 36.6px;\n}\n\nbar {\n margin: 63px;\n}\n"
class(expected) <- c("css", "html", "character")
attr(expected, "html") <- TRUE
expect_equal(
sass(sass_file("test-compile.sass"), sass_options(indented_syntax = TRUE)),
expected
)
})
test_that("sass_partial() and sass() arguments match", {
s <- formals(sass)
s$input <- NULL
sp <- formals(sass_partial)
sp$rules <- NULL
sp$bundle <- NULL
expect_identical(s, sp)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.