tests/testthat/test-get_library.R

In jemus42/tauturri: Get Data Out of 'Tautulli' (Formerly 'PlexPy')

context("test-get_library.R")

test_that("get_library_names returns results", {
  res <- get_library_names()
  expect_is(res, "data.frame")
  expect_length(res, 4)
  expect_error(get_library_names(url = "323hhg"))
  expect_error(get_library_names(url = "", apikey = ""))
})

test_that("get_library_media_info works", {
  data <- get_library_media_info(section_id = 2, length = 10)

  expect_is(data, "list")
  expect_is(data$totals, "list")
  expect_is(data$items, "tbl")
  expect_equal(nrow(data$items), 10)

  expect_error(get_library_media_info())
  expect_error(get_library_media_info("", ""))
})

test_that("get_library_watch_time_stats works", {
  res <- get_library_watch_time_stats(section_id = 2)
  expect_is(res, "tbl")
  expect_length(res, 3)
  expect_named(res, c("query_days", "total_time", "total_plays"))
  expect_error(get_library_watch_time_stats("", ""))
})

test_that("get_library works", {
  res <- get_library(section_id = 2)
  expect_is(res, "tbl")
  expect_length(res, 12)
  expect_equal(nrow(res), 1)
  expect_named(res, c(
    "count", "deleted_section", "section_id", "section_name", "library_art",
    "parent_count", "section_type", "do_notify_created", "keep_history",
    "child_count", "library_thumb", "do_notify"
  ))
  expect_error(get_library_watch_time_stats("", ""))
})

test_that("get_libraries works", {
  res <- get_libraries()
  expect_is(res, "tbl")
  expect_length(res, 9)
  expect_named(res, c(
    "count", "art", "thumb", "parent_count", "section_type", "section_id", "agent",
    "section_name", "child_count"
  ))
  expect_error(get_library_watch_time_stats("", ""))
})

test_that("get_libraries_table works", {
  res <- get_libraries_table()
  expect_is(res, "tbl")
  expect_length(res, 25)
  expect_named(res, c(
    "labels", "year", "duration", "rating_key", "plays",
    "thumb", "parent_count", "section_type", "id", "child_count",
    "media_type", "do_notify", "parent_title", "library_art",
    "last_played", "last_accessed", "section_id", "section_name",
    "library_thumb", "count", "media_index", "content_rating",
    "do_notify_created", "keep_history", "parent_media_index"
  ))
  expect_error(get_libraries_table("", ""))
})

test_that("get_library_user_stats works", {
  res <- get_library_user_stats(section_id = 1)
  expect_is(res, "tbl")
  expect_length(res, 4)
  expect_named(res, c("user_id", "friendly_name", "total_plays", "user_thumb"))
  expect_error(get_library_user_stats("", "", section_id = 1))
})