tests/testthat/test-function-generate_random_values.R

In KWB-R/kwb.qmra: QMRA (quantitative microbial risk assessment)

test_that("generate_random_values() works", {

  expect_error(generate_random_values())
  
  confDir <- system.file("extdata/configs/dummy", package = "kwb.qmra")
  
  config <- config_read(confDir)

  config$type <- "norm"  
  config$min <- 1
  config$max <- 1000
  config$mean <- NA
  config$sd <- NA
  
  expect_error(generate_random_values(config))

  config$type <- "lnorm"  
  config$meanlog <- NA
  config$sdlog <- NA
  
  expect_error(generate_random_values(config))

  config$type <- "triangle"  
  config$mode <- NA
  config$min <- 0
  config$max <- 0
  
  expect_error(generate_random_values(config))
  
  config$max <- 1
  
  expect_error(generate_random_values(config))
})