flush database

1 files changed, 10 insertions, 3 deletions

diff --git a/test/module/test.pl b/test/module/test.pl
index 5e25d84..1fad6c7 100755
--- a/test/module/test.pl
+++ b/test/module/test.pl
@@ -10,7 +10,8 @@ my $train;
 my $test;
 GetOptions (
   "train"  => \$train,
-  "test"  => \$test
+  "test"  => \$test,
+  "wait"  => \$wait,
 )
 or die("Error in command line arguments\n");
 
@@ -18,13 +19,19 @@ print "hello i am a perl script :o)\n";
 
 if ($train) {
   print "we are training...\n";
-  for (my $i = 0; $i < 10; $i++) {
+  for (my $i = 0; $i < 11; $i++) {
     print "$i...\n";
     sleep 1;
   }
 } elsif ($test) {
   print "we are testing...\n";
-  for (my $i = 0; $i < 10; $i++) {
+  for (my $i = 0; $i < 11; $i++) {
+    print "$i...\n";
+    sleep 1;
+  }
+} elsif ($wait) {
+  print "we are waiting...\n";
+  for (my $i = 0; $i < 5; $i++) {
     print "$i...\n";
     sleep 1;
   }