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", "user_name", "vip", "vip_ep", "user_slug"
  )

  comments_comment(c("236397", "112561")) |>
    expect_is("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", "user_name", "vip", "vip_ep", "user_slug"
  )

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


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

  comments_likes(c("236397", "236397")) |>
    expect_is("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_is("tbl_df") |>
    expect_named(nm_min)
})