tests/testthat/test-helper.R

context("helper")
test_that("helper", {

    expectEqual <- function(a, b) {
        testthat::expect_equal(a, b)
    }

    ref <- 1
    attr(ref, "a") <- 1

    expectEqual(
        addAttr(1, 1, "a"),
        ref
    )

})

Try the saeRobust package in your browser

Any scripts or data that you put into this service are public.

saeRobust documentation built on May 2, 2019, 7:29 a.m.