tests/testthat/test_assess_last_30_bugs_status.R

In riskmetric: Risk Metrics to Evaluating R Packages

test_that("assess_last_30_bugs_status returns expected result for source package", {
  # using mocked github api response
  expect_s3_class(
    assess_source_good$bugs_status,
    c("pkg_metric_last_30_bugs_status", "pkg_metric", "logical"))

  expect_equal(
    as.vector(assess_source_good$bugs_status),
    c(FALSE, TRUE, FALSE))
})