update random test utilities

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index 0f93d00e6d247bec8944e92602e40fd219b2e181..27ee802b69045334f5eba4d6c741b04e9023f26b 100755 (executable)
--- a/dev-bin/perltidy_random_run.pl
+++ b/dev-bin/perltidy_random_run.pl
@@ -780,6 +780,35 @@ if ($count) {
 if (-s $gfile) {
    print STDERR "please see $gfile\n";
 }
+
+if (-d 'BLINKERS') {
+   print STDERR "BLINKERS directory exists - please check\n";
+}
+my @ERR = glob('*.ERR');
+if (@ERR) {
+   my $num=@ERR;
+   print STDERR "Found $num .ERR files\n";
+}
+
+# Backup 'nohup.my'
+my $basename = 'nohup.my';
+if ( -e $basename ) {
+    my $ext;
+    my $bname;
+    for ( my $j = 1 ; $j < 99 ; $j++ ) {
+        $ext   = 'ba' . $j;
+        $bname = "$basename.$ext";
+        next if ( -e $bname );
+        system "mv $basename $bname";
+        last;
+    }
+    if ($bname) {
+        print "Moved $basename -> $bname\n";
+    }
+    else {
+        die "too many backup versions of $basename - move some\n";
+    }
+}
 EOM
         close RUN;
         system("chmod +x $runme");

diff --git a/dev-bin/perltidy_random_setup.pl b/dev-bin/perltidy_random_setup.pl
index be7509dfd8d5e7a45358ee8374c4a1a1cb8b4b9b..f37546642b7a104e02279a40a71c99a8bb6a4315 100755 (executable)
--- a/dev-bin/perltidy_random_setup.pl
+++ b/dev-bin/perltidy_random_setup.pl
@@ -1001,7 +1001,7 @@ EOM
             }
         }
         my $max_cases =
-          get_num( "Number of new random profiles to generate", 50 );
+          get_num( "Number of new random profiles to generate", 10000 );
         for ( 1 .. $max_cases ) {
             $case += 1;
             my $profile = "profile.$case";