context("are_equivalent_xml_lines")
test_that("use", {
lines1 <- readLines(
beautier::get_beautier_path("gtr_gcc_2_2_4.xml")
)
lines2 <- readLines(
beautier::get_beautier_path("jc69_2_4.xml")
)
expect_true(
are_equivalent_xml_lines(lines1, lines1)
)
expect_message(
are_equivalent_xml_lines(lines1, lines2, verbose = TRUE)
)
expect_false(
are_equivalent_xml_lines(lines1, lines2)
)
expect_message(
are_equivalent_xml_lines(c("A"), c("B"), verbose = TRUE)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.