tests/testthat/test-modelfactory.R

test_that('Check listavailable', {
  expect_named(listavailable(), c('prostate', 'gala'))
})

test_that('Check getmodel', {
  expect_named(getmodel('prostate'), c('fit', 'data'))
})


test_that('Check modeldesc', {  expect_is(modeldesc('prostate'),'list')     })
brucebcampbell/appregr documentation built on Sept. 2, 2021, 5:40 a.m.