test_that("use, one file", {
xml <- c(
" <taxonset id=\"TaxonSet.anthus_aco_sub\" spec=\"TaxonSet\">",
" <alignment idref=\"anthus_aco_sub\"/>", # nolint this is no absolute path
" </taxonset>"
)
filename <- "temp_are_equal_xml_files.xml"
writeLines(xml, filename)
expect_true(
are_equal_xml_files(filename, filename, section = "taxonset")
)
file.remove(filename)
})
test_that("use, two files", {
xml_1 <- c(
" <logger id=\"screenlog\" logEvery=\"1000\">",
" <log idref=\"posterior\"/>", # nolint this is no absolute path
" <log id=\"ESS.0\" spec=\"util.ESS\" arg=\"@posterior\"/>", # nolint this is no absolute path
" <log idref=\"likelihood\"/>", # nolint this is no absolute path
" <log idref=\"prior\"/>", # nolint this is no absolute path
" </logger>"
)
xml_2 <- c(
" <logger id=\"screenlog\" logEvery=\"1000\">",
" <log id=\"ESS.0\" spec=\"util.ESS\" arg=\"@posterior\"/>", # nolint this is no absolute path
" <log idref=\"likelihood\"/>", # nolint this is no absolute path
" <log idref=\"posterior\"/>", # nolint this is no absolute path
" <log idref=\"prior\"/>", # nolint this is no absolute path
" </logger>"
)
filename_1 <- "temp_are_equal_xml_files_1.xml"
filename_2 <- "temp_are_equal_xml_files_2.xml"
writeLines(xml_1, filename_1)
writeLines(xml_2, filename_2)
expect_false(
are_equal_xml_files(
filename_1 = filename_1,
filename_2 = filename_2,
section = "logger"
)
)
file.remove(filename_1)
file.remove(filename_2)
})
test_that("abuse", {
xml <- c(
" <taxonset id=\"TaxonSet.anthus_aco_sub\" spec=\"TaxonSet\">",
" <alignment idref=\"anthus_aco_sub\"/>", # nolint this is no absolute path
" </taxonset>"
)
filename <- "temp_are_equal_xml_files.xml"
writeLines(xml, filename)
expect_error(
are_equal_xml_files(
filename_1 = "abs.ent",
filename_2 = filename,
section = "a"
),
"'filename_1' must be the name of a file that is present"
)
expect_error(
are_equal_xml_files(
filename_1 = filename,
filename_2 = "abs.ent",
section = "a"
),
"'filename_2' must be the name of a file that is present"
)
expect_error(
are_equal_xml_files(
filename_1 = filename,
filename_2 = filename,
section = "nonsense"
),
"Opening tag for 'section' could not be found in 'lines_1'"
)
file.remove(filename)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.