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

Fixed tests (#24)

Browse source
This commit is contained in:
Waldir Leoncio 2024-07-02 11:23:22 +02:00
parent 00ecfa4fd8
commit e4af251307
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -46,11 +46,10 @@ raw_bam <- importFile(
data = file.path(path_inst, "bam_example.bam"), data = file.path(path_inst, "bam_example.bam"),
format = "BAM", format = "BAM",
) )
# TODO: uncomment for testing #24 raw_baps <- importFile(
# raw_baps <- importFile( data = file.path(path_inst, "FASTA_clustering_haploid.fasta"),
# data = file.path(path_inst, "FASTA_clustering_haploid.fasta"), format = "FASTA"
# format = "FASTA" )
# )
test_that("Files are imported correctly", { test_that("Files are imported correctly", {
expect_equal(dim(raw_fasta), c(5, 99)) expect_equal(dim(raw_fasta), c(5, 99))
@ -71,7 +70,7 @@ test_that("Files are imported correctly", {
) )
}) })
test_that("greedyMix() works", { test_that("greedyMix() fails successfully", {
expect_error(greedyMix(file.path(path_inst, "vcf_example.vcf"))) expect_error(greedyMix(file.path(path_inst, "vcf_example.vcf")))
expect_error(greedyMix(file.path(path_inst, "bam_example.bam"))) expect_error(greedyMix(file.path(path_inst, "bam_example.bam")))
}) })