diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-22 21:41:19 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-02-22 21:41:19 +0000 |
| commit | 0fc227499f3b1a08ca3d1762feeff868ddd72895 (patch) | |
| tree | 362252b93bb2829900140c5deba1faef8ebac59d /lib/sbin | |
| parent | 80f1d7af7e315e18acbcbd056a62d70a2bf8c19b (diff) | |
Untabified.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2039 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
| -rw-r--r-- | lib/sbin/Runtest.pl | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lib/sbin/Runtest.pl b/lib/sbin/Runtest.pl index 1b06b589..f9369882 100644 --- a/lib/sbin/Runtest.pl +++ b/lib/sbin/Runtest.pl @@ -138,12 +138,12 @@ foreach $t (@testfiles) { if($line =~ m/(.*)\"/) { - $activethorns[$ntests] .= $1; - $processing_active = 0; + $activethorns[$ntests] .= $1; + $processing_active = 0; } else { - $activethorns[$ntests] .= $line; + $activethorns[$ntests] .= $line; } } elsif ($line =~ m/^\s*\!\s*DESC(RIPTION)?\s*\"(.*)\"\s*$/i) @@ -183,7 +183,7 @@ foreach $t (@testfiles) $thornpart = "\U$1"; if ($thornpart eq $th) { - $foundit = 1; + $foundit = 1; } } if (!$foundit) @@ -310,11 +310,11 @@ else { if($havethorns{$inp{$testnum[$i]}}) { - $number = $i+1; + $number = $i+1; } else { - $number = "x"; + $number = "x"; } print "[$number] $testthorns[$i] $testnum[$i]: \n \"$testnames[$i]\"\n"; } @@ -329,14 +329,14 @@ else { if($choice > 0 && $choice <= $ntests) { - if($havethorns{$ip}) - { - &runtest($ip,$thorn,$choice-1); - } - else - { - print "This test cannot be run - missing thorns\n"; - } + if($havethorns{$ip}) + { + &runtest($ip,$thorn,$choice-1); + } + else + { + print "This test cannot be run - missing thorns\n"; + } } } if (!($choice =~ m/^q/i)) |