tests/testthat/test_info_video.R

In ShotaOchi/videor: Tool Box for Video Analysis

test_that("info_video",
{
  expect_error(info_video(path_wrong))
  expect_error(info_video(path_wrong2))
  
  # bees.mp4
  info_correct <- list(width = 800, height = 800, frames = 73, framerate = 25, duration = 2.88, codec = "h264", format = "yuv420p")
  info_out <- info_video(bees)
  expect_equal(info_out$width, info_correct$width)
  expect_equal(info_out$height, info_correct$height)
  expect_equal(info_out$frames, info_correct$frames)
  expect_equal(info_out$framerate, info_correct$framerate)
  expect_equal(info_out$duration, info_correct$duration)
  expect_equal(info_out$codec, info_correct$codec)
  expect_equal(info_out$format, info_correct$format)
  
  # bees.avi
  info_correct <- list(width = 800, height = 800, frames = 70, framerate = 25, duration = 2.8, codec = "mpeg4", format = "yuv420p")
  info_out <- info_video(avi)
  expect_equal(info_out$width, info_correct$width)
  expect_equal(info_out$height, info_correct$height)
  expect_equal(info_out$frames, info_correct$frames)
  expect_equal(info_out$framerate, info_correct$framerate)
  expect_equal(info_out$duration, info_correct$duration)
  expect_equal(info_out$codec, info_correct$codec)
  expect_equal(info_out$format, info_correct$format)
  
  # bees.webm
  info_correct <- list(width = 800, height = 800, frames = 70, framerate = 25, duration = NA, codec = "vp9", format = "yuv420p")
  info_out <- info_video(webm)
  expect_equal(info_out$width, info_correct$width)
  expect_equal(info_out$height, info_correct$height)
  expect_equal(info_out$frames, info_correct$frames)
  expect_equal(info_out$framerate, info_correct$framerate)
  expect(is.na(info_out$duration) && is.na(info_correct$duration))
  expect_equal(info_out$codec, info_correct$codec)
  expect_equal(info_out$format, info_correct$format)
  
  # bees.wmv
  info_correct <- list(width = 800, height = 800, frames = 70, framerate = 25, duration = 2.8, codec = "msmpeg4v3", format = "yuv420p")
  info_out <- info_video(wmv)
  expect_equal(info_out$width, info_correct$width)
  expect_equal(info_out$height, info_correct$height)
  expect_equal(info_out$frames, info_correct$frames)
  expect_equal(info_out$framerate, info_correct$framerate)
  expect_equal(info_out$duration, info_correct$duration)
  expect_equal(info_out$codec, info_correct$codec)
  expect_equal(info_out$format, info_correct$format)
  
  # counts.gif
  info_correct <- list(width = 300, height = 300, frames = 9, framerate = 10, duration = NA, codec = "gif", format = "bgra")
  info_out <- info_video(counts)
  expect_equal(info_out$width, info_correct$width)
  expect_equal(info_out$height, info_correct$height)
  expect_equal(info_out$frames, info_correct$frames)
  expect_equal(info_out$framerate, info_correct$framerate)
  expect(is.na(info_out$duration) && is.na(info_correct$duration))
  expect_equal(info_out$codec, info_correct$codec)
  expect_equal(info_out$format, info_correct$format)
})