diff --git a/tests/testthat/test-extra-tags.R b/tests/testthat/test-extra-tags.R index ef5f4d2..af98fca 100644 --- a/tests/testthat/test-extra-tags.R +++ b/tests/testthat/test-extra-tags.R @@ -1,3 +1,5 @@ + + test_that('style_tpl_css_vars_replace works tpl_replace for one tpl variable', { result <- style_tpl_css_vars_replace("me { background: var(--tpl-bgurl) center}", bgurl = "url(/icon.png)") expected <- "me { background: url(/icon.png) center}" @@ -16,7 +18,13 @@ test_that('style_from_css_tpl works', { as.character(style_from_css_tpl(temp_css_file, bgurl = "url(/icon.png)")) }) expected <- "" - expect_equal(result, expected) + normalize_line_endings <- \(text) { + gsub("\r\n|\n|\r", "\n", text) + } + expect_equal( + normalize_line_endings(result), + normalize_line_endings(expected) + ) }) test_that('script_tpl_js_vars_replace works', {