From 54b0b081ea4c11b7c7fb2c17f1b5f9a75f19ec63 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Mon, 26 Aug 2024 13:26:52 +0200 Subject: [PATCH] Added unit tests for `greedyMix()` on GenePop (#24) --- tests/testthat/test-greedyMix.R | 2 ++ 1 file changed, 2 insertions(+) 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) })