tests/testthat/test-dst_parametric.R

In vincenzocoia/distionary: Create and Evaluate Univariate Probability Distributions

test_that("Environment specification works.", {
  d <- dst_parametric("norm", mean = 0, sd = 1, .variable = "continuous")
  expect_false(identical(d$env, .GlobalEnv))
  expect_equal(eval_cdf(d, at = -3:3), stats::pnorm(-3:3))
  d <- dst_parametric("norm", mean = 0, sd = 1, .variable = "continuous",
                      .env = .GlobalEnv)
  expect_identical(d$env, .GlobalEnv)
  expect_equal(eval_cdf(d, at = -3:3), stats::pnorm(-3:3))
  d <- dst_parametric("norm", mean = 0, sd = 1, .variable = "continuous",
                      .env = "package:stats")
  expect_identical(d$env, as.environment("package:stats"))
  expect_equal(eval_cdf(d, at = -3:3), stats::pnorm(-3:3))
  d <- dst_parametric("norm", mean = 0, sd = 1, .variable = "continuous",
                      .env = "package:base")
  expect_identical(d$env, as.environment("package:base"))
  expect_error(eval_cdf(d, at = -3:3))
  pfoo <- identity
  d <- local({
    pfoo <- sqrt
    dst_parametric("foo", .variable = "continuous")
  })
  expect_equal(eval_cdf(d, at = 1:9 / 10), sqrt(1:9 / 10))
})