tests/testthat/test-corner-cases.R

context("corner-cases")

test_that("corner-cases are handled as expected", {
  expect_warning(withr::with_output_sink(tempfile(), {
    cov <- file_coverage("corner-cases.R", "corner-cases-test.R")
  }))

  expect_equal(as.data.frame(cov), readRDS("corner-cases.Rds"))
})
jimhester/covr documentation built on April 8, 2024, 1:48 p.m.