diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R
index 9353b0a..864223a 100644
--- a/tests/testthat/test-greedyMix.R
+++ b/tests/testthat/test-greedyMix.R
@@ -66,8 +66,10 @@ test_that("greedyMix() fails successfully", {
 
 test_that("greedyMix() works when it should", {
   baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt")
+  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_type(greedy_baps, "list")
   expect_length(greedy_baps, 10L)
 })