Enforce a certain number of entries in random selected password and salt length selection buffers in test.pl

tools/test.pl

@@ -340,18 +340,19 @@ sub init_db_word_rand
     }
   }
 
-  my $outputs_possible = $len_max - $len_min;
-
-  my $outputs = ($single_outputs < $outputs_possible) ? $single_outputs : $outputs_possible;
-
   my @pool;
 
-  for (my $len = $len_min + 1; $len <= $len_max - 1; $len++)
+  for (my $len = $len_min; $len <= $len_max; $len++)
   {
     push @pool, $len;
   }
 
-  @pool = shuffle (@pool);
+  while (scalar @pool < $single_outputs)
+  {
+    @pool = shuffle (@pool);
+
+    push @pool, $pool[0];
+  }
 
   my $db_out;
 
@@ -360,7 +361,7 @@ sub init_db_word_rand
   $db_out->[$idx++] = $len_min;
   $db_out->[$idx++] = $len_max;
 
-  for ($idx .. $outputs)
+  for ($idx .. $single_outputs)
   {
     $db_out->[$idx++] = shift @pool;
   }
@@ -389,18 +390,19 @@ sub init_db_salt_rand
     $len_max = ($len_max >= 51) ? 51 : $len_max;
   }
 
-  my $outputs_possible = $len_max - $len_min;
-
-  my $outputs = ($single_outputs < $outputs_possible) ? $single_outputs : $outputs_possible;
-
   my @pool;
 
-  for (my $len = $len_min + 1; $len <= $len_max - 1; $len++)
+  for (my $len = $len_min; $len <= $len_max; $len++)
   {
     push @pool, $len;
   }
 
-  @pool = shuffle (@pool);
+  while (scalar @pool < $single_outputs)
+  {
+    @pool = shuffle (@pool);
+
+    push @pool, $pool[0];
+  }
 
   my $db_out;
 
@@ -409,7 +411,7 @@ sub init_db_salt_rand
   $db_out->[$idx++] = $len_min;
   $db_out->[$idx++] = $len_max;
 
-  for ($idx .. $outputs)
+  for ($idx .. $single_outputs)
   {
     $db_out->[$idx++] = shift @pool;
   }