From 3d43ed856f95f862ff85a9fe81f9e93687840599 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Wed, 31 Mar 2021 10:31:43 +0200
Subject: [PATCH] Added test for handleData

---
 tests/testthat/test-greedyMix.R | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/tests/testthat/test-greedyMix.R b/tests/testthat/test-greedyMix.R
index b833456..96b7d1d 100644
--- a/tests/testthat/test-greedyMix.R
+++ b/tests/testthat/test-greedyMix.R
@@ -1,3 +1,34 @@
+context("Auxiliary functions to greedyMix")
+
+baps_diploid <- read.delim(
+	"inst/ext/ExamplesDataFormatting/Example data in BAPS format for clustering of diploid individuals.txt",
+	sep = " ",
+	header = FALSE
+)
+
+handleData(baps_diploid)$newData
+
+test_that("handleData works as expected", {
+	data_obs <- handleData(baps_diploid)$newData
+	data_exp <- matrix(
+		c(
+			-9, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1,
+			-9, 1, 1, 2, 2, 2, 1, 1, 1, 2, 1,
+			3, 2, 2, 3, 2, -9, 3, 1, 2, 1, 2,
+			2, 1, 2, 1, 2, -9, 1, 1, 1, 1, 2,
+			3, 1, 1, 1, 2, 1, 1, 2, -9, 1, 3,
+			3, 1, 2, 1, 1, 1, 2, 1, -9, 2, 3,
+			1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 4,
+			3, 2, 2, 3, 2, 2, 3, 1, 2, 1, 4,
+			2, 1, 2, 1, -9, 1, 1, 1, 1, 1, 5,
+			3, 1, 1, 1, -9, 1, 1, 2, 1, 1, 5
+		),
+		nrow = 10, byrow = TRUE
+	)
+	colnames(data_exp) <- colnames(data_obs)
+	expect_equal(data_obs, data_exp)
+})
+
 context("Opening files on greedyMix")
 
 # TODO: needs #12 to be fixed before this can be done without user intervention