tests/testthat/test-processZoomOutput.R

In andrewpknight/zoomGroupStats: Analyze Text, Audio, and Video from 'Zoom' Meetings

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)
})