Added test unit

This commit is contained in:
Waldir Leoncio 2020-02-25 14:29:09 +01:00
parent a4143ba786
commit 8b8a689f76

View file

@ -223,4 +223,8 @@ test_that("simulateAllFreqs works as expected", {
object = suppressWarnings(simulateAllFreqs(matrix(1:4, 2))),
expected = empty_mt
)
})
test_that("computeAllFreqs2 works as expected", {
expect_equivalent(computeAllFreqs2(10), matrix(NA, 0, 0))
})