tests/testthat/test_exactvalues.R

In cboettig/multiple_uncertainty: Multiple Uncertainty

testthat::context("Test exact matches to cached results")

testthat::test_that("Confirm we are still getting precisely the same optimal policies as previously cached",
                    {
                      
                      escapement <- multiple_uncertainty(x_grid = seq(0, 150, length = 151), 
                                                         h_grid = seq(0, 150, length = 152), 
                                                         y_grid = seq(0, 150, length = 153), 
                                                         q_grid = seq(0, 150, length = 154),
                                                         sigma_g = 0.5, 
                                                         sigma_m = 0.1, 
                                                         sigma_i = 0.1)
                      
                      testthat::expect_identical(escapement, escapement_cache)
                    })