tests/testthat/test_demo.R

#test file
test_that("demo",{
  s01 <- PiCal(20)
  expect_that(mean(s01$sample) < 1, is_true())
  expect_that(length(s01$sample), equals(40))
})
yang0117/RGRP documentation built on May 27, 2019, 2:01 a.m.