tests/testthat/test-read.R

In kiernann/srt: Read Subtitle Files as Tabular Data

test_that("movie srt files can be read as data frames", {
  skip_non_utf8()
  ex <- srt_example()
  x <- read_srt(ex, collapse = " ")
  expect_length(x, 4)
  expect_s3_class(x, "data.frame")
  expect_type(x$n, "integer")
  expect_type(x$start, "double")
  expect_type(x$subtitle, "character")
  expect_equal(nrow(x), 2268)
})