diff --git a/tests/testthat/test-greedyPopMix.R b/tests/testthat/test-greedyPopMix.R
new file mode 100644
index 0000000..a770d12
--- /dev/null
+++ b/tests/testthat/test-greedyPopMix.R
@@ -0,0 +1,11 @@
+context("greedyPopMix functions")
+
+test_that("Auxiliary functions work properly", {
+  x <- matrix(11:16, 3)
+  y <- matrix(2:7, 3)
+  z <- list(
+    popnames2 = matrix(c(11:13, seq(1.5, 2.5, 0.5)), 3),
+    rowsFromInd = 2
+  )
+  expect_equal(findOutRowsFromInd(x, y, "Diploid"), z)
+})