Author: particle
Date: Thu Jan 12 11:03:30 2006
New Revision: 11125
Added:
trunk/t/pmc/addrregistry.t (contents, props changed)
trunk/t/pmc/bound_nci.t (contents, props changed)
trunk/t/pmc/closure.t (contents, props changed)
trunk/t/pmc/compiler.t (contents, props changed)
trunk/t/pmc/continuation.t (contents, props changed)
trunk/t/pmc/csub.t (contents, props changed)
trunk/t/pmc/default.t (contents, props changed)
trunk/t/pmc/deleg_pmc.t (contents, props changed)
trunk/t/pmc/enumerate.t (contents, props changed)
trunk/t/pmc/exception_handler.t (contents, props changed)
trunk/t/pmc/iterator.t
- copied, changed from r11124, trunk/t/pmc/iter.t
Removed:
trunk/t/pmc/iter.t
Modified:
trunk/MANIFEST
Log:
PMC tests 1: add missing test files for PMCs (a-i)
~ just stubs, more tests needed
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Jan 12 11:03:30 2006
@@ -1969,14 +1969,20 @@ t/perl/Parrot_IO.t
t/perl/README []
t/perl/cppcomments.t []
t/perl/manifest.t []
+t/pmc/addrregistry.t []
t/pmc/array.t []
t/pmc/bigint.t []
t/pmc/bignum.t []
t/pmc/boolean.t []
+t/pmc/bound_nci.t []
t/pmc/builtin.t []
+t/pmc/closure.t []
+t/pmc/compiler.t []
t/pmc/complex.t []
t/pmc/config.t []
+t/pmc/continuation.t []
t/pmc/coroutine.t []
+t/pmc/csub.t []
t/pmc/delegate.t []
t/pmc/env.t []
t/pmc/eval.t []
@@ -1995,7 +2001,7 @@ t/pmc/hash.t
t/pmc/integer.t []
t/pmc/intlist.t []
t/pmc/io.t []
-t/pmc/iter.t []
+t/pmc/iterator.t []
t/pmc/key.t []
t/pmc/managedstruct.t []
t/pmc/mmd.t []
Added: trunk/t/pmc/addrregistry.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/addrregistry.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/addrregistry.t - test AddrRegistry PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/addrregistry.t
+
+=head1 DESCRIPTION
+
+Tests the AddrRegistry PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .AddrRegistry
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/bound_nci.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/bound_nci.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/bound_nci.t - test Bound_NCI PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/bound_nci.t
+
+=head1 DESCRIPTION
+
+Tests the Bound_NCI PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Bound_NCI
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/closure.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/closure.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/closure.t - test Closure PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/closure.t
+
+=head1 DESCRIPTION
+
+Tests the Closure PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Closure
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/compiler.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/compiler.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/compiler.t - test Compiler PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/compiler.t
+
+=head1 DESCRIPTION
+
+Tests the Compiler PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Compiler
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/continuation.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/continuation.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/continuation.t - test Continuation PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/continuation.t
+
+=head1 DESCRIPTION
+
+Tests the Continuation PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Continuation
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/csub.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/csub.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/csub.t - test CSub PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/csub.t
+
+=head1 DESCRIPTION
+
+Tests the CSub PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .CSub
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/default.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/default.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/default.t - test default PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/default.t
+
+=head1 DESCRIPTION
+
+Tests the default PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new', todo => 'not implemeted');
+.sub 'test' :main
+ new P0, .default
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/deleg_pmc.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/deleg_pmc.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/deleg_pmc.t - test deleg_pmc PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/deleg_pmc.t
+
+=head1 DESCRIPTION
+
+Tests the deleg_pmc PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .deleg_pmc
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/enumerate.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/enumerate.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/enumerate.t - test Enumerate PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/enumerate.t
+
+=head1 DESCRIPTION
+
+Tests the Enumerate PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Enumerate
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/exception_handler.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/exception_handler.t Thu Jan 12 11:03:30 2006
@@ -0,0 +1,38 @@
+#!perl
+# Copyright: 2006 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/exception_handler.t - test Exception_Handler PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/exception_handler.t
+
+=head1 DESCRIPTION
+
+Tests the Exception_Handler PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Exception_Handler
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Copied: trunk/t/pmc/iterator.t (from r11124, trunk/t/pmc/iter.t)
==============================================================================
--- trunk/t/pmc/iter.t (original)
+++ trunk/t/pmc/iterator.t Thu Jan 12 11:03:30 2006
@@ -1360,7 +1360,7 @@ lp1:
h[k] = i
inc i
if i < 10 goto lp1
-
+
it = iter h
ar = new ResizablePMCArray
i = 20
@@ -1391,5 +1391,5 @@ lp3:
CODE
29_28_27_26_25_24_23_22_21_20_9_8_7_6_5_4_3_2_1_0_
OUTPUT
-}
+}
