From 95ff2378b1e81e8838908a34742a796250ec7882 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Tue, 2 Jul 2024 16:39:48 +0200 Subject: [PATCH] Added unit tests (#24) --- tests/testthat/test-greedyMix.R | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R index 86cf9fb..6029c63 100644 --- a/tests/testthat/test-greedyMix.R +++ b/tests/testthat/test-greedyMix.R @@ -75,6 +75,13 @@ test_that("greedyMix() fails successfully", { expect_error(greedyMix(file.path(path_inst, "bam_example.bam"))) }) +test_that("greedyMix() works when it should", { + baps_file <- file.path(path_inst, "BAPS_clustering_diploid.txt") + greedy_baps <- greedyMix(baps_file, "BAPS") + expect_type(greedy_baps, "list") + expect_length(greedy_baps, 10L) +}) + context("Linkage") test_that("Linkages are properly calculated", {