revdep/checks.noindex/zoomGroupStats/old/zoomGroupStats.Rcheck/tests/testthat/test-processZoomOutput.R

In mjockers/syuzhet: Extracts Sentiment and Sentiment-Derived Plot Arcs from Text

test_that("zoomOutput grabs available files", {
  z.out = processZoomOutput(fileRoot=paste(system.file('extdata', package='zoomGroupStats'), "meeting001", sep="/"))
  expect_equal(length(z.out), 5)
  expect_equal(is.null(z.out$meetInfo), FALSE)
  expect_equal(is.null(z.out$partInfo), FALSE)
  expect_equal(is.null(z.out$transcript), FALSE)
  expect_equal(is.null(z.out$chat), FALSE)
})