From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 17 Jul 2022 14:19:23 +0000 (-0700)
Subject: update random test utilities
X-Git-Tag: 20220613.03~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eeaa488c887a562576c4c46a7cde1e22534570d6;p=perltidy.git

update random test utilities
---

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index 0f93d00e..27ee802b 100755
--- 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 be7509df..f3754664 100755
--- 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";