inst/tinytest/utils.R

In wenjie2wang/splines2: Regression Spline Functions and Classes

## check essentials
expect_eqt <- function(current, target, ...)
{
    tinytest::expect_equivalent(current = unclass(current),
                                target = unclass(target), ...)
}