tests/testthat/test-candidatesFung.R

In jc-castillo/vaccineEarlyInvest: Investment in Early Manufacturing Capacity for Vaccines

#Test files for function candidatesFung() in models.R
test_that('returns a list with two named data.tables',{
  par = Parameters$new()
  d0 = loadData(par = par)
  d0$Target = 'Others'
  list1 = candidatesFung(d0,par,computeExpComp = F)
  list2 = candidatesFung(d0,par,computeExpComp = T)
  list3 = candidatesFung(d0,par,computeExpComp = F,seed = 5)
  expect_equal(class(list1),'list')
  expect_equal(names(list1),c('dordered','dcanddraws'))
  expect_equal(class(list2),'list')
  expect_equal(names(list2),c('dordered','dcanddraws'))
  expect_equal(class(list3),'list')
  expect_equal(names(list3),c('dordered','dcanddraws'))
  expect_true(all(list1$dordered[,c('pplat','ptarget','pcand','psuccess')]>=0))
  expect_true(all(list1$dordered[,c('pplat','ptarget','pcand','psuccess')]<=1))
  expect_true(all(list1$dordered[,c('socialCost','socialBenefit','margcost','margbenefit','cost')]>=0))
})

test_that('seed needs to be an integer',{
  par = Parameters$new()
  d0 = loadData(par = par)
  expect_error(candidatesFung(d0,par,computeExpComp = F,seed = 'a'))
})