Author: paultcochrane
Date: Wed Apr 11 14:04:38 2007
New Revision: 18150
Modified:
trunk/compilers/pirc/t/pirc.t
Log:
[pirc] Tidied code with perltidy
Modified: trunk/compilers/pirc/t/pirc.t
==============================================================================
--- trunk/compilers/pirc/t/pirc.t (original)
+++ trunk/compilers/pirc/t/pirc.t Wed Apr 11 14:04:38 2007
@@ -16,6 +16,7 @@
# calculate number of tests:
BEGIN {
+
# test all files in current directory
my $dir = ".";
@@ -28,8 +29,6 @@
}
-
-
# set number of tests to be run
use Parrot::Test tests => $numtests;
@@ -37,17 +36,15 @@
my $count = 1;
foreach my $file (@files) {
+
# skip this file
next if $file eq "./pirc.t";
my $cmd = "../pirc $file";
run_command($cmd);
- ok($count, "");
+ ok( $count, "" );
$count++;
}
-
-
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
