tests/testthat/test_program.R

context("Programs")

tbl_new <- new_program_table()
tbl_get <- get_program_table()

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