inst/examples/examples/tests/testthat/test-uniform.R

In richfitz/RcppR6: Code-generation Wrapping C++ Classes as R6 Classes

context("uniform")

test_that("Creation", {
  u <- uniform(0, pi)
  expect_that(u, is_a("uniform"))
  expect_that(u, is_a("R6"))

  ## Some internal details:
  expect_that(u$.ptr, is_a("externalptr"))
})

test_that("Methods", {
  u <- uniform(0, pi)
  set.seed(1)
  r1 <- u$draw(10)
  set.seed(1)
  r2 <- runif(10, 0, pi)
  expect_that(r1, is_identical_to(r2))
  r3 <- u$draw(10)
  expect_that(r3, not(equals(r1)))
  expect_that(u$range(), equals(pi))
})

test_that("Active", {
  u <- uniform(0, pi)
  expect_that(u$min, equals(0))
  expect_that(u$max, equals(pi))
  ## Member function
  expect_that(u$the_min, equals(0))
  ## Free function
  expect_that(u$the_max, equals(pi))

  ## Free function that modifies state
  set.seed(1)
  r <- runif(3, 0, pi)
  set.seed(1)
  for (ri in r) {
    expect_that(u$u, is_identical_to(ri))
  }

  expect_that(u$min <- -1, throws_error("read-only"))
  expect_that(u$min, equals(0))
  expect_that(u$the_min, equals(0))

  u$the_min <- -2
  expect_that(u$min, equals(-2))
  expect_that(u$the_min, equals(-2))

  expect_that(u$max <- 1, throws_error("read-only"))
  expect_that(u$max, equals(pi))
  expect_that(u$the_max, equals(pi))

  u$the_max <- 2
  expect_that(u$max, equals(2))
  expect_that(u$the_max, equals(2))
})

test_that("Defaults", {
  u <- uniform()
  expect_that(u$min, is_identical_to(0.0))
  expect_that(u$max, is_identical_to(1.0))

  u <- uniform(max=pi)
  expect_that(u$min, is_identical_to(0.0))
  expect_that(u$max, is_identical_to(pi))
})