diff --git a/tests/testthat/test_recombinators.R b/tests/testthat/test_recombinators.R
index be30d3e..0607004 100644
--- a/tests/testthat/test_recombinators.R
+++ b/tests/testthat/test_recombinators.R
@@ -7,7 +7,8 @@ test_that("recombinators for permutations work as expected", {
   expected = seq(n) # sequence we expect offspring to be a permutation of
 
   # check validity of produced output for each permutation-based recombinator
-  for (recombinatorGenerator in c(makePMXRecombinator)) {
+  available.recombinators = c(makePMXRecombinator, makePMXRecombinator)
+  for (recombinatorGenerator in available.recombinators) {
     recombine = recombinatorGenerator()
     # generate sample permutations
     parent1 = sample(n)
diff --git a/tests/testthat/test_selectors.R b/tests/testthat/test_selectors.R
index 609899c..331840b 100644
--- a/tests/testthat/test_selectors.R
+++ b/tests/testthat/test_selectors.R
@@ -8,7 +8,11 @@ test_that("parent selectors work as expected", {
 
   n.mating.pool = 5L
 
-  for (selectorGenerator in c(makeRouletteWheelSelector, makeTournamentSelector)) {
+  avialable.selectors = c(makeGreedySelector,
+    makeRouletteWheelSelector, makeTournamentSelector
+  )
+
+  for (selectorGenerator in avialable.selectors) {
     select = selectorGenerator()
     mating.pool = select(population, list(), n.mating.pool)
     expect_is(mating.pool, "ecrPopulation")