Implemented specification of delay and repeat count

bin/autotest.pl

@@ -22,8 +22,10 @@ use warnings;
 use File::Spec;
 
 my $PLATFORM    = (-d "c:\\windows" ? 'windows' : 'unix' );
+my $DELAY       = 5;
 my $COLORS      = { windows => { ok => 'color 0a', nok => 'color 0c' } };
 my $DUMPS       = "dumps";
+my $REPEAT      = 1;
 my $TESTS       = "t";
 
 
@@ -86,7 +88,7 @@ sub freakout {
 
 mkdir $DUMPS unless -d $DUMPS;
 
-while (1) {
+do {
     my @paths = glob "$TESTS/*.t";
     &clear;
     color "ok";
@@ -97,6 +99,6 @@ while (1) {
     } else {
         &freakout();
     }
-    sleep 5;
-}
+    sleep $DELAY if $REPEAT;
+} while ($REPEAT);