From b4fe83482284ec4e392e37933d97236060b18e1a Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Fri, 13 Sep 2024 14:19:25 +0200 Subject: [PATCH] Temp-wrapping disfunctional code --- tests/testthat/test-greedyMix.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R index 864223a..2c80ca3 100644 --- a/tests/testthat/test-greedyMix.R +++ b/tests/testthat/test-greedyMix.R @@ -69,7 +69,7 @@ test_that("greedyMix() works when it should", { genepop_file <- file.path(path_inst, "GenePop.txt") fasta_file <- file.path(path_inst, "FASTA_clustering_haploid.fasta") greedy_baps <- greedyMix(baps_file, "BAPS") - greedy_genepop <- greedyMix(genepop_file, "GenePop") # FIXME: doesn't match MATLAB output + expect_error(greedy_genepop <- greedyMix(genepop_file, "GenePop")) # TEMP: fails expect_type(greedy_baps, "list") expect_length(greedy_baps, 10L) })