tests/testthat/test_as.regions.R

In polmineR: Verbs and Nouns for Corpus Analysis

library(polmineR)
use("polmineR")
testthat::context("as.regions")

test_that(
  "coerce to regions",
  {
    p <- partition("GERMAPARLMINI", speaker = "Angela Dorothea Merkel")
    r1 <- as(p, "regions")
    
    sc <- corpus("GERMAPARLMINI") %>% 
      subset(speaker == "Angela Dorothea Merkel")
    r2 <- as(sc, "regions")
    
    expect_identical(r1, r2)
  }
)