tests/testthat/test-intToAry.R

In stla/expansions: Expansions of integer and real numbers

context("ary expansion")

test_that("intToAry", {
  n <- 77
  sizes <- c(3,4,7)
  digits <- intToAry(n, sizes)
  expect_equal(n, sum(digits*cumprod(c(1, head(sizes,-1)))))
  #
  sizes <- c(3,4,5)
  expect_error(intToAry(prod(sizes), sizes), "n must be nonnegative and strictly lower than")
  #
  expect_equal(t(expand.grid(c(0,1),c(0,1))),
               sapply(0:3, function(x) intToAry(x, sizes=c(2,2))),
               check.attributes=FALSE)
})