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) })