tests/testthat/test-restrict.R

In hojsgaard/doBy: Groupwise Statistics, LSmeans, Linear Estimates, Utilities

test_that("section_fun", {

  g0 = function(x,y,z) {
    x + y + z + u
  }

  g1 <- section_fun_sub(g0, list(z=100))  
  g2 <- section_fun_sub(g1, list(y=10))
  g3 <- section_fun_sub(g2, list(x=1))

  u <- 1000
  expect_equal(g0(x=1, y=10, z=100), 1111)
  expect_equal(g1(x=1, y=10),        1111)
  expect_equal(g2(x=1),              1111)
  expect_equal(g3(),                 1111)

  f0 = function(x,y,z) {
    x + y + z + u
  }

  ## f1 <- section_fun(f0, list(z=200))  
  ## f2 <- section_fun(f1, list(y=20))
  ## f3 <- section_fun(f2, list(x=2))

  
  ## u <- 2000
  ## expect_equal(f0(x=2, y=20, z=200), 2222)
  ## expect_equal(f1(x=2, y=20),        2222)
  ## expect_equal(f2(x=2),              2222)
  ## expect_equal(f3(),                 2222)
  
})