tests/testthat/test-comments_comment.R

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

test_that("comments_comment()", {
  nm_min <- c(
    "id",
    "comment",
    "spoiler",
    "review",
    "parent_id",
    "created_at",
    "updated_at",
    "replies",
    "likes",
    "user_rating",
    "username",
    "private",
    "deleted",
    "user_name",
    "vip",
    "vip_ep",
    "user_slug"
  )

  comments_comment(c("236397", "112561")) |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_min) |>
    nrow() |>
    expect_equal(2)
})


test_that("comments_replies()", {
  nm_min <- c(
    "id",
    "comment",
    "spoiler",
    "review",
    "parent_id",
    "created_at",
    "updated_at",
    "replies",
    "likes",
    "user_rating",
    "username",
    "private",
    "deleted",
    "user_name",
    "vip",
    "vip_ep",
    "user_slug"
  )

  comments_replies(c("236397", "236397")) |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_min) |>
    nrow() |>
    expect_equal(2)
})


test_that("comments_likes()", {
  nm_min <- c(
    "liked_at",
    "username",
    "private",
    "deleted",
    "user_name",
    "vip",
    "vip_ep",
    "user_slug"
  )

  comments_likes(c("236397", "236397")) |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_min)
})

test_that("comments_item()", {
  nm_min <- c(
    "type",
    "title",
    "year",
    "trakt",
    "slug",
    "tvdb",
    "imdb",
    "tmdb",
    "season",
    "episode",
    "episode_title",
    "episode_trakt",
    "episode_tvdb",
    "episode_imdb",
    "episode_tmdb"
  )

  comments_item(c("136632", "236397")) |>
    expect_s3_class("tbl_df") |>
    expect_named(nm_min)
})