tests/testthat/test_find_html_comments.R

In rmsharp/rmsutilityr: Utility Functions Used for Reproducible Research

context("test_find_html_comments")
library(testthat)

lines <- c("<!-- RMS single line html comment -->",
           "<!-- RMS this is my blog: <mynixworld.inf> -->",
           "<!-- RMS [if !(IE 8) ]><!-->",
           "<!-- RMS
            multi line html comment
            -->   ",
           "fkdshfks khh fdsfsk ",
           "<!-- RMS g1-->
           <div class='codetop'>CODE: AutoIt</div>
           <div class='geshimain'>",
           "<!-- RMS eg1-->
           <div class=\"autoit\" style=\"font-family:monospace;\">
           <span class=\"kw3\">msgbox</span>
           </div>",
           "<!-- RMS gc2-->",
           "<!--bXNnYm94-->",
           "<!-- TJH egc2-->",
           "<!-- 
           RMS g2-->
           </div>
           <!-- RMS eg2-->",
           "fdsfdskh")
test_that("find_html_comment returns correct logical values", {
  expect_equal(find_html_comments(lines)$start_line, 
               c(1L, 2L, 3L, 4L, 6L, 7L, 8L, 9L, 10L, 11L))
  expect_equal(find_html_comments(lines, label = "RMS")$start_line, 
               c(1L, 2L, 3L, 4L, 6L, 7L, 8L, 11L))
  expect_equal(find_html_comments(lines, label = "TJH")$start_line, 
               c(10L))
  expect_equal(find_html_comments(lines, label = " TJH ")$start_line, 
               c(10L))
})