max/ourMELONS
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

Added unit tests (#3)

Browse source
This commit is contained in:
Waldir Leoncio 2023-02-07 10:37:29 +01:00
parent 3cfbe5bfe8
commit 5171a4f179
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/testthat/test-spatialMixture.R
View file

@ -51,3 +51,11 @@ test_that("lakseKlitik() and subfunctions produce expected output", {
# TODO: ... and anythin left from findCliques.m
# TODO: test lakseKlitik()
})
test_that("testFastaData() produces same output as on MATLAB", {
msa <- system.file("ext", "seqs.fa", package = "rBAPS")
test_msa <- testFastaData(msa)
expect_equal(test_msa$ninds, 515)
expect_equal(dim(test_msa$data), c(515, 745))
expect_named(table(test_msa$data), c("-9", as.character(1:515)))
})