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

Added unit tests (#24)

Browse source
This commit is contained in:
Waldir Leoncio 2024-07-02 16:39:48 +02:00
parent e873075ebf
commit 95ff2378b1
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/testthat/test-greedyMix.R
View file

@ -75,6 +75,13 @@ test_that("greedyMix() fails successfully", {
expect_error(greedyMix(file.path(path_inst, "bam_example.bam"))) expect_error(greedyMix(file.path(path_inst, "bam_example.bam")))
}) })
test_that("greedyMix() works when it should", {
baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt")
greedy_baps <- greedyMix(baps_file, "BAPS")
expect_type(greedy_baps, "list")
expect_length(greedy_baps, 10L)
})
context("Linkage") context("Linkage")
test_that("Linkages are properly calculated", { test_that("Linkages are properly calculated", {