Author: paultcochrane
Date: Mon Jun 4 00:35:02 2007
New Revision: 18799
Modified:
trunk/t/configure/25-options_test.t
trunk/t/run/options.t
trunk/t/tools/ops2pmutils/08-sort_ops.t
trunk/t/tools/pmc2cutils/05-gen_c.t
Log:
[t] Removed trailing whitespace
Modified: trunk/t/configure/25-options_test.t
==============================================================================
--- trunk/t/configure/25-options_test.t (original)
+++ trunk/t/configure/25-options_test.t Mon Jun 4 00:35:02 2007
@@ -63,25 +63,25 @@
my $reason = q{Devel::Cover gags on this test};
- @Parrot::Configure::Options::Test::preconfiguration_tests =
+ @Parrot::Configure::Options::Test::preconfiguration_tests =
( $test );
{
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
or croak "Unable to tie";
SKIP: {
- skip $reason, 1 if $ENV{PERL5OPT};
+ skip $reason, 1 if $ENV{PERL5OPT};
ok($opttest->run_configure_tests(),
"Configuration tests are runnable");
}
}
- @Parrot::Configure::Options::Test::postconfiguration_tests =
+ @Parrot::Configure::Options::Test::postconfiguration_tests =
( $test );
{
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
or croak "Unable to tie";
SKIP: {
- skip $reason, 1 if $ENV{PERL5OPT};
+ skip $reason, 1 if $ENV{PERL5OPT};
ok($opttest->run_build_tests(),
"Build tests are runnable");
}
Modified: trunk/t/run/options.t
==============================================================================
--- trunk/t/run/options.t (original)
+++ trunk/t/run/options.t Mon Jun 4 00:35:02 2007
@@ -48,7 +48,7 @@
my $redir = '2>' . File::Spec->devnull;
# --pre-process-only
-# This is just sanity testing
+# This is just sanity testing
# Coredumps after the output has been written are ignored
is( `"$PARROT" -E "$first" $redir`, <<'END_EXPECTED', 'option -E' );
.sub main :main
Modified: trunk/t/tools/ops2pmutils/08-sort_ops.t
==============================================================================
--- trunk/t/tools/ops2pmutils/08-sort_ops.t (original)
+++ trunk/t/tools/ops2pmutils/08-sort_ops.t Mon Jun 4 00:35:02 2007
@@ -247,7 +247,7 @@
ok( $self->sort_ops(), "sort_ops returned successfully" );
$msg = $tie->READLINE;
untie *STDERR;
-
+
like(
$msg,
qr|not in ops\.num nor ops\.skip|,
Modified: trunk/t/tools/pmc2cutils/05-gen_c.t
==============================================================================
--- trunk/t/tools/pmc2cutils/05-gen_c.t (original)
+++ trunk/t/tools/pmc2cutils/05-gen_c.t Mon Jun 4 00:35:02 2007
@@ -84,7 +84,7 @@
untie *STDERR or croak "Unable to untie";
ok( $rv, "gen_c completed successfully; args: default.pmc" );
$msg = join("\n", @lines);
- like( $msg,
+ like( $msg,
$warnpattern,
"Warnings from Parrot::Pmc2c re 4 unknown methods have been
captured"
);
@@ -138,7 +138,7 @@
untie *STDERR or croak "Unable to untie";
ok( $rv, "gen_c completed successfully; args: default.pmc and
array.pmc" );
$msg = join("\n", @lines);
- like( $msg,
+ like( $msg,
$warnpattern,
"Warnings from Parrot::Pmc2c re 4 unknown methods have been
captured"
);
@@ -198,7 +198,7 @@
ok( $rv, "gen_c completed successfully; args: default.pmc" );
like( $dmsg, qr{src/pmc/default\.pmc}, "debug option worked" );
$msg = join("\n", @lines);
- like( $msg,
+ like( $msg,
$warnpattern,
"Warnings from Parrot::Pmc2c re 4 unknown methods have been
captured"
);
@@ -271,7 +271,7 @@
ok( $rv, "gen_c completed successfully; args: default.pmc" );
like( $dmsg, qr{src/pmc/default\.pmc}, "debug option worked" );
$msg = join("\n", @lines);
- like( $msg,
+ like( $msg,
$warnpattern,
"Warnings from Parrot::Pmc2c re 4 unknown methods have been
captured"
);
@@ -368,7 +368,7 @@
untie *STDERR or croak "Unable to untie";
ok( $rv, "gen_c completed successfully; args: default.pmc and
class.pmc" );
$msg = join("\n", @lines);
- like( $msg,
+ like( $msg,
$warnpattern,
"Warnings from Parrot::Pmc2c re 4 unknown methods have been
captured"
);
