File: test-S4.R

package info (click to toggle)
r-cran-covr 3.5.1%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 984 kB
  • sloc: javascript: 238; cpp: 54; ansic: 48; xml: 41; sh: 18; makefile: 11
file content (8 lines) | stat: -rw-r--r-- 220 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
context("S4")
test_that("S4 methods coverage is reported", {
  cov <- as.data.frame(package_coverage("TestS4"))

  expect_equal(cov$first_line, c(7, 8, 10, 25, 31, 37))

  expect_equal(cov$value, c(5, 2, 3, 1, 1, 1))
})