tests/testthat/test-active.r

In klmr/box: Write Reusable, Composable and Modular R Code

context('active bindings')

test_that('active bindings can be exported', {
    box::use(mod/active)
    expect_setequal(ls(active), 'binding')
    expect_true(bindingIsActive('binding', active))
    expect_equal(active$binding, 1L)
    expect_message(active$binding, 'get')
})

test_that('active bindings can be attached', {
    box::use(mod/active[...])
    expect_true(bindingIsActive('binding', parent.env(environment())))
    expect_equal(binding, 1L)
    expect_message(binding, 'get')
})