tests/testthat/test_replace_html.R

In LyzandeR/tableHTML: A Tool to Create HTML Tables

context("replace_html testing")

test_that("Function fails for wrong inputs", {
 #no tableHTML
 expect_error(replace_html(mtcars), 'tableHTML needs to be')
})
 
test_that('Function creates border-collapse', {
 expect_true(
   grepl('border-collapse:separated;',
         replace_html(tableHTML(mtcars), 'border-collapse:collapse;', 'border-collapse:separated;')
 ))
})