increase code coverage

jakobbossek · Aug 10, 2015 · 2c8d210 · 2c8d210
1 parent c1c798c
commit 2c8d210
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git 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
@@ -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")