tests/testthat/test_aah.R

test_that("Test suite aah.R",{

    x <- rfalgg()
    y <- rfalggg()

    expect_true(is.freealg(x))
    expect_true(is.freealg(y))

    expect_true(x+y == y+x)
})
RobinHankin/freealg documentation built on Dec. 24, 2024, 3:16 a.m.