tests/testthat/test-recently-added.R

context("test-recently-added.R")

test_that("get_recently_added works", {
  count <- 5
  res <- get_recently_added(count = count)
  expect_is(res, "tbl")
  expect_length(res, 42)
  expect_equal(nrow(res), count)

  expect_error(get_recently_added("", ""))
})
jemus42/tauturri documentation built on Feb. 7, 2024, 2 a.m.