tests/testthat/test-main.R

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

test_that('demandPriceTaker() works',{
  skip_on_cran()
  skip_on_travis()
  population <- 31.99 # In millions
  gdp_pc <- 6.71 # In thousand dollars
  frac_high_risk <- 0.131
  loss2yr <- 0.269
  parameters <- Parameters$new(population=population, gdp_pc=gdp_pc,
                               frac_high_risk=frac_high_risk, loss2yr=loss2yr)
  demand = demandPriceTaker(parameters)
  expect_equal(class(demand),'list')
  expect_length(demand,3)
  opt = demand$optimizations
  expect_true(all(opt>=0))
  expect_is(demand$allCapacities,c("matrix", "array" ))
  expect_true(all(demand$allCapacities>=0))
  demand = demandPriceTaker(population = population, gdp_pc = gdp_pc,
                            frac_high_risk = frac_high_risk, loss2yr = loss2yr)
  expect_equal(class(demand),'list')
  expect_length(demand,3)
  opt = demand$optimizations
  expect_true(all(opt>=0))
  expect_is(demand$allCapacities,c("matrix", "array" ))
  expect_true(all(demand$allCapacities>=0))
})

test_that('portfolioPriceTaker() works',{
  skip_on_cran()
  skip_on_travis()
  population <- 31.99 # In millions
  gdp_pc <- 6.71 # In thousand dollars
  frac_high_risk <- 0.131
  loss2yr <- 0.269
  parameters <- Parameters$new(population=population, gdp_pc=gdp_pc,
                               frac_high_risk=frac_high_risk, loss2yr=loss2yr)
  port = portfolioPriceTaker(parameters,price = 10)
  expect_equal(class(port),'list')
  expect_length(port,7)
  expect_true(all(port$capacities>=0))
  expect_gte(port$totCapacity,0)
  expect_gte(port$cost,0)
  expect_gte(port$expBenefits,0)
  expect_gte(port$expCapacity,0)
  port = portfolioPriceTaker(population=population, gdp_pc=gdp_pc,
                             frac_high_risk=frac_high_risk, loss2yr=loss2yr,
                             steps = c(10),
                             price = 10,return_benefit_args = TRUE)
  expect_equal(class(port),'list')
  expect_length(port,8)
  expect_true(all(port$capacities>=0))
  expect_gte(port$totCapacity,0)
  expect_gte(port$cost,0)
  expect_gte(port$expBenefits,0)
  expect_gte(port$expCapacity,0)
  benefit_args = port$benefit_args
  expect_true('price' %in% names(benefit_args))
})