From 477f2489f2a1e91667f923c9d4681456a8e7a4c4 Mon Sep 17 00:00:00 2001
From: Jules Laplace <julescarbon@gmail.com>
Date: Tue, 5 Jun 2018 00:11:16 +0200
Subject: flush database

---
 test/module/test.pl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'test/module')

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;
   }
-- 
cgit v1.2.3-70-g09d2