tests/testthat/test_program_stage.R

context("Program stages")

tbl_new <- new_program_stage_table()
tbl_get <- get_program_stage_table()

test_that("Dummy table is created.", {
  expect_true(is.data.frame(tbl_new), TRUE)
  expect_true(is.data.frame(tbl_get), TRUE)
})
c5sire/fbprstages documentation built on May 13, 2019, 10:34 a.m.