inst/extdata/test_1.R

In simonpedrobolivar/filecovRunit: Test coverage for RUnit-based test files

library(RUnit)

test.sum <- function(){
  checkIdentical(my_sum(2,3), 5)
  checkIdentical(my_sum_broken(2,3), 5)
}

test.dif <- function(){
  checkIdentical(my_dif(2,3), -1)
  checkIdentical(my_dif_broken(2,3), -1)
}