tests/testthat/test-is_xml.R

In richelbilderbeek/beautier: 'BEAUti' from R

test_that("use", {
  check_empty_beautier_folder()

  expect_false(is_xml(NA))
  expect_true(is_xml("<text content=\"Hello\"/>")) # nolint this is no absolute path
  expect_true(
    is_xml(
      parameter_to_xml(
        create_param_alpha(id = 1),
        beauti_options = create_beauti_options()
      )
    )
  )
  expect_true(
    is_xml(
      distr_to_xml(
        create_one_div_x_distr(id = 1),
        beauti_options = create_beauti_options()
      )
    )
  )
  expect_false(is_xml("no opening tag"))
  expect_false(is_xml("<text id=1></invalid_close>"))
  expect_false(is_xml("<text content=\"Hello\">"))
})