tests/testthat/test-are_equivalent_xml_lines.R

In richelbilderbeek/beautier: 'BEAUti' from R

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)
  )
})