tests/testthat/test-context-manager.R

In Crunch-io/rcrunch: Crunch.io Data Tools

context("Context manager")

test_that("Enter and exit are run", {
    a <- NULL
    tester <- ContextManager(
        function() a <<- FALSE,
        function() a <<- TRUE
    )

    expect_null(a)
    with(tester, {
        expect_false(is.null(a))
        expect_false(a)
        ## Test that assertion failures are raised
        # expect_false(TRUE)
    })
    expect_true(a)
})

test_that("An error in the code being executed is thrown but exit still runs", {
    a <- NULL
    tester <- ContextManager(
        function() a <<- FALSE,
        function() a <<- TRUE
    )

    expect_null(a)
    expect_error(with(tester, {
        halt("Testing error handling")
    }), "Testing error handling")
    expect_true(a)
})

test_that("Custom error handlers", {
    a <- NULL
    tester <- ContextManager(function() a <<- FALSE,
        function() a <<- TRUE,
        error = function(e) halt("Custom error")
    )

    expect_null(a)
    expect_error(with(tester, {
        halt("Testing error handling")
    }), "Custom error")
    expect_true(a)
})

test_that("'as' argument for output of enter function", {
    a <- FALSE
    ctx <- ContextManager(
        function() return(1:4),
        function() a <<- TRUE
    )

    expect_false(a)
    with(ctx, as = "b", {
        expect_equivalent(sum(b), 10)
        d <- sum(b)
    })
    expect_true(a)
    expect_equivalent(d, 10)
})

test_that("'as' specified in the context manager itself", {
    a <- FALSE
    ctx <- ContextManager(function() return(1:4),
        function() a <<- TRUE,
        as = "b"
    )

    expect_false(a)
    with(ctx, {
        expect_equivalent(sum(b), 10)
    })
    expect_true(a)
})

test_that("temp.options", {
    options(crunch.test.option.test = "foo")
    expect_identical(getOption("crunch.test.option.test"), "foo")
    set_crunch_opt("crunch.test.crunch.preset", "a")
    expect_identical(get_crunch_opt("crunch.test.crunch.preset"), "a")
    expect_null(getOption("crunch.test.test.test.test"))
    expect_null(get_crunch_opt("crunch.test.crunch.notset"))
    with(temp.options(
        crunch.test.option.test = "bar",
        crunch.test.test.test.test = "test",
        crunch = list(crunch.test.crunch.preset = "bc", crunch.test.crunch.notset = "xyz")
    ), {
        expect_identical(getOption("crunch.test.option.test"), "bar")
        expect_identical(getOption("crunch.test.test.test.test"), "test")
        expect_identical(get_crunch_opt("crunch.test.crunch.preset"), "bc")
        expect_identical(get_crunch_opt("crunch.test.crunch.notset"), "xyz")
    })
    expect_identical(getOption("crunch.test.option.test"), "foo")
    expect_null(getOption("crunch.test.test.test.test"))
})