# New Ticket Created by Alberto Simoes
# Please include the string: [perl #38052]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38052 >
uses warning, strict, lib and so on, so you can use prove on all those
tests.
Cheers
Alberto
--
Alberto Simões - Departamento de Informática - Universidade do Minho
Campus de Gualtar - 4710-057 Braga - Portugal
Index: t/pmc/perlint.t
===================================================================
--- t/pmc/perlint.t (revision 10703)
+++ t/pmc/perlint.t (working copy)
@@ -2,13 +2,20 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 70;
+use Parrot::PMC '%pmc_types';
+
=head1 NAME
t/pmc/perlint.t - Perl Integers
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlint.t
+ % prove t/pmc/perlint.t
=head1 DESCRIPTION
@@ -16,9 +23,6 @@
=cut
-use Parrot::Test tests => 70;
-use Parrot::PMC '%pmc_types';
-
my $perlint = $pmc_types{'PerlInt'};
my $ok = '"ok 1\n"';
my $fp_equality_macro = <<'ENDOFMACRO';
Index: t/pmc/mmd.t
===================================================================
--- t/pmc/mmd.t (revision 10703)
+++ t/pmc/mmd.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 30;
+
=head1 NAME
t/pmc/mmd.t - Multi-Method Dispatch
=head1 SYNOPSIS
- % perl -Ilib t/pmc/mmd.t
+ % prove t/pmc/mmd.t
=head1 DESCRIPTION
@@ -16,8 +22,6 @@
=cut
-use Parrot::Test tests => 30;
-
pir_output_is(<<'CODE', <<'OUTPUT', "PASM divide");
.sub _main
Index: t/pmc/signal.t
===================================================================
--- t/pmc/signal.t (revision 10703)
+++ t/pmc/signal.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test;
+
=head1 NAME
t/pmc/signal.t - Signal Handling
=head1 SYNOPSIS
- % perl -Ilib t/pmc/signal.t
+ % prove t/pmc/signal.t
=head1 DESCRIPTION
@@ -16,10 +22,6 @@
=cut
-use Parrot::Test;
-use Test::More;
-use strict;
-
# actually more platforms should work - all POSIX compliant ones - but
# signals are currently not enabled for all in src/events.c
# a second problem is to get the test doing the right thing: mainly figuring
Index: t/pmc/boolean.t
===================================================================
--- t/pmc/boolean.t (revision 10703)
+++ t/pmc/boolean.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 9;
+
=head1 NAME
t/pmc/boolean.t - Boolean Ops
=head1 SYNOPSIS
- % perl -Ilib t/pmc/boolean.t
+ % prove t/pmc/boolean.t
=head1 DESCRIPTION
@@ -17,8 +23,6 @@
=cut
-use Parrot::Test tests => 9;
-use Test::More;
output_is(<<'CODE', <<'OUTPUT', "Initialization, and integer tests");
new P0,.Boolean
Index: t/pmc/pmc.t
===================================================================
--- t/pmc/pmc.t (revision 10703)
+++ t/pmc/pmc.t (working copy)
@@ -1,15 +1,21 @@
#! perl -w
-
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 24;
+use Parrot::PMC qw(%pmc_types);
+
=head1 NAME
t/pmc/pmc.t - Perl PMCs
=head1 SYNOPSIS
- % perl -Ilib t/pmc/pmc.t
+ % prove t/pmc/pmc.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 24;
-use Test::More;
-use Parrot::PMC qw(%pmc_types);
my $max_pmc = scalar(keys(%pmc_types)) + 1;
my $fp_equality_macro = <<'ENDOFMACRO';
Index: t/pmc/prop.t
===================================================================
--- t/pmc/prop.t (revision 10703)
+++ t/pmc/prop.t (working copy)
@@ -1,15 +1,20 @@
#! perl -w
-
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 7;
+
=head1 NAME
t/pmc/prop.t - Properties
=head1 SYNOPSIS
- % perl -Ilib t/pmc/prop.t
+ % prove t/pmc/prop.t
=head1 DESCRIPTION
@@ -17,9 +22,6 @@
=cut
-use Parrot::Test tests => 7;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "set/getprop");
new P0, .Integer
set P0, 10
Index: t/pmc/freeze.t
===================================================================
--- t/pmc/freeze.t (revision 10703)
+++ t/pmc/freeze.t (working copy)
@@ -1,13 +1,20 @@
+#! perl -w
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 27;
+
=head1 NAME
t/pmc/freeze.t - Archiving
=head1 SYNOPSIS
- % perl -Ilib t/pmc/freeze.t
+ % prove t/pmc/freeze.t
=head1 DESCRIPTION
@@ -15,9 +22,6 @@
=cut
-use Parrot::Test tests => 27;
-use Test::More;
-
END { unlink "temp.fpmc"; };
output_is(<<'CODE', <<'OUTPUT', "freeze/thaw a Integer");
Index: t/pmc/timer.t
===================================================================
--- t/pmc/timer.t (revision 10703)
+++ t/pmc/timer.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 8;
+
=head1 NAME
t/pmc/timer.t - Timer PMCs
=head1 SYNOPSIS
- % perl -Ilib t/pmc/timer.t
+ % prove t/pmc/timer.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 8;
-use Test::More;
-
my %platforms = map {$_=>1} qw/
aix
cygwin
Index: t/pmc/globals.t
===================================================================
--- t/pmc/globals.t (revision 10703)
+++ t/pmc/globals.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 3;
+
=head1 NAME
t/pmc/globals.t - Globals and Namespaces
=head1 SYNOPSIS
- % perl -Ilib t/pmc/globals.t
+ % prove t/pmc/globals.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 3;
-use Test::More;
-
pir_output_is(<<'CODE', <<'OUTPUT', "get namespace");
.sub main
.local pmc ns, o
Index: t/pmc/fixedstringarray.t
===================================================================
--- t/pmc/fixedstringarray.t (revision 10703)
+++ t/pmc/fixedstringarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 13;
+
=head1 NAME
t/pmc/fixedstringarray.t - FixedStringArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/FixedStringArray.t
+ % prove t/pmc/FixedStringArray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 13;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/intlist.t
===================================================================
--- t/pmc/intlist.t (revision 10703)
+++ t/pmc/intlist.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 10;
+
=head1 NAME
t/pmc/intlist.t - Integer Array
=head1 SYNOPSIS
- % perl -Ilib t/pmc/intlist.t
+ % prove t/pmc/intlist.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 10;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "creation");
new P0, .IntList
set I0, P0
Index: t/pmc/eval.t
===================================================================
--- t/pmc/eval.t (revision 10703)
+++ t/pmc/eval.t (working copy)
@@ -1,15 +1,20 @@
#! perl -w
-
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 18;
+
=head1 NAME
t/pmc/eval.t - Dynamic Code Evaluation
=head1 SYNOPSIS
- % perl -Ilib t/pmc/eval.t
+ % prove t/pmc/eval.t
=head1 DESCRIPTION
@@ -17,9 +22,6 @@
=cut
-use Parrot::Test tests => 18;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "eval_sc");
compreg P1, "PASM" # get compiler
set_args "(0)", "print \"in eval\\n\"\nset_returns \"()\"\nreturncc\n"
Index: t/pmc/key.t
===================================================================
--- t/pmc/key.t (revision 10703)
+++ t/pmc/key.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
=head1 NAME
t/pmc/key.t - Keys
=head1 SYNOPSIS
- % perl -Ilib t/pmc/key.t
+ % prove t/pmc/key.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 1;
-use Test::More;
-
output_is(<<'CODE', <<'OUT', 'traverse key chain');
new P0, .Key
set P0, "1"
Index: t/pmc/orderedhash.t
===================================================================
--- t/pmc/orderedhash.t (revision 10703)
+++ t/pmc/orderedhash.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 22;
+
=head1 NAME
t/pmc/orderedhash.t - Ordered Hash
=head1 SYNOPSIS
- % perl -Ilib t/pmc/orderedhash.t
+ % prove t/pmc/orderedhash.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 22;
-use Test::More;
-
output_is(<<'CODE', <<OUT, "init");
new P0, .OrderedHash
print "ok 1\n"
Index: t/pmc/multiarray.t
===================================================================
--- t/pmc/multiarray.t (revision 10703)
+++ t/pmc/multiarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 4;
+
=head1 NAME
t/pmc/multiarray.t - MultiArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/multiarray.t
+ % prove t/pmc/multiarray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 4;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "multiarray creation");
new P1, .PerlArray
# intial size
Index: t/pmc/perlstring.t
===================================================================
--- t/pmc/perlstring.t (revision 10703)
+++ t/pmc/perlstring.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 67;
+
=head1 NAME
t/pmc/perlstring.t - Perl Strings
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlstring.t
+ % prove t/pmc/perlstring.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 67;
-use Test::More; # Included for skip().
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/sub.t
===================================================================
--- t/pmc/sub.t (revision 10703)
+++ t/pmc/sub.t (working copy)
@@ -2,13 +2,20 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 41;
+use Parrot::Config;
+
=head1 NAME
t/pmc/sub.t - Subroutine PMCs
=head1 SYNOPSIS
- % perl -Ilib t/pmc/sub.t
+ % prove t/pmc/sub.t
=head1 DESCRIPTION
@@ -17,10 +24,6 @@
=cut
-use Parrot::Test tests => 41;
-use Test::More;
-use Parrot::Config;
-
my $temp = "temp.pasm";
END {
Index: t/pmc/integer.t
===================================================================
--- t/pmc/integer.t (revision 10703)
+++ t/pmc/integer.t (working copy)
@@ -1,15 +1,20 @@
#! perl -w
-
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 11;
+
=head1 NAME
t/pmc/integer.t - Integer basic type
=head1 SYNOPSIS
- % perl -Ilib t/pmc/integer.t
+ % prove t/pmc/integer.t
=head1 DESCRIPTION
@@ -17,8 +22,6 @@
=cut
-use Parrot::Test tests => 11;
-
pir_output_is(<< 'CODE', << 'OUTPUT', "basic math");
.sub _main
Index: t/pmc/fixedbooleanarray.t
===================================================================
--- t/pmc/fixedbooleanarray.t (revision 10703)
+++ t/pmc/fixedbooleanarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 11;
+
=head1 NAME
t/pmc/fixedbooleanarray.t - FixedBooleanArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/FixedBooleanArray.t
+ % prove t/pmc/FixedBooleanArray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 11;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/fixedpmcarray.t
===================================================================
--- t/pmc/fixedpmcarray.t (revision 10703)
+++ t/pmc/fixedpmcarray.t (working copy)
@@ -2,14 +2,12 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
-
use strict;
use warnings;
use lib qw(lib . ../lib ../../lib);
use Parrot::Test tests => 14;
use Test::More;
-
=head1 NAME
t/pmc/fixedpmcarray.t - FixedPMCArray PMC
Index: t/pmc/undef.t
===================================================================
--- t/pmc/undef.t (revision 10703)
+++ t/pmc/undef.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 10;
+
=head1 NAME
t/pmc/undef.t - Undef PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/undef.t
+ % prove t/pmc/undef.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 10;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "morph to string");
new P0, .String
new P1, .Undef
Index: t/pmc/iter.t
===================================================================
--- t/pmc/iter.t (revision 10703)
+++ t/pmc/iter.t (working copy)
@@ -1,15 +1,20 @@
#! perl -w
-
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 42;
+
=head1 NAME
t/pmc/iter.t - Iteration
=head1 SYNOPSIS
- % perl -Ilib t/pmc/iter.t
+ % prove t/pmc/iter.t
=head1 DESCRIPTION
@@ -17,9 +22,6 @@
=cut
-use Parrot::Test tests => 42;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "new iter");
new P2, .PerlArray
new P1, .Iterator, P2
Index: t/pmc/config.t
===================================================================
--- t/pmc/config.t (revision 10703)
+++ t/pmc/config.t (working copy)
@@ -2,13 +2,21 @@
# Copyright: 2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 3;
+use Parrot::Config;
+use Cwd qw(cwd);
+
=head1 NAME
t/pmc/config.t - Builtin Config
=head1 SYNOPSIS
- % perl -Ilib t/pmc/config.t
+ % prove t/pmc/config.t
=head1 DESCRIPTION
@@ -16,9 +24,6 @@
=cut
-use Parrot::Test tests => 3;
-use Parrot::Config;
-use Cwd qw(cwd);
pir_output_is(<<'CODE', <<'OUT', "get config hash");
.sub main :main
@@ -56,4 +61,3 @@
ok 1
ok 2
OUT
-
Index: t/pmc/float.t
===================================================================
--- t/pmc/float.t (revision 10703)
+++ t/pmc/float.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 45;
+
=head1 NAME
t/pmc/float.t - Floating-point Numbers
=head1 SYNOPSIS
- % perl -Ilib t/pmc/float.t
+ % prove t/pmc/float.t
=head1 DESCRIPTION
@@ -16,8 +22,6 @@
=cut
-use Parrot::Test tests => 45;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/builtin.t
===================================================================
--- t/pmc/builtin.t (revision 10703)
+++ t/pmc/builtin.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2005 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 4;
+
=head1 NAME
t/pmc/builtin.t - Builtin Methods
=head1 SYNOPSIS
- % perl -Ilib t/pmc/builtin.t
+ % prove t/pmc/builtin.t
=head1 DESCRIPTION
@@ -16,7 +22,6 @@
=cut
-use Parrot::Test tests => 4;
pir_output_is(<<'CODE', <<'OUT', "three ways to call a method");
.sub main :main
@@ -124,3 +129,4 @@
OUT
}
+
Index: t/pmc/string.t
===================================================================
--- t/pmc/string.t (revision 10703)
+++ t/pmc/string.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 36;
+
=head1 NAME
t/pmc/string.t - Strings
=head1 SYNOPSIS
- % perl -Ilib t/pmc/string.t
+ % prove t/pmc/string.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 36;
-use Test::More; # Included for skip().
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/perlhash.t
===================================================================
--- t/pmc/perlhash.t (revision 10703)
+++ t/pmc/perlhash.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 37;
+
=head1 NAME
t/pmc/perlhash.t - testing the PerlHash PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlhash.t
+ % prove t/pmc/perlhash.t
=head1 DESCRIPTION
@@ -18,9 +24,6 @@
=cut
-use Parrot::Test tests => 37;
-use Test::More;
-
output_is(<<CODE, <<OUTPUT, "Initial PerlHash tests");
new P0, .PerlHash
Index: t/pmc/floatvalarray.t
===================================================================
--- t/pmc/floatvalarray.t (revision 10703)
+++ t/pmc/floatvalarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 10;
+
=head1 NAME
t/pmc/floatvalarray.t - FloatvalArray tests
=head1 SYNOPSIS
- % perl -Ilib t/pmc/floatvalarray.t
+ % prove t/pmc/floatvalarray.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 10;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', 'creation');
new P0, .FloatvalArray
print "ok\n"
Index: t/pmc/io.t
===================================================================
--- t/pmc/io.t (revision 10703)
+++ t/pmc/io.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 32;
+
=head1 NAME
t/pmc/io.t - IO Ops
=head1 SYNOPSIS
- % perl -Ilib t/pmc/io.t
+ % prove t/pmc/io.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 32;
-use Test::More;
-
sub file_content_is {
my ($file, $content, $name) = @_;
local $/=undef; # slurp mode
Index: t/pmc/complex.t
===================================================================
--- t/pmc/complex.t (revision 10703)
+++ t/pmc/complex.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 25;
+
=head1 NAME
t/pmc/complex.t - Complex Numbers
=head1 SYNOPSIS
- % perl -Ilib t/pmc/complex.t
+ % prove t/pmc/complex.t
=head1 DESCRIPTION
@@ -16,9 +22,8 @@
=cut
-use Parrot::Test tests => 25;
-use Test::More;
+
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
@@ -787,4 +792,3 @@
2.8+2i
-2.8-2i
OUTPUT
-
Index: t/pmc/fixedintegerarray.t
===================================================================
--- t/pmc/fixedintegerarray.t (revision 10703)
+++ t/pmc/fixedintegerarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 12;
+
=head1 NAME
t/pmc/fixedintegerarray.t - FixedIntegerArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/FixedIntegerArray.t
+ % prove t/pmc/FixedIntegerArray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 12;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/array.t
===================================================================
--- t/pmc/array.t (revision 10703)
+++ t/pmc/array.t (working copy)
@@ -1,15 +1,20 @@
#! perl -w
-
# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 13;
+
=head1 NAME
t/pmc/array.t - Array PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/array.t
+ % prove t/pmc/array.t
=head1 DESCRIPTION
@@ -18,8 +23,6 @@
=cut
-use Parrot::Test tests => 13;
-use Test::More;
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
@@ -462,3 +465,4 @@
OUTPUT
1;
+
Index: t/pmc/sys.t
===================================================================
--- t/pmc/sys.t (revision 10703)
+++ t/pmc/sys.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
=head1 NAME
t/pmc/sys.t - System Tests
=head1 SYNOPSIS
- % perl -Ilib t/pmc/sys.t
+ % prove t/pmc/sys.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 1;
-use Test::More;
-
END {
unlink "temp.imc";
};
Index: t/pmc/resizablepmcarray.t
===================================================================
--- t/pmc/resizablepmcarray.t (revision 10703)
+++ t/pmc/resizablepmcarray.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 23;
+
=head1 NAME
t/pmc/resizablepmcarray.t - testing the ResizablePMCArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/resizablepmcarray.t
+ % prove t/pmc/resizablepmcarray.t
=head1 DESCRIPTION
@@ -17,7 +23,6 @@
=cut
-use Parrot::Test tests => 23;
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
Index: t/pmc/resizablebooleanarray.t
===================================================================
--- t/pmc/resizablebooleanarray.t (revision 10703)
+++ t/pmc/resizablebooleanarray.t (working copy)
@@ -1,13 +1,20 @@
+#! perl -w
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 9;
+
=head1 NAME
t/pmc/resizablebooleanarray.t - testing the ResizableBooleanArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/resizablebooleanarray.t
+ % prove t/pmc/resizablebooleanarray.t
=head1 DESCRIPTION
@@ -16,9 +23,6 @@
=cut
-use Parrot::Test tests => 9;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/perlnum.t
===================================================================
--- t/pmc/perlnum.t (revision 10703)
+++ t/pmc/perlnum.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 55;
+
=head1 NAME
t/pmc/perlnum.t - Perl Numbers
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlnum.t
+ % prove t/pmc/perlnum.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 55;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/hash.t
===================================================================
--- t/pmc/hash.t (revision 10703)
+++ t/pmc/hash.t (working copy)
@@ -1,15 +1,20 @@
#! perl
-
-# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 37;
+
=head1 NAME
t/pmc/hash.t - Test for the Hash PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/hash.t
+ % prove t/pmc/hash.t
=head1 DESCRIPTION
@@ -19,9 +24,6 @@
=cut
-use Parrot::Test tests => 37;
-use Test::More;
-
output_is(<<CODE, <<OUTPUT, "Initial Hash tests");
new P0, .Hash
Index: t/pmc/fixedfloatarray.t
===================================================================
--- t/pmc/fixedfloatarray.t (revision 10703)
+++ t/pmc/fixedfloatarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 11;
+
=head1 NAME
t/pmc/fixedfloatarray.t - FixedFloatArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/fixedfloatarray.t
+ % prove t/pmc/fixedfloatarray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 11;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/object-meths.t
===================================================================
--- t/pmc/object-meths.t (revision 10703)
+++ t/pmc/object-meths.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 33;
+
=head1 NAME
t/pmc/object-meths.t - Object Methods
=head1 SYNOPSIS
- % perl -Ilib t/pmc/object-meths.t
+ % prove t/pmc/object-meths.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 33;
-use Test::More;
-
output_like(<<'CODE', <<'OUTPUT', "callmethod - unknown method");
newclass P2, "Foo"
set S0, "nada"
Index: t/pmc/perlundef.t
===================================================================
--- t/pmc/perlundef.t (revision 10703)
+++ t/pmc/perlundef.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 10;
+
=head1 NAME
t/pmc/perlundef.t - testing the PerlUndef PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlundef.t
+ % prove t/pmc/perlundef.t
=head1 DESCRIPTION
@@ -16,8 +22,6 @@
=cut
-use Parrot::Test tests => 10;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/env.t
===================================================================
--- t/pmc/env.t (revision 10703)
+++ t/pmc/env.t (working copy)
@@ -2,13 +2,20 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test;
+use Parrot::Config;
+
=head1 NAME
t/pmc/env.t - System Environment
=head1 SYNOPSIS
- % perl -Ilib t/pmc/env.t
+ % prove t/pmc/env.t
=head1 DESCRIPTION
@@ -16,11 +23,6 @@
=cut
-use Parrot::Test tests => 12;
-use Test::More;
-use Parrot::Config;
-
-
output_is(<<'CODE', <<OUT, "all Envs are ident");
new P0, .Env
new P1, .Env
@@ -233,3 +235,7 @@
CODE
/Foobar/i
OUT
+
+
+## remember to change the number of tests :-)
+BEGIN { plan tests => 12; }
Index: t/pmc/objects.t
===================================================================
--- t/pmc/objects.t (revision 10703)
+++ t/pmc/objects.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 62;
+
=head1 NAME
t/pmc/objects.t - Objects
=head1 SYNOPSIS
- % perl -Ilib t/pmc/objects.t
+ % prove t/pmc/objects.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 62;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "find_type (base class)");
newclass P1, "Foo"
Index: t/pmc/n_arithmetics.t
===================================================================
--- t/pmc/n_arithmetics.t (revision 10703)
+++ t/pmc/n_arithmetics.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id: arithmetics.t 7810 2005-04-12 10:09:05Z leo $
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 20;
+
=head1 NAME
t/pmc/n_arithmetics.t - n_* Arithmetic Ops
=head1 SYNOPSIS
- % perl -Ilib t/pmc/n_arithmetics.t
+ % prove t/pmc/n_arithmetics.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 20;
-use Test::More;
-
###
### Operations on a single INTVAL
###
Index: t/pmc/threads.t
===================================================================
--- t/pmc/threads.t (revision 10703)
+++ t/pmc/threads.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test;
+
=head1 NAME
t/pmc/threads.t - Threads
=head1 SYNOPSIS
- % perl -Ilib t/pmc/threads.t
+ % prove t/pmc/threads.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test;
-use Test::More;
-
my %platforms = map {$_=>1} qw/
aix
cygwin
Index: t/pmc/pair.t
===================================================================
--- t/pmc/pair.t (revision 10703)
+++ t/pmc/pair.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 3;
+
=head1 NAME
t/pmc/pair.t - pair tests
=head1 SYNOPSIS
- % perl -Ilib t/pmc/pair.t
+ % prove t/pmc/pair.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 3;
-use Test::More;
-
output_is(<<'CODE', <<'OUT', 'create');
new P0, .Pair
print "ok 1\n"
Index: t/pmc/namespace.t
===================================================================
--- t/pmc/namespace.t (revision 10703)
+++ t/pmc/namespace.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 17;
+
=head1 NAME
t/pmc/namespace.t - Namespaces
=head1 SYNOPSIS
- % perl -Ilib t/pmc/namespace.t
+ % prove t/pmc/namespace.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test;
-use Test::More;
-
pir_output_is(<<'CODE', <<'OUTPUT', "find_global bar");
.sub 'main' :main
$P0 = find_global "bar"
@@ -372,7 +375,3 @@
unicode namespaces are fun
OUT
-
-
-# remember to modify the number of tests!
-BEGIN { plan tests => 17; }
Index: t/pmc/resizableintegerarray.t
===================================================================
--- t/pmc/resizableintegerarray.t (revision 10703)
+++ t/pmc/resizableintegerarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 13;
+
=head1 NAME
t/pmc/resizableintegerarray.t - ResizableIntegerArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/ResizableIntegerArray.t
+ % prove t/pmc/ResizableIntegerArray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 13;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/exception.t
===================================================================
--- t/pmc/exception.t (revision 10703)
+++ t/pmc/exception.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 24;
+
=head1 NAME
t/pmc/exception.t - Exception Handling
=head1 SYNOPSIS
- % perl -Ilib t/pmc/exception.t
+ % prove t/pmc/exception.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 24;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "push_eh - clear_eh");
push_eh _handler
print "ok 1\n"
Index: t/pmc/sarray.t
===================================================================
--- t/pmc/sarray.t (revision 10703)
+++ t/pmc/sarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 33;
+
=head1 NAME
t/pmc/sarray.t - Simple Array
=head1 SYNOPSIS
- % perl -Ilib t/pmc/sarray.t
+ % prove t/pmc/sarray.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 33;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/managedstruct.t
===================================================================
--- t/pmc/managedstruct.t (revision 10703)
+++ t/pmc/managedstruct.t (working copy)
@@ -1,14 +1,21 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 6;
+use Parrot::Config;
+
=head1 NAME
t/pmc/managedstruct.t - Managed C Structure
=head1 SYNOPSIS
- % perl -Ilib t/pmc/managedstruct.t
+ % prove t/pmc/managedstruct.t
=head1 DESCRIPTION
@@ -16,10 +23,6 @@
=cut
-use Parrot::Test tests => 6;
-use Test::More;
-use Parrot::Config;
-
output_is(<<'CODE', <<'OUTPUT', "Setting ManagedStruct size");
new P0,.ManagedStruct
set I0,P0
Index: t/pmc/perlarray.t
===================================================================
--- t/pmc/perlarray.t (revision 10703)
+++ t/pmc/perlarray.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 28;
+
=head1 NAME
t/pmc/perlarray.t - testing the PerlArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/perlarray.t
+ % prove t/pmc/perlarray.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 28;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/object-mro.t
===================================================================
--- t/pmc/object-mro.t (revision 10703)
+++ t/pmc/object-mro.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: object-meths.t 10257 2005-11-29 21:53:33Z leo $
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
+# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 6;
+
=head1 NAME
t/pmc/object-mro.t - Object Methods Resolution Order
=head1 SYNOPSIS
- % perl -Ilib t/pmc/object-mro.t
+ % prove t/pmc/object-mro.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 6;
-use Test::More;
-
pir_output_is(<<'CODE', <<'OUTPUT', "print mro diamond");
#
# A B A E
Index: t/pmc/multisub.t
===================================================================
--- t/pmc/multisub.t (revision 10703)
+++ t/pmc/multisub.t (working copy)
@@ -2,13 +2,19 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
=head1 NAME
t/pmc/multisub.t - Multi Sub PMCs
=head1 SYNOPSIS
- % perl -Ilib t/pmc/multisub.t
+ % prove t/pmc/multisub.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 1;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "create PMC");
new P0, .MultiSub
print "ok 1\n"
Index: t/pmc/resizablefloatarray.t
===================================================================
--- t/pmc/resizablefloatarray.t (revision 10703)
+++ t/pmc/resizablefloatarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 17;
+
=head1 NAME
t/pmc/resizablefloatarray.t - ResizableFloatArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/resizablefloatarray.t
+ % prove t/pmc/resizablefloatarray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 17;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/resizablestringarray.t
===================================================================
--- t/pmc/resizablestringarray.t (revision 10703)
+++ t/pmc/resizablestringarray.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 16;
+
=head1 NAME
t/pmc/resizablestringarray.t - ResizableStringArray PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/ResizableStringArray.t
+ % prove t/pmc/ResizableStringArray.t
=head1 DESCRIPTION
@@ -17,9 +23,6 @@
=cut
-use Parrot::Test tests => 16;
-use Test::More;
-
my $fp_equality_macro = <<'ENDOFMACRO';
.macro fp_eq ( J, K, L )
save N0
Index: t/pmc/coroutine.t
===================================================================
--- t/pmc/coroutine.t (revision 10703)
+++ t/pmc/coroutine.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 10;
+
=head1 NAME
t/pmc/coroutines.t - Coroutines
=head1 SYNOPSIS
- % perl -Ilib t/pmc/coroutines.t
+ % prove t/pmc/coroutines.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 10;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "Coroutine 1");
.include "interpinfo.pasm"
.pcc_sub _main:
Index: t/pmc/tqueue.t
===================================================================
--- t/pmc/tqueue.t (revision 10703)
+++ t/pmc/tqueue.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
=head1 NAME
t/pmc/tqueue.t - Thread Queue
=head1 SYNOPSIS
- % perl -Ilib t/pmc/tqueue.t
+ % prove t/pmc/tqueue.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 1;
-use Test::More;
-
output_is(<<'CODE', <<'OUT', "thread safe queue 1");
new P10, .TQueue
print "ok 1\n"
Index: t/pmc/nci.t
===================================================================
--- t/pmc/nci.t (revision 10703)
+++ t/pmc/nci.t (working copy)
@@ -2,13 +2,20 @@
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 60;
+use Parrot::Config qw(%PConfig);
+
=head1 NAME
t/pmc/nci.t - test the Native Call Interface
=head1 SYNOPSIS
- % perl -Ilib t/pmc/nci.t
+ % prove t/pmc/nci.t
=head1 DESCRIPTION
@@ -23,9 +30,6 @@
=cut
-use Parrot::Test tests => 60;
-use Parrot::Config qw(%PConfig);
-
SKIP: {
unless ( -e "runtime/parrot/dynext/libnci_test$PConfig{load_ext}" ) {
skip( "Please make libnci_test$PConfig{load_ext}",
Index: t/pmc/delegate.t
===================================================================
--- t/pmc/delegate.t (revision 10703)
+++ t/pmc/delegate.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 9;
+
=head1 NAME
t/pmc/delegate.t - Method Delegation
=head1 SYNOPSIS
- % perl -Ilib t/pmc/delegate.t
+ % prove t/pmc/delegate.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 9;
-use Test::More;
-
# basic functionality - setting and getting types
output_is(<<'CODE', <<'OUTPUT', "delegate set_integer_native");
@@ -213,4 +216,3 @@
777
3
OUTPUT
-
Index: t/pmc/ref.t
===================================================================
--- t/pmc/ref.t (revision 10703)
+++ t/pmc/ref.t (working copy)
@@ -1,14 +1,20 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 12;
+
=head1 NAME
t/pmc/ref.t - Reference PMC
=head1 SYNOPSIS
- % perl -Ilib t/pmc/ref.t
+ % prove t/pmc/ref.t
=head1 DESCRIPTION
@@ -16,9 +22,6 @@
=cut
-use Parrot::Test tests => 12;
-use Test::More;
-
output_is(<<'CODE', <<'OUTPUT', "new ref");
new P2, .Integer
new P1, .Ref, P2
Index: t/pmc/bigint.t
===================================================================
--- t/pmc/bigint.t (revision 10703)
+++ t/pmc/bigint.t (working copy)
@@ -1,14 +1,21 @@
#! perl -w
-# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
+# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
# $Id$
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test;
+use Parrot::Config;
+
=head1 NAME
t/pmc/bigint.t - BigInt
=head1 SYNOPSIS
- % perl -Ilib t/pmc/bigint.t
+ % prove t/pmc/bigint.t
=head1 DESCRIPTION
@@ -16,10 +23,6 @@
=cut
-use Parrot::Test;
-use Test::More;
-use Parrot::Config;
-
if ($PConfig{gmp}) {
plan tests => 26;
}
