tests/testthat/test-vatlongos.R

context("Vatlongos")

test_that("Vatlongos corpus", {
  path <- system.file("exampleData", "vatlongos.xml", package="interlineaR")
  corpus <- read.emeld(path, vernacular.languages="tvk", analysis.languages="en")
  expect_equal(length(corpus), 4)

  expect_equal(nrow(corpus$texts), 10)
  expect_equal(nrow(corpus$sentences), 468)
  expect_equal(nrow(corpus$words), 5922)
  expect_equal(nrow(corpus$morphemes), 6034)
})

Try the interlineaR package in your browser

Any scripts or data that you put into this service are public.

interlineaR documentation built on May 1, 2019, 7:29 p.m.