tests/testthat/test-comments_item.R

In jemus42/tRakt: Get Data from 'trakt.tv'

test_that("comments_item works", {
  # A movie

  nm_movie_min <- c("type", "title", "year", "trakt", "slug", "imdb", "tmdb")
  nm_movie_full <- c(
    "type",
    "title",
    "year",
    "tagline",
    "overview",
    "released",
    "runtime",
    "country",
    "status",
    "rating",
    "votes",
    "comment_count",
    "trailer",
    "homepage",
    "updated_at",
    "language",
    "languages",
    "available_translations",
    "genres",
    "certification",
    "trakt",
    "slug",
    "imdb",
    "tmdb"
  )

  comments_item("236397") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_movie_min, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  comments_item("236397", extended = "full") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_movie_full, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  # A show
  nm_show_min <- c("type", "title", "year", "trakt", "slug", "tvdb", "imdb", "tmdb")
  nm_show_full <- c(
    "type",
    "title",
    "year",
    "tagline",
    "overview",
    "first_aired",
    "runtime",
    "certification",
    "country",
    "status",
    "rating",
    "votes",
    "comment_count",
    "trailer",
    "homepage",
    "network",
    "updated_at",
    "language",
    "languages",
    "available_translations",
    "genres",
    "aired_episodes",
    "airs_day",
    "airs_time",
    "airs_timezone",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb"
  )

  have <- c(
    "type",
    "title",
    "year",
    "tagline",
    "overview",
    "first_aired",
    "runtime",
    "certification",
    "country",
    "trailer",
    "homepage",
    "status",
    "rating",
    "votes",
    "comment_count",
    "network",
    "updated_at",
    "language",
    "available_translations",
    "genres",
    "aired_episodes",
    "airs_day",
    "airs_time",
    "airs_timezone",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb"
  )

  comments_item("120768") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_show_min, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  comments_item("120768", extended = "full") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_show_full, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  # A season
  nm_season_min <- c(
    "type",
    "title",
    "year",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb",
    "season",
    "season_trakt",
    "season_tvdb",
    "season_tmdb"
  )
  nm_season_full <- c(
    "type",
    "title",
    "year",
    "tagline",
    "overview",
    "first_aired",
    "runtime",
    "certification",
    "country",
    "trailer",
    "homepage",
    "status",
    "rating",
    "votes",
    "comment_count",
    "network",
    "updated_at",
    "language",
    "languages",
    "available_translations",
    "genres",
    "aired_episodes",
    "airs_day",
    "airs_time",
    "airs_timezone",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb",
    "season",
    "season_rating",
    "season_votes",
    "season_episode_count",
    "season_aired_episodes",
    "season_title",
    "season_overview",
    "season_first_aired",
    "season_updated_at",
    "season_network",
    "season_trakt",
    "season_tvdb",
    "season_tmdb"
  )

  comments_item("140265") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_season_min) |>
    nrow() |>
    expect_equal(1)

  comments_item("140265", extended = "full") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_season_full, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  # An episode
  nm_episode_min <- c(
    "type",
    "title",
    "year",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb",
    "season",
    "episode",
    "episode_title",
    "episode_trakt",
    "episode_tvdb",
    "episode_imdb",
    "episode_tmdb"
  )
  nm_episode_full <- c(
    "type",
    "title",
    "year",
    "tagline",
    "overview",
    "first_aired",
    "runtime",
    "certification",
    "country",
    "trailer",
    "homepage",
    "status",
    "rating",
    "votes",
    "comment_count",
    "network",
    "updated_at",
    "language",
    "languages",
    "available_translations",
    "genres",
    "aired_episodes",
    "airs_day",
    "airs_time",
    "airs_timezone",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb",
    "season",
    "episode",
    "episode_title",
    "episode_number_abs",
    "episode_overview",
    "episode_rating",
    "episode_votes",
    "episode_comment_count",
    "episode_first_aired",
    "episode_updated_at",
    "episode_available_translations",
    "episode_runtime",
    "episode_episode_type",
    "episode_trakt",
    "episode_tvdb",
    "episode_imdb",
    "episode_tmdb"
  )

  comments_item("136632") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_episode_min, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)

  comments_item("136632", extended = "full") |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_episode_full, ignore.order = TRUE) |>
    nrow() |>
    expect_equal(1)
})