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

Adapted tests to FASTA on greedyMix() (#24)

Browse source
This commit is contained in:
Waldir Leoncio 2024-08-19 13:32:05 +02:00
parent 43886d649f
commit b7282d67df
1 changed files with 4 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -57,13 +57,6 @@ test_that("Files are imported correctly", {
)
)
expect_equal(length(raw_bam[[1]]), 13)
expect_error(
greedyMix(
data = file.path(path_inst, "FASTA_clustering_haploid.fasta"),
format = "FASTA"
),
"FASTA format not yet supported on greedyMix"
)
})
test_that("greedyMix() fails successfully", {
@ -73,9 +66,13 @@ test_that("greedyMix() fails successfully", {
test_that("greedyMix() works when it should", {
baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt")
fasta_file <- file.path(path_inst, "FASTA_clustering_haploid.fasta")
greedy_baps <- greedyMix(baps_file, "BAPS")
greedy_fasta <- greedyMix(fasta_file, "FASTA")
expect_type(greedy_baps, "list")
expect_length(greedy_baps, 10L)
expect_type(greedy_fasta, "list")
expect_length(greedy_fasta, 10L)
})
context("Linkage")