tests/testthat/test-read.R

In HomeBankCode/rlena: Make Working with 'LENA' '.its' Files Easy

library("rlena")
context("read")


test_that("ITS file can be loaded", {
  f <- "../test.its"
  xml_doc <- read_its_file(f)
  doc_name <- xml2::xml_name(xml_doc)
  expect_equal(doc_name, "ITS")
})


test_that("ITS xml tree can be loaded", {
  f <- "../test.its"
  xml_doc <- read_its_file(xml2::read_xml(f))
  doc_name <- xml2::xml_name(xml_doc)
  expect_equal(doc_name, "ITS")
})