From f70bc93630d05f372e7f0ded1916e3c0b5d0f657 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Fri, 27 Sep 2024 10:47:32 +0200 Subject: [PATCH] Adjusted unit tests --- tests/testthat/test-greedyMix.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R index 2c80ca3..02b1007 100644 --- a/tests/testthat/test-greedyMix.R +++ b/tests/testthat/test-greedyMix.R @@ -66,12 +66,16 @@ 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") - expect_error(greedy_genepop <- greedyMix(genepop_file, "GenePop")) # TEMP: fails expect_type(greedy_baps, "list") expect_length(greedy_baps, 10L) + + genepop_file <- file.path(path_inst, "GenePop.txt") + greedy_genepop <- greedyMix(genepop_file, "GenePop") + expect_type(greedy_genepop, "list") + expect_length(greedy_genepop, 10L) + + fasta_file <- file.path(path_inst, "FASTA_clustering_haploid.fasta") }) context("Linkage")