Author: paultcochrane
Date: Wed Apr 11 14:06:01 2007
New Revision: 18151
Modified:
trunk/t/codingstd/linelength.t
trunk/t/codingstd/perlcritic.t
trunk/t/compilers/imcc/syn/pod.t
trunk/t/configure/01-options.t
trunk/t/configure/02-messages.t
trunk/t/doc/pod.t
trunk/t/examples/shootout.t
trunk/t/op/stringu.t
trunk/t/pmc/class.t
trunk/t/pmc/exporter.t
trunk/t/pmc/iterator.t
trunk/t/pmc/namespace.t
trunk/t/pmc/pccmethod_test.t
trunk/t/stm/llqueue.t
trunk/t/tools/ops2cutils/01-new.t
trunk/t/tools/pmc2cutils/05-gen_c.t
Log:
[t] Tidied code with perltidy
Modified: trunk/t/codingstd/linelength.t
==============================================================================
--- trunk/t/codingstd/linelength.t (original)
+++ trunk/t/codingstd/linelength.t Wed Apr 11 14:06:01 2007
@@ -37,7 +37,6 @@
use Parrot::Config;
use ExtUtils::Manifest qw( maniread );
-
# a list of languages where we want to test line length
our $include_languages = {};
$include_languages->{$_} = 1 for qw{
@@ -55,9 +54,8 @@
# XXX this should really be using src_dir instead of build_dir but it
# doesn't exist (yet)
-my $build_dir = $PConfig{build_dir};
-my $manifest = maniread(File::Spec->catfile($build_dir, 'MANIFEST'));
-
+my $build_dir = $PConfig{build_dir};
+my $manifest = maniread( File::Spec->catfile( $build_dir, 'MANIFEST' ) );
# skip files listed in the __DATA__ section
my $skip_files = {};
@@ -71,7 +69,6 @@
# find the files that we need to check
my @files = @ARGV ? @ARGV : source_files();
-
# check all the files and keep a list of those failing
my @lines_too_long;
foreach my $file (@files) {
@@ -79,19 +76,14 @@
if line_too_long($file);
}
-
## L<PDD07/Code Formatting/"Source line width is limited to 100 characters">
ok( !scalar(@lines_too_long), 'Line length ok' )
or diag( "Lines longer than coding standard limit in "
. scalar @lines_too_long
. " files:[EMAIL PROTECTED]" );
-
-
exit;
-
-
sub line_too_long {
my $file = shift;
@@ -104,11 +96,10 @@
return;
}
-
sub source_files {
my @files;
foreach my $file ( sort keys(%$manifest) ) {
- my $full_path = File::Spec->catfile($build_dir, $file);
+ my $full_path = File::Spec->catfile( $build_dir, $file );
# skip binary files (including .pbc files)
next if -B $full_path;
Modified: trunk/t/codingstd/perlcritic.t
==============================================================================
--- trunk/t/codingstd/perlcritic.t (original)
+++ trunk/t/codingstd/perlcritic.t Wed Apr 11 14:06:01 2007
@@ -62,7 +62,7 @@
@files = map { $_->path } $DIST->get_perl_language_files();
# Skip any language files...
- my $languages_dir = File::Spec->catdir($PConfig{build_dir}, 'languages');
+ my $languages_dir = File::Spec->catdir( $PConfig{build_dir}, 'languages' );
@files = grep { !m{\Q$languages_dir\E} } @files;
}
else {
@@ -125,7 +125,7 @@
# Add Perl::Critic::Bangs if it exists
eval { require Perl::Critic::Bangs; };
- if ( $@ ) {
+ if ($@) {
diag "Perl::Critic::Bangs not installed: not testing for TODO items in
code";
}
else {
Modified: trunk/t/compilers/imcc/syn/pod.t
==============================================================================
--- trunk/t/compilers/imcc/syn/pod.t (original)
+++ trunk/t/compilers/imcc/syn/pod.t Wed Apr 11 14:06:01 2007
@@ -63,8 +63,8 @@
close FOO;
SKIP: {
- skip("Closing out of pod from included files", 1);
-pir_output_is( <<'CODE', <<'OUT', "simple pod" );
+ skip( "Closing out of pod from included files", 1 );
+ pir_output_is( <<'CODE', <<'OUT', "simple pod" );
.include "include.tempfile"
.sub test :main
print "pass\n"
@@ -77,8 +77,6 @@
unlink("macro.tempfile");
-
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: trunk/t/configure/01-options.t
==============================================================================
--- trunk/t/configure/01-options.t (original)
+++ trunk/t/configure/01-options.t Wed Apr 11 14:06:01 2007
@@ -22,24 +22,25 @@
use Test::More tests => 33;
use Carp;
use lib ("lib");
-use_ok('Parrot::Configure::Options', qw|
- process_options
- get_valid_options
-| );
+use_ok(
+ 'Parrot::Configure::Options', qw|
+ process_options
+ get_valid_options
+ |
+);
use_ok("Parrot::IO::Capture::Mini");
-
my %valid;
my $badoption = q{samsonanddelilah};
-%valid = map {$_, 1} get_valid_options();
-ok(scalar keys %valid, "non-zero quantity of valid options found");
-ok(defined $valid{debugging}, "debugging option found");
-ok(defined $valid{maintainer}, "maintainer option found");
-ok(defined $valid{help}, "help option found");
-ok(defined $valid{version}, "version option found");
-ok(defined $valid{verbose}, "verbose option found");
-ok(! defined $valid{$badoption}, "invalid option not found");
+%valid = map { $_, 1 } get_valid_options();
+ok( scalar keys %valid, "non-zero quantity of valid options found" );
+ok( defined $valid{debugging}, "debugging option found" );
+ok( defined $valid{maintainer}, "maintainer option found" );
+ok( defined $valid{help}, "help option found" );
+ok( defined $valid{version}, "version option found" );
+ok( defined $valid{verbose}, "verbose option found" );
+ok( !defined $valid{$badoption}, "invalid option not found" );
open my $FH, "$main::topdir/Configure.pl"
or croak "Unable to open handle to Configure.pl";
@@ -52,189 +53,205 @@
# Ignore any POD I have moved to an __END__ block.
$bigstr =~ s/__END__.*//s;
-my (@lines, @possible_methods);
[EMAIL PROTECTED] = grep { /^=item/ } (split /\n/, $bigstr);
+my ( @lines, @possible_methods );
[EMAIL PROTECTED] = grep { /^=item/ } ( split /\n/, $bigstr );
foreach my $l (@lines) {
my $method;
- if ($l =~ /^=item C<--([-_\w]+)(?:[=>])/) {
+ if ( $l =~ /^=item C<--([-_\w]+)(?:[=>])/ ) {
$method = $1;
push @possible_methods, $method;
}
}
my $invalid = 0;
foreach my $m (@possible_methods) {
- unless (defined $valid{$m}) {
+ unless ( defined $valid{$m} ) {
carp "Possibly invalid method: $m";
$invalid++;
}
}
-ok(! $invalid, "No invalid methods described in POD");
+ok( !$invalid, "No invalid methods described in POD" );
my $parrot_version = '0.4.10';
-my $svnid = '$Id$';
+my $svnid = '$Id$';
my ($args);
-$args = process_options( {
- argv => [],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args, "process_options() returned successfully");
-ok($args->{debugging}, "debugging turned on by default");
-
-eval {
- $args = process_options( {
- argv => [],
- script => $0,
- svnid => $svnid,
- } );
-};
-like($@, qr/Must provide argument 'parrot_version'/,
- "process_options() failed due to lack of argument 'parrot_version'");
+$args = process_options(
+ {
+ argv => [],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully" );
+ok( $args->{debugging}, "debugging turned on by default" );
+
+eval { $args = process_options( { argv => [], script => $0, svnid => $svnid, }
); };
+like(
+ $@,
+ qr/Must provide argument 'parrot_version'/,
+ "process_options() failed due to lack of argument 'parrot_version'"
+);
eval {
- $args = process_options( {
- argv => [],
- script => $0,
- parrot_version => $parrot_version,
- } );
+ $args = process_options(
+ {
+ argv => [],
+ script => $0,
+ parrot_version => $parrot_version,
+ }
+ );
};
-like($@, qr/Must provide argument 'svnid'/,
- "process_options() failed due to lack of argument 'svnid'");
-
-$args = process_options( {
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args,
- "process_options() returned successfully even though no explicit 'argv'
key was provided");
-
-$args = process_options( {
- argv => [],
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args,
- "process_options() returned successfully even though no explicit 'scripts'
key was provided");
+like(
+ $@,
+ qr/Must provide argument 'svnid'/,
+ "process_options() failed due to lack of argument 'svnid'"
+);
+
+$args = process_options(
+ {
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args,
+ "process_options() returned successfully even though no explicit 'argv'
key was provided" );
+
+$args = process_options(
+ {
+ argv => [],
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args,
+ "process_options() returned successfully even though no explicit 'scripts'
key was provided" );
my $CC = "/usr/bin/gcc-3.3";
my $CX = "/usr/bin/g++-3.3";
-$args = process_options( {
- argv => [
- q{--cc=$CC},
- q{--cxx=$CX},
- q{--link=$CX},
- q{--ld=$CX},
- q{--without-icu},
- q{--without-gmp},
- ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args,
- "process_options() returned successfully when options were specified");
+$args = process_options(
+ {
+ argv => [
+ q{--cc=$CC}, q{--cxx=$CX}, q{--link=$CX}, q{--ld=$CX},
+ q{--without-icu}, q{--without-gmp},
+ ],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully when options were
specified" );
eval {
- $args = process_options( {
- argv => [ qq<--${badoption}=72> ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
- } );
+ $args = process_options(
+ {
+ argv => [qq<--${badoption}=72>],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+ );
};
-like($@, qr/^Invalid option $badoption/,
- "process_options() failed due to bad option '$badoption'");
+like(
+ $@,
+ qr/^Invalid option $badoption/,
+ "process_options() failed due to bad option '$badoption'"
+);
{
- my ($tie, $rv, $msg);
+ my ( $tie, $rv, $msg );
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
- or croak "Unable to tie";
- $args = process_options( {
- argv => [ q{--help} ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
- } );
- ok(! defined $args,
- "process_options() returned undef after 'help' option");
+ or croak "Unable to tie";
+ $args = process_options(
+ {
+ argv => [q{--help}],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+ );
+ ok( !defined $args, "process_options() returned undef after 'help' option"
);
$msg = $tie->READLINE;
- like($msg, qr/--help/i,
- "got correct message after 'version' option");
+ like( $msg, qr/--help/i, "got correct message after 'version' option" );
}
{
- my ($tie, $rv, $msg);
+ my ( $tie, $rv, $msg );
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
- or croak "Unable to tie";
- $args = process_options( {
- argv => [ q{--} ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
- } );
- ok(! defined $args,
- "process_options() returned undef after 'help' option: case '--'");
+ or croak "Unable to tie";
+ $args = process_options(
+ {
+ argv => [q{--}],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+ );
+ ok( !defined $args, "process_options() returned undef after 'help' option:
case '--'" );
$msg = $tie->READLINE;
- like($msg, qr/--help/i,
- "got correct message after 'version' option");
+ like( $msg, qr/--help/i, "got correct message after 'version' option" );
}
{
- my ($tie, $rv, $msg);
+ my ( $tie, $rv, $msg );
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
- or croak "Unable to tie";
- $args = process_options( {
- argv => [ q{--version} ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
- } );
- ok(! defined $args,
- "process_options() returned undef after 'version' option");
+ or croak "Unable to tie";
+ $args = process_options(
+ {
+ argv => [q{--version}],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+ );
+ ok( !defined $args, "process_options() returned undef after 'version'
option" );
$msg = $tie->READLINE;
- like($msg, qr/Parrot Version/i,
- "got correct message after 'version' option");
+ like( $msg, qr/Parrot Version/i, "got correct message after 'version'
option" );
}
-$args = process_options( {
- argv => [ q{--lex}, ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args,
- "process_options() returned successfully after 'lex' option");
-ok($args->{maintainer}, "'maintainer' attribute is true after 'lex' option");
-
-$args = process_options( {
- argv => [ q{--yacc}, ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args,
- "process_options() returned successfully after 'yacc' option");
-ok($args->{maintainer}, "'maintainer' attribute is true after 'yacc' option");
-
-$args = process_options( {
- argv => [ q{--debugging=1} ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args, "process_options() returned successfully");
-ok($args->{debugging}, "debugging turned on explicitly");
-
-$args = process_options( {
- argv => [ q{--debugging=0} ],
- script => $0,
- parrot_version => $parrot_version,
- svnid => $svnid,
-} );
-ok(defined $args, "process_options() returned successfully");
-ok(! $args->{debugging}, "debugging explicitly turned off");
+$args = process_options(
+ {
+ argv => [ q{--lex}, ],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully after 'lex'
option" );
+ok( $args->{maintainer}, "'maintainer' attribute is true after 'lex' option" );
+
+$args = process_options(
+ {
+ argv => [ q{--yacc}, ],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully after 'yacc'
option" );
+ok( $args->{maintainer}, "'maintainer' attribute is true after 'yacc' option"
);
+
+$args = process_options(
+ {
+ argv => [q{--debugging=1}],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully" );
+ok( $args->{debugging}, "debugging turned on explicitly" );
+
+$args = process_options(
+ {
+ argv => [q{--debugging=0}],
+ script => $0,
+ parrot_version => $parrot_version,
+ svnid => $svnid,
+ }
+);
+ok( defined $args, "process_options() returned successfully" );
+ok( !$args->{debugging}, "debugging explicitly turned off" );
pass("Completed all tests in $0");
Modified: trunk/t/configure/02-messages.t
==============================================================================
--- trunk/t/configure/02-messages.t (original)
+++ trunk/t/configure/02-messages.t Wed Apr 11 14:06:01 2007
@@ -21,49 +21,47 @@
}
use Test::More tests => 10;
use Carp;
-use_ok('Parrot::Configure::Messages', qw|
- print_introduction
- print_conclusion
-| );
+use_ok(
+ 'Parrot::Configure::Messages', qw|
+ print_introduction
+ print_conclusion
+ |
+);
use_ok("Parrot::IO::Capture::Mini");
my $parrot_version = '0.4.10';
-my $make_version = 'gnu make';
+my $make_version = 'gnu make';
{
- my ($tie, $rv, $msg);
+ my ( $tie, $rv, $msg );
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
- or croak "Unable to tie";
+ or croak "Unable to tie";
$rv = print_introduction($parrot_version);
- ok($rv, "print_introduction() returned true");
+ ok( $rv, "print_introduction() returned true" );
$msg = $tie->READLINE;
# Following test is definitive.
- like($msg, qr/$parrot_version/,
- "Message included Parrot version number supplied as argument");
+ like( $msg, qr/$parrot_version/,
+ "Message included Parrot version number supplied as argument" );
# Following tests are NOT definitive. They will break if content of
# strings printed by function is changed.
- like($msg, qr/Parrot\sVersion/i,
- "Message included string 'Parrot version'");
- like($msg, qr/Configure/i,
- "Message included string 'Configure'");
- like($msg, qr/Copyright/i,
- "Message included copyright notice");
+ like( $msg, qr/Parrot\sVersion/i, "Message included string 'Parrot
version'" );
+ like( $msg, qr/Configure/i, "Message included string 'Configure'" );
+ like( $msg, qr/Copyright/i, "Message included copyright notice" );
undef $tie;
}
{
- my ($tie, $rv, $msg);
+ my ( $tie, $rv, $msg );
$tie = tie *STDOUT, "Parrot::IO::Capture::Mini"
- or croak "Unable to tie";
+ or croak "Unable to tie";
$rv = print_conclusion($make_version);
- ok($rv, "print_conclusion() returned true");
+ ok( $rv, "print_conclusion() returned true" );
$msg = $tie->READLINE;
# Following test is definitive.
- like($msg, qr/$make_version/,
- "Message included make version supplied as argument");
+ like( $msg, qr/$make_version/, "Message included make version supplied as
argument" );
undef $tie;
}
Modified: trunk/t/doc/pod.t
==============================================================================
--- trunk/t/doc/pod.t (original)
+++ trunk/t/doc/pod.t Wed Apr 11 14:06:01 2007
@@ -90,7 +90,7 @@
my $file = shift;
my $checker = Pod::Simple->new;
- $checker->output_string( \my $trash ); # Ignore any output
+ $checker->output_string( \my $trash ); # Ignore any output
$checker->parse_file($file);
return !$checker->any_errata_seen;
Modified: trunk/t/examples/shootout.t
==============================================================================
--- trunk/t/examples/shootout.t (original)
+++ trunk/t/examples/shootout.t Wed Apr 11 14:06:01 2007
@@ -84,8 +84,10 @@
}
unless ( $PConfig{cg_flag} =~ /HAVE/ ) {
$args =~ s/-Cj/-j/;
+
# Remove any plain -C option.
$args =~ s/(^|\s)-C(\s|$)/$1$2/;
+
# Remove any extra Cs still floating around
$args =~ s/C//;
}
Modified: trunk/t/op/stringu.t
==============================================================================
--- trunk/t/op/stringu.t (original)
+++ trunk/t/op/stringu.t Wed Apr 11 14:06:01 2007
@@ -328,8 +328,9 @@
SKIP: {
skip "Tests seem to fail on big endian machines with icu", 2 if
$PConfig{byteorder} eq '4321';
-# Tests for .CCLASS_NUMERIC
-pir_output_is( <<'CODE', <<'OUTPUT', "CCLASS_NUMERIC in unicode" );
+
+ # Tests for .CCLASS_NUMERIC
+ pir_output_is( <<'CODE', <<'OUTPUT', "CCLASS_NUMERIC in unicode" );
.sub main
.include 'cclass.pasm'
.local string s
@@ -355,9 +356,9 @@
1102269
OUTPUT
-# Concatenate unicode: with iso-8859-1; RT #39930 if no icu
-pir_output_is(
- <<'CODE', <<"OUTPUT", "Concat unicode with iso-8859-1", $PConfig{has_icu}
? () : ( todo => 'RT #39930' ) );
+ # Concatenate unicode: with iso-8859-1; RT #39930 if no icu
+ pir_output_is(
+ <<'CODE', <<"OUTPUT", "Concat unicode with iso-8859-1",
$PConfig{has_icu} ? () : ( todo => 'RT #39930' ) );
.sub main
$S0 = unicode:"A"
$S1 = ascii:"B"
Modified: trunk/t/pmc/class.t
==============================================================================
--- trunk/t/pmc/class.t (original)
+++ trunk/t/pmc/class.t Wed Apr 11 14:06:01 2007
@@ -161,7 +161,7 @@
## A: it has no attributes by default
# L<PDD15/Class PMC API/=item add_attribute>
-pir_output_is( <<'CODE', <<'OUT', 'add_attribute');
+pir_output_is( <<'CODE', <<'OUT', 'add_attribute' );
.sub 'test' :main
new $P0, .Class
Modified: trunk/t/pmc/exporter.t
==============================================================================
--- trunk/t/pmc/exporter.t (original)
+++ trunk/t/pmc/exporter.t Wed Apr 11 14:06:01 2007
@@ -40,7 +40,6 @@
ok 2 - isa $P0, 'Exporter'
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'source' );
.sub 'test' :main
new $P0, .Exporter
@@ -93,7 +92,6 @@
ok 4 - source() with non-namespace arg throws exception
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'destination' );
.sub 'test' :main
new $P0, .Exporter
@@ -153,7 +151,6 @@
ok 5 - destination() with non-namespace arg throws exception
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'globals' );
.sub 'test' :main
$P0 = new .Exporter
@@ -220,7 +217,6 @@
ok 4 - globals() with too many args fails
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'add_global' );
.sub 'test' :main
$P0 = new .Exporter
@@ -274,7 +270,6 @@
ok 4 - add_global() with too many args fails
OUT
-
## TODO import
pir_output_like( <<'CODE', <<'OUT', 'import - no args' );
.sub 'test' :main
@@ -288,7 +283,6 @@
/^source namespace not set\n/
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'import - same source and destination
namespaces' );
.sub 'test' :main
.local pmc exporter, src
@@ -315,7 +309,6 @@
ok 1
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'import - globals as string' );
.sub 'test' :main
load_bytecode 'Test/More.pir'
@@ -333,7 +326,6 @@
ok 1
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'import - globals as array' );
.sub 'test' :main
load_bytecode 'Test/More.pir'
@@ -354,7 +346,6 @@
ok 1
OUT
-
pir_output_is( <<'CODE', <<'OUT', 'import - globals with destination' );
.sub 'test' :main
load_bytecode 'Test/More.pir'
@@ -383,7 +374,6 @@
ok 1
OUT
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: trunk/t/pmc/iterator.t
==============================================================================
--- trunk/t/pmc/iterator.t (original)
+++ trunk/t/pmc/iterator.t Wed Apr 11 14:06:01 2007
@@ -1363,7 +1363,7 @@
ok
OUTPUT
-pir_output_is(<<'CODE', <<'OUTPUT', "clone of partly-advanced iterator");
+pir_output_is( <<'CODE', <<'OUTPUT', "clone of partly-advanced iterator" );
.sub main :main
.local pmc ar, i1, i2
.local Integer temp
Modified: trunk/t/pmc/namespace.t
==============================================================================
--- trunk/t/pmc/namespace.t (original)
+++ trunk/t/pmc/namespace.t Wed Apr 11 14:06:01 2007
@@ -657,7 +657,6 @@
OUTPUT
}
-
open $S, '>', "$temp_b.pir" or die "Can't write $temp_b.pir";
print $S <<'EOF';
.HLL 'B', ''
@@ -667,8 +666,7 @@
EOF
close $S;
-
-pir_output_like(<<'CODE', <<'OUTPUT', 'export_to() with null destination
throws exception');
+pir_output_like( <<'CODE', <<'OUTPUT', 'export_to() with null destination
throws exception' );
.sub 'test' :main
.local pmc nsa, nsb, ar
@@ -686,8 +684,8 @@
/^destination namespace not specified\n/
OUTPUT
-
-pir_output_like(<<'CODE', <<'OUTPUT', 'export_to() with null array exports
default boject set !!!UNSPECIFIED!!!');
+pir_output_like(
+ <<'CODE', <<'OUTPUT', 'export_to() with null array exports default boject
set !!!UNSPECIFIED!!!' );
.sub 'test' :main
.local pmc nsa, nsb, ar
@@ -704,8 +702,8 @@
/^exporting default object set not yet specified\n/
OUTPUT
-
-pir_output_like(<<'CODE', <<'OUTPUT', 'export_to() with empty array exports
default boject set !!!UNSPECIFIED!!!');
+pir_output_like(
+ <<'CODE', <<'OUTPUT', 'export_to() with empty array exports default boject
set !!!UNSPECIFIED!!!' );
.sub 'test' :main
.local pmc nsa, nsb, ar
@@ -722,7 +720,6 @@
/^exporting default object set not yet specified\n/
OUTPUT
-
pir_output_is( <<"CODE", <<'OUTPUT', "export_to -- success" );
.HLL 'A', ''
.sub main :main
Modified: trunk/t/pmc/pccmethod_test.t
==============================================================================
--- trunk/t/pmc/pccmethod_test.t (original)
+++ trunk/t/pmc/pccmethod_test.t Wed Apr 11 14:06:01 2007
@@ -33,8 +33,7 @@
10, 20
OUT
-pir_output_is(
- <<'CODE', <<'OUT', 'optional args and multiple returns' );
+pir_output_is( <<'CODE', <<'OUT', 'optional args and multiple returns' );
.sub main :main
$P0 = new 'PCCMETHOD_Test'
$P0.'test_method0'(1)
Modified: trunk/t/stm/llqueue.t
==============================================================================
--- trunk/t/stm/llqueue.t (original)
+++ trunk/t/stm/llqueue.t Wed Apr 11 14:06:01 2007
@@ -56,7 +56,7 @@
0123
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', "Add, remove, several threads", todo =>
'RT#41892');
+pir_output_is( <<'CODE', <<'OUTPUT', "Add, remove, several threads", todo =>
'RT#41892' );
.sub add_thread
.param pmc queue
.param int start
Modified: trunk/t/tools/ops2cutils/01-new.t
==============================================================================
--- trunk/t/tools/ops2cutils/01-new.t (original)
+++ trunk/t/tools/ops2cutils/01-new.t Wed Apr 11 14:06:01 2007
@@ -196,7 +196,6 @@
=cut
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
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 Wed Apr 11 14:06:01 2007
@@ -283,10 +283,7 @@
my $temppmcdir = qq{$tdir/src/pmc};
ok( ( mkdir $temppmcdir ), "created src/pmc/ under tempdir" );
- my @pmcfiles = (
- "$main::topdir/src/pmc/default.pmc",
- "$main::topdir/src/pmc/class.pmc",
- );
+ my @pmcfiles = ( "$main::topdir/src/pmc/default.pmc",
"$main::topdir/src/pmc/class.pmc", );
my $pmcfilecount = scalar(@pmcfiles);
my $copycount;
foreach my $pmcfile (@pmcfiles) {
