|
|
Author: paultcochrane
Date: Thu Oct 25 15:04:27 2007
New Revision: 22492
Modified:
trunk/t/distro/file_metadata.t
trunk/t/distro/test_file_coverage.t
trunk/t/library/protoobject.t
trunk/t/manifest/02-regenerate_file.t
trunk/t/manifest/03-regenerate_skip.t
trunk/t/oo/isa.t
trunk/t/oo/methods.t
trunk/t/oo/new.t
trunk/t/oo/proxy.t
trunk/t/oo/subclass.t
trunk/t/op/cc_params.t
trunk/t/perl/Parrot_Docs.t
trunk/t/pmc/continuation.t
trunk/t/pmc/object-meths.t
trunk/t/pmc/objects.t
trunk/t/pmc/pmc.t
trunk/t/pmc/sub.t
trunk/t/pmc/threads.t
trunk/t/postconfigure/05-trace.t
trunk/t/run/options.t
trunk/t/stm/queue.t
Log:
[t] Perltidying...
Modified: trunk/t/distro/file_metadata.t
==============================================================================
--- trunk/t/distro/file_metadata.t (original)
+++ trunk/t/distro/file_metadata.t Thu Oct 25 15:04:27 2007
@@ -260,8 +260,8 @@
return unless $sub;
return unless @list;
- while ( @list ) {
- $count = @list if $count > @list;
+ while (@list) {
+ $count = @list if $count > @list;
my @sublist = splice @list, 0, $count;
$sub->(@sublist);
}
@@ -319,7 +319,7 @@
return \%results;
}
-sub verify_attributes {
+sub verify_attributes {
my $attribute = shift; # name of the attribute
my $expected = shift; # the expected value
my $exact = shift; # should this be an exact match?
Modified: trunk/t/distro/test_file_coverage.t
==============================================================================
--- trunk/t/distro/test_file_coverage.t (original)
+++ trunk/t/distro/test_file_coverage.t Thu Oct 25 15:04:27 2007
@@ -40,13 +40,13 @@
# find pmc files
find {
no_chdir => 1,
- wanted => sub { files_of_type( \@pmc_files, $pmc_suffix ) },
+ wanted => sub { files_of_type( \@pmc_files, $pmc_suffix ) },
} => catdir( $PConfig{build_dir}, $pmc_dir );
# find test files
find {
no_chdir => 1,
- wanted => sub { files_of_type( \@test_files, $test_suffix ) },
+ wanted => sub { files_of_type( \@test_files, $test_suffix ) },
} => catdir( $PConfig{build_dir}, $test_dir );
my ( $pmc_miss, $test_miss ) = list_diff( \@pmc_files, \@test_files );
Modified: trunk/t/library/protoobject.t
==============================================================================
--- trunk/t/library/protoobject.t (original)
+++ trunk/t/library/protoobject.t Thu Oct 25 15:04:27 2007
@@ -96,8 +96,7 @@
Foo
END_OUT
-
-pir_output_is(<<'END_CODE', <<'END_OUT', 'Protoobject symbol for :: classes');
+pir_output_is( <<'END_CODE', <<'END_OUT', 'Protoobject symbol for :: classes'
);
.sub main :main
load_bytecode 'Protoobject.pbc'
@@ -113,7 +112,7 @@
Foo::Bar
END_OUT
-pir_output_is(<<'END_CODE', <<'END_OUT', 'new_subclass for :: classes');
+pir_output_is( <<'END_CODE', <<'END_OUT', 'new_subclass for :: classes' );
.sub main :main
load_bytecode 'Protoobject.pbc'
@@ -134,7 +133,7 @@
Foo::Bar
END_OUT
-pir_output_is(<<'END_CODE', <<'END_OUT', 'new_subclass with attrs');
+pir_output_is( <<'END_CODE', <<'END_OUT', 'new_subclass with attrs' );
.sub main :main
load_bytecode 'Protoobject.pbc'
@@ -164,7 +163,6 @@
$d
END_OUT
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: trunk/t/manifest/02-regenerate_file.t
==============================================================================
--- trunk/t/manifest/02-regenerate_file.t (original)
+++ trunk/t/manifest/02-regenerate_file.t Thu Oct 25 15:04:27 2007
@@ -56,6 +56,7 @@
my @lines;
tie @lines, 'Tie::File', qq{$tdir/$f}
or croak "Unable to tie to $f in tempdir";
+
for ( 1 .. 10 ) {
if ( defined( $lines[-1] ) ) {
pop @lines;
Modified: trunk/t/manifest/03-regenerate_skip.t
==============================================================================
--- trunk/t/manifest/03-regenerate_skip.t (original)
+++ trunk/t/manifest/03-regenerate_skip.t Thu Oct 25 15:04:27 2007
@@ -54,6 +54,7 @@
my @lines;
tie @lines, 'Tie::File', qq{$tdir/$sk}
or croak "Unable to tie to $sk in tempdir";
+
for ( 1 .. 10 ) {
if ( defined( $lines[-1] ) ) {
pop @lines;
Modified: trunk/t/oo/isa.t
==============================================================================
--- trunk/t/oo/isa.t (original)
+++ trunk/t/oo/isa.t Thu Oct 25 15:04:27 2007
@@ -23,7 +23,7 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'isa by string name');
+pir_output_is( <<'CODE', <<'OUT', 'isa by string name' );
.sub main :main
$P1 = newclass "Foo"
$S1 = typeof $P1
@@ -54,7 +54,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'isa by class object');
+pir_output_is( <<'CODE', <<'OUT', 'isa by class object' );
.sub main :main
.local pmc foo_class
foo_class = newclass "Foo"
@@ -90,7 +90,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'subclass isa by string name');
+pir_output_is( <<'CODE', <<'OUT', 'subclass isa by string name' );
.sub main :main
.local pmc foo_class, bar_class
foo_class = newclass "Foo"
@@ -125,7 +125,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'subclass isa by class object');
+pir_output_is( <<'CODE', <<'OUT', 'subclass isa by class object' );
.sub main :main
.local pmc foo_class, bar_class
foo_class = newclass "Foo"
Modified: trunk/t/oo/methods.t
==============================================================================
--- trunk/t/oo/methods.t (original)
+++ trunk/t/oo/methods.t Thu Oct 25 15:04:27 2007
@@ -84,7 +84,6 @@
in bar_method
OUT
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: trunk/t/oo/new.t
==============================================================================
--- trunk/t/oo/new.t (original)
+++ trunk/t/oo/new.t Thu Oct 25 15:04:27 2007
@@ -537,7 +537,7 @@
data for Foo;Bar
OUT
-pir_output_is( <<'CODE', <<'OUT', 'create class namespace initializer');
+pir_output_is( <<'CODE', <<'OUT', 'create class namespace initializer' );
.sub main :main
.local pmc ns
ns = get_namespace ['Foo';'Bar']
@@ -556,7 +556,7 @@
foo blue
OUT
-pir_output_is( <<'CODE', <<'OUT', 'regression test, instantiate class within
different namespace');
+pir_output_is( <<'CODE', <<'OUT', 'regression test, instantiate class within
different namespace' );
.sub main :main
$P0 = newclass 'Foo'
$P0 = newclass 'Bar'
@@ -581,7 +581,7 @@
bar blue
OUT
-pir_output_is( <<'CODE', <<'OUT', 'get_class retrieves a high-level class
object');
+pir_output_is( <<'CODE', <<'OUT', 'get_class retrieves a high-level class
object' );
.sub main :main
$P0 = newclass 'Foo'
$S1 = typeof $P0
@@ -601,7 +601,7 @@
Foo
OUT
-pir_output_is( <<'CODE', <<'OUT', 'get_class retrieves a proxy class object');
+pir_output_is( <<'CODE', <<'OUT', 'get_class retrieves a proxy class object' );
.sub main :main
$P1 = get_class 'String'
$S1 = typeof $P1
@@ -616,7 +616,7 @@
String
OUT
-pir_output_is( <<'CODE', <<'OUT', "get_class retrieves a class object that
doesn't exist");
+pir_output_is( <<'CODE', <<'OUT', "get_class retrieves a class object that
doesn't exist" );
.sub main :main
$P1 = get_class 'Murple'
if null $P1 goto not_defined
Modified: trunk/t/oo/proxy.t
==============================================================================
--- trunk/t/oo/proxy.t (original)
+++ trunk/t/oo/proxy.t Thu Oct 25 15:04:27 2007
@@ -22,7 +22,7 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'typeof a low-level object');
+pir_output_is( <<'CODE', <<'OUT', 'typeof a low-level object' );
.sub main :main
$P0 = new 'String'
$S1 = typeof $P0
@@ -38,7 +38,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'typeof a high-level object');
+pir_output_is( <<'CODE', <<'OUT', 'typeof a high-level object' );
.sub main :main
$P0 = newclass "Foo"
$P0 = new "Foo"
@@ -59,7 +59,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'typeof a Class object');
+pir_output_is( <<'CODE', <<'OUT', 'typeof a Class object' );
.sub main :main
$P0 = newclass "Foo"
$S1 = typeof $P0
@@ -75,7 +75,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'proxy as parent of class');
+pir_output_is( <<'CODE', <<'OUT', 'proxy as parent of class' );
.sub main :main
$P0 = get_class 'Hash'
$P1 = subclass $P0, [ 'MyClass' ]
@@ -89,7 +89,7 @@
abc
OUT
-pir_output_is( <<'CODE', <<'OUT', 'proxy as parent of class w/new');
+pir_output_is( <<'CODE', <<'OUT', 'proxy as parent of class w/new' );
.sub main :main
$P0 = get_class 'Hash'
$P1 = subclass $P0, ['Foo';'Bar']
Modified: trunk/t/oo/subclass.t
==============================================================================
--- trunk/t/oo/subclass.t (original)
+++ trunk/t/oo/subclass.t Thu Oct 25 15:04:27 2007
@@ -22,7 +22,7 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'instantiate subclass from class object');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate subclass from class object' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass $P0, "Foo"
@@ -54,7 +54,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'manually create anonymous class object');
+pir_output_is( <<'CODE', <<'OUT', 'manually create anonymous class object' );
.sub main :main
.local pmc parent, class_init_args, parent_list
parent = new "Class"
@@ -98,7 +98,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'manually create named class object');
+pir_output_is( <<'CODE', <<'OUT', 'manually create named class object' );
.sub main :main
.local pmc parent, class_init_args, parent_list
parent = new "Class"
@@ -136,7 +136,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from class object method');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from class object method' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -159,7 +159,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string name');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string name' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -182,7 +182,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string register name');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string register name' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -206,7 +206,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string PMC name');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string PMC name' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -231,7 +231,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from key name');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from key name' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", ['Foo';'Bar']
@@ -263,7 +263,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from key PMC name',
todo=>'create non-constant key');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from key PMC name', todo =>
'create non-constant key' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", ['Foo';'Bar']
@@ -298,7 +298,7 @@
1
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from class object with init');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from class object with init' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -331,7 +331,7 @@
data for Foo
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string name with init');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string name with init' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -364,7 +364,7 @@
data for Foo
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string register name with
init');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string register name with
init' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -398,7 +398,7 @@
data for Foo
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from string PMC name with
init');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from string PMC name with init'
);
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", "Foo"
@@ -433,7 +433,7 @@
data for Foo
OUT
-pir_output_is( <<'CODE', <<'OUT', 'instantiate from key name with init',
todo=>'init keyed');
+pir_output_is( <<'CODE', <<'OUT', 'instantiate from key name with init', todo
=> 'init keyed' );
.sub main :main
$P0 = newclass "Pre"
$P1 = subclass "Pre", ['Foo';'Bar']
@@ -467,7 +467,7 @@
data for Foo;Bar
OUT
-pir_output_is( <<'CODE', <<'OUT', 'declare subclasses within other
namespaces');
+pir_output_is( <<'CODE', <<'OUT', 'declare subclasses within other namespaces'
);
.namespace [ 'other' ]
.sub main :main
$P0 = newclass 'Pre'
@@ -495,7 +495,7 @@
bar blue
OUT
-pir_output_is( <<'CODE', <<'OUT', 'call inherited methods');
+pir_output_is( <<'CODE', <<'OUT', 'call inherited methods' );
.namespace [ 'other' ]
.sub main :main
$P0 = newclass 'Parent'
@@ -513,7 +513,7 @@
parent green
OUT
-pir_output_is( <<'CODE', <<'OUT', 'call inherited init vtable overrides');
+pir_output_is( <<'CODE', <<'OUT', 'call inherited init vtable overrides' );
.sub main :main
$P99 = newclass 'Foo'
$P99 = subclass 'Foo', 'Bar'
@@ -556,7 +556,7 @@
third string
OUT
-pir_output_is( <<'CODE', <<'OUT', 'set inherited attributes by parent key');
+pir_output_is( <<'CODE', <<'OUT', 'set inherited attributes by parent key' );
.sub main :main
$P0 = newclass 'Foo'
addattribute $P0, 'storage'
@@ -580,7 +580,7 @@
storage attribute value
OUT
-pir_error_output_like( <<'CODE', <<'OUT', "the same parent can't be added
twice");
+pir_error_output_like( <<'CODE', <<'OUT', "the same parent can't be added
twice" );
.sub main :main
$P0 = newclass 'Foo'
$P1 = newclass 'Bar'
@@ -591,7 +591,6 @@
/The class 'Bar' already has a parent class 'Foo'./
OUT
-
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: trunk/t/op/cc_params.t
==============================================================================
--- trunk/t/op/cc_params.t (original)
+++ trunk/t/op/cc_params.t Thu Oct 25 15:04:27 2007
@@ -168,7 +168,7 @@
my ( $c_args, $c_params, $c_returns, $c_results ) = @_;
$self->{FUNC} =
- 'args' . $c_args
+ 'args' . $c_args
. '_results'
. $c_results
. '__params'
Modified: trunk/t/perl/Parrot_Docs.t
==============================================================================
--- trunk/t/perl/Parrot_Docs.t (original)
+++ trunk/t/perl/Parrot_Docs.t Thu Oct 25 15:04:27 2007
@@ -108,7 +108,7 @@
Parrot::Docs::Item->new( 'our old friend', 'foo' ),
Parrot::Docs::Group->new(
'Bar', 'no jeans', Parrot::Docs::Item->new( 'time please', 'bar',
'pub' )
- )
+ )
);
ok( $s, 'new section' );
Modified: trunk/t/pmc/continuation.t
==============================================================================
--- trunk/t/pmc/continuation.t (original)
+++ trunk/t/pmc/continuation.t Thu Oct 25 15:04:27 2007
@@ -32,7 +32,7 @@
ok 1
OUT
-pir_error_output_like(<<'CODE', <<'OUT', 'invoke without init');
+pir_error_output_like( <<'CODE', <<'OUT', 'invoke without init' );
.sub 'test' :main
new P0, 'Continuation'
P0()
@@ -42,7 +42,7 @@
/Continuation invoked without initialization/i
OUT
-pir_output_is(<<'CODE', <<'OUT', 'invoke with init');
+pir_output_is( <<'CODE', <<'OUT', 'invoke with init' );
.sub 'test' :main
new P0, 'Continuation'
set_addr P0, L1
Modified: trunk/t/pmc/object-meths.t
==============================================================================
--- trunk/t/pmc/object-meths.t (original)
+++ trunk/t/pmc/object-meths.t Thu Oct 25 15:04:27 2007
@@ -870,7 +870,7 @@
Parent bar
OUTPUT
- pir_output_is( <<'CODE', <<'OUTPUT', ".Super - dispatch on
addparent-established heirarchy" );
+pir_output_is( <<'CODE', <<'OUTPUT', ".Super - dispatch on
addparent-established heirarchy" );
.sub main :main
.local pmc o, p, c
p = newclass 'Parent'
Modified: trunk/t/pmc/objects.t
==============================================================================
--- trunk/t/pmc/objects.t (original)
+++ trunk/t/pmc/objects.t Thu Oct 25 15:04:27 2007
@@ -510,6 +510,7 @@
CODE
/No such attribute 'no_such' in class 'Foo'/
OUTPUT
+
# RT#46845
pasm_error_output_like( <<'CODE', <<'OUTPUT', "getting NULL attribute" );
Modified: trunk/t/pmc/pmc.t
==============================================================================
--- trunk/t/pmc/pmc.t (original)
+++ trunk/t/pmc/pmc.t Thu Oct 25 15:04:27 2007
@@ -113,12 +113,13 @@
my $checkTypes;
my %types_we_cant_test
- = map { $_ => 1; } (# These require initializers.
- qw(Null Iterator Enumerate Ref STMRef SharedRef
- ParrotObject ParrotThread
- deleg_pmc BigInt LexInfo LexPad Slice Object),
- # Instances of these appear to have other types.
- qw(PMCProxy Class));
+ = map { $_ => 1; } ( # These require initializers.
+ qw(Null Iterator Enumerate Ref STMRef SharedRef
+ ParrotObject ParrotThread
+ deleg_pmc BigInt LexInfo LexPad Slice Object),
+
+ # Instances of these appear to have other types.
+ qw(PMCProxy Class) );
while ( my ( $type, $id ) = each %pmc_types ) {
next
if $types_we_cant_test{$type};
Modified: trunk/t/pmc/sub.t
==============================================================================
--- trunk/t/pmc/sub.t (original)
+++ trunk/t/pmc/sub.t Thu Oct 25 15:04:27 2007
@@ -25,7 +25,8 @@
=cut
-my $temp = "temp.pasm";
+my $temp = "temp.pasm";
+
END {
unlink( $temp, 'temp.pbc', 'temp.pasm' );
}
Modified: trunk/t/pmc/threads.t
==============================================================================
--- trunk/t/pmc/threads.t (original)
+++ trunk/t/pmc/threads.t Thu Oct 25 15:04:27 2007
@@ -575,9 +575,9 @@
OUTPUT
TODO: {
- local $TODO = "vtable overrides aren't properly cloned RT# 46511";
+ local $TODO = "vtable overrides aren't properly cloned RT# 46511";
-pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES; superclass
not built-in" );
+ pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES;
superclass not built-in" );
.namespace [ 'Foo' ]
.sub foometh :method
@@ -661,7 +661,7 @@
Bar? 1
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES; superclass
built-in" );
+ pir_output_is( <<'CODE', <<'OUTPUT', "CLONE_CODE | CLONE_CLASSES;
superclass built-in" );
.namespace [ 'Foo' ]
.sub foometh :method
Modified: trunk/t/postconfigure/05-trace.t
==============================================================================
--- trunk/t/postconfigure/05-trace.t (original)
+++ trunk/t/postconfigure/05-trace.t Thu Oct 25 15:04:27 2007
@@ -9,7 +9,7 @@
use Carp;
use Data::Dumper;
use Test::More;
-if ( ( -e qq{./lib/Parrot/Config/Generated.pm} )
+if ( ( -e qq{./lib/Parrot/Config/Generated.pm} )
and ( -e qq{./.configure_trace.sto} ) )
{
plan tests => 36;
Modified: trunk/t/run/options.t
==============================================================================
--- trunk/t/run/options.t (original)
+++ trunk/t/run/options.t Thu Oct 25 15:04:27 2007
@@ -76,7 +76,6 @@
is( `"$PARROT" --trace "$first_pir_file" "$second_pir_file" $redir`,
"second\n", 'option --trace with flags' );
-
## test the -R & --runcore options
{
my $cmd;
@@ -85,20 +84,19 @@
for my $val (qw/ slow fast bounds trace /) {
for my $opt ( '-R ', '--runcore ', '--runcore=' ) {
$cmd = qq{"$PARROT" $opt$val "$second_pir_file" $redir};
- is( qx{$cmd}, "second\n", "<$opt$val> option");
+ is( qx{$cmd}, "second\n", "<$opt$val> option" );
}
}
$cmd = qq{"$PARROT" -D 8 -R slow "$second_pir_file" $redir};
- is( qx{$cmd}, "second\n", "-r option <$cmd>");
+ is( qx{$cmd}, "second\n", "-r option <$cmd>" );
$cmd = qq{"$PARROT" -D 8 -R slow "$second_pir_file" 2>&1};
- like( qx{$cmd}, qr/Parrot VM: Slow core/, "-r option <$cmd>");
+ like( qx{$cmd}, qr/Parrot VM: Slow core/, "-r option <$cmd>" );
}
## RT#46815 test remaining options
-
# clean up temporary files
unlink $first_pir_file;
unlink $second_pir_file;
Modified: trunk/t/stm/queue.t
==============================================================================
--- trunk/t/stm/queue.t (original)
+++ trunk/t/stm/queue.t Thu Oct 25 15:04:27 2007
@@ -241,7 +241,7 @@
SKIP: {
skip "These tests freeze up the whole interpreter", 2;
-pir_output_is( $library . <<'CODE', <<'OUTPUT', "Add in one thread, remove in
the other" );
+ pir_output_is( $library . <<'CODE', <<'OUTPUT', "Add in one thread, remove
in the other" );
.const int MAX = 1000
.const int SIZE = 10
@@ -313,7 +313,7 @@
ok
OUTPUT
-pir_output_is( $library . <<'CODE', <<'OUTPUT', "Test 2 + attempt to trigger
thread death bugs" );
+ pir_output_is( $library . <<'CODE', <<'OUTPUT', "Test 2 + attempt to
trigger thread death bugs" );
.sub adder
.param pmc queue
|
|