From 1d72ee9531aaf981872278f7081996ba401fc27a Mon Sep 17 00:00:00 2001
From: Jordi Rosell <jroselln@gmail.com>
Date: Wed, 18 Sep 2024 18:20:34 +0200
Subject: [PATCH] test extra tags

---
 tests/testthat/test-extra-tags.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-extra-tags.R b/tests/testthat/test-extra-tags.R
index 0f3c441..ef5f4d2 100644
--- a/tests/testthat/test-extra-tags.R
+++ b/tests/testthat/test-extra-tags.R
@@ -12,11 +12,11 @@ test_that('style_tpl_css_vars_replace works tpl_replace for two tpl variables',
 
 test_that('style_from_css_tpl works', {
   result <- withr::with_tempfile("temp_css_file", {
-    writeLines("me { background: var(--tpl-bgurl) center}", temp_css_file, sep = "\n")
+    writeLines("me { background: var(--tpl-bgurl) center}", temp_css_file, useBytes = TRUE)
     as.character(style_from_css_tpl(temp_css_file, bgurl = "url(/icon.png)"))
   })
   expected <- "<style> me { background: url(/icon.png) center}\n </style>"
-  expect_contains(result, expected)
+  expect_equal(result, expected)
 })
 
 test_that('script_tpl_js_vars_replace works', {