tests/testthat/test-get_test_scores.R

set.seed(2021)
library(dplyr, warn.conflicts = FALSE)
temp <- get_test_scores()

test_that("get_test_scores works", {
  expect_equal(length(unique(temp$id)), 1000)
})
iangow/farr documentation built on Feb. 13, 2025, 2:53 p.m.