Move expect_html_chr() to testthat/helper.R

tests/testthat/helper.R

@@ -0,0 +1,9 @@
+
+collapse_html_chr <- function(x) {
+  x <- paste(x, collapse = "\n")
+  gsub("\\s*\n\\s*", "", x)
+}
+
+expect_html_chr <- function(x, y) {
+  expect_equal(collapse_html_chr(x), collapse_html_chr(y))
+}

tests/testthat/test-layout.R

@@ -27,15 +27,6 @@ level_header_example <- '
   </div>
 </div>'
 
-collapse_html_chr <- function(x) {
-  x <- paste(x, collapse = "\n")
-  gsub("\\s*\n\\s*", "", x)
-}
-
-expect_html_chr <- function(x, y) {
-  expect_equal(collapse_html_chr(x), collapse_html_chr(y))
-}
-
 test_that("bulma_level_item single", {
   expect_html_chr(bulma_level_item("one"), '<div class="level-item">one</div>')
   expect_true(is_level_item(bulma_level_item("a")))