Author: particle
Date: Thu Jan 12 13:32:38 2006
New Revision: 11133
Added:
trunk/t/pmc/lexinfo.t (contents, props changed)
trunk/t/pmc/lexpad.t (contents, props changed)
trunk/t/pmc/none.t (contents, props changed)
trunk/t/pmc/null.t (contents, props changed)
trunk/t/pmc/parrotclass.t (contents, props changed)
trunk/t/pmc/parrotinterpreter.t (contents, props changed)
trunk/t/pmc/parrotio.t (contents, props changed)
trunk/t/pmc/parrotlibrary.t (contents, props changed)
trunk/t/pmc/parrotobject.t (contents, props changed)
trunk/t/pmc/parrotthread.t (contents, props changed)
trunk/t/pmc/perlenv.t (contents, props changed)
trunk/t/pmc/perlscalar.t (contents, props changed)
trunk/t/pmc/pointer.t (contents, props changed)
trunk/t/pmc/random.t (contents, props changed)
trunk/t/pmc/retcontinuation.t (contents, props changed)
trunk/t/pmc/scalar.t (contents, props changed)
trunk/t/pmc/sharedref.t (contents, props changed)
trunk/t/pmc/slice.t (contents, props changed)
trunk/t/pmc/super.t (contents, props changed)
trunk/t/pmc/unmanagedstruct.t (contents, props changed)
trunk/t/pmc/version.t (contents, props changed)
trunk/t/pmc/vtablecache.t (contents, props changed)
Modified:
trunk/MANIFEST
Log:
PMC tests 1: add missing test files for PMCs (j-z)
~ just stubs, more tests needed
Each PMC file now has it's own test file
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST (original)
+++ trunk/MANIFEST Thu Jan 12 13:32:38 2006
@@ -2003,6 +2003,8 @@ t/pmc/intlist.t
t/pmc/io.t []
t/pmc/iterator.t []
t/pmc/key.t []
+t/pmc/lexinfo.t []
+t/pmc/lexpad.t []
t/pmc/managedstruct.t []
t/pmc/mmd.t []
t/pmc/multiarray.t []
@@ -2010,35 +2012,55 @@ t/pmc/multisub.t
t/pmc/n_arithmetics.t []
t/pmc/namespace.t []
t/pmc/nci.t []
+t/pmc/none.t []
+t/pmc/null.t []
t/pmc/object-meths.t []
t/pmc/object-mro.t []
t/pmc/objects.t []
t/pmc/orderedhash.t []
t/pmc/os.t []
t/pmc/pair.t []
+t/pmc/parrotclass.t []
+t/pmc/parrotinterpreter.t []
+t/pmc/parrotio.t []
+t/pmc/parrotlibrary.t []
+t/pmc/parrotobject.t []
+t/pmc/parrotthread.t []
t/pmc/perlarray.t []
+t/pmc/perlenv.t []
t/pmc/perlhash.t []
t/pmc/perlint.t []
t/pmc/perlnum.t []
+t/pmc/perlscalar.t []
t/pmc/perlstring.t []
t/pmc/perlundef.t []
+t/pmc/pointer.t []
t/pmc/pmc.t []
t/pmc/prop.t []
+t/pmc/random.t []
t/pmc/ref.t []
+t/pmc/retcontinuation.t []
t/pmc/resizablebooleanarray.t []
t/pmc/resizablefloatarray.t []
t/pmc/resizableintegerarray.t []
t/pmc/resizablepmcarray.t []
t/pmc/resizablestringarray.t []
t/pmc/sarray.t []
+t/pmc/scalar.t []
+t/pmc/sharedref.t []
t/pmc/signal.t []
+t/pmc/slice.t []
t/pmc/string.t []
+t/pmc/super.t []
t/pmc/sub.t []
t/pmc/sys.t []
t/pmc/threads.t []
t/pmc/timer.t []
t/pmc/tqueue.t []
t/pmc/undef.t []
+t/pmc/unmanagedstruct.t []
+t/pmc/version.t []
+t/pmc/vtablecache.t []
t/run/README []
t/run/exit.t []
t/run/options.t []
Added: trunk/t/pmc/lexinfo.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/lexinfo.t Thu Jan 12 13:32:38 2006
@@ -0,0 +1,39 @@
+#!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/lexinfo.t - test LexInfo PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/lexinfo.t
+
+=head1 DESCRIPTION
+
+Tests the LexInfo PMC.
+
+=cut
+
+
+pir_output_like(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .LexInfo
+ print "ok 1\n"
+.end
+CODE
+/don't create me like this
+current instr\.:.*/
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/lexpad.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/lexpad.t Thu Jan 12 13:32:38 2006
@@ -0,0 +1,39 @@
+#!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/lexpad.t - test LexPad PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/lexpad.t
+
+=head1 DESCRIPTION
+
+Tests the LexPad PMC.
+
+=cut
+
+
+pir_output_like(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .LexPad
+ print "ok 1\n"
+.end
+CODE
+/don't create me like this
+current instr\.:.*/
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/none.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/none.t Thu Jan 12 13:32:38 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/none.t - test None PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/none.t
+
+=head1 DESCRIPTION
+
+Tests the None PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .None
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/null.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/null.t Thu Jan 12 13:32:38 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/null.t - test Null PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/null.t
+
+=head1 DESCRIPTION
+
+Tests the Null PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Null
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotclass.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotclass.t Thu Jan 12 13:32:38 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/parrotclass.t - test the ParrotClass PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotclass.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotClass PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotClass
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotinterpreter.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotinterpreter.t Thu Jan 12 13:32:38 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/parrotinterpreter.t - test the ParrotInterpreter PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotinterpreter.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotInterpreter PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotInterpreter
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotio.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotio.t Thu Jan 12 13:32:38 2006
@@ -0,0 +1,37 @@
+#!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/parrotio.t - test the ParrotIO PMC
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotio.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotIO PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotIO
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotlibrary.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotlibrary.t Thu Jan 12 13:32:38 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/parrotlibrary.t - test the ParrotLibrary PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotlibrary.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotLibrary PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotLibrary
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotobject.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotobject.t Thu Jan 12 13:32:38 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/parrotobject.t - test the ParrotObject PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotobject.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotObject PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotObject
+ print "ok 1\n"
+.end
+CODE
+Can't create new ParrotObjects - use the registered class instead
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/parrotthread.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/parrotthread.t Thu Jan 12 13:32:38 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/parrotthread.t - test the ParrotThread PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/parrotthread.t
+
+=head1 DESCRIPTION
+
+Tests the ParrotThread PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .ParrotThread
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/perlenv.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/perlenv.t Thu Jan 12 13:32:38 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/perlenv.t - test the PerlEnv PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/perlenv.t
+
+=head1 DESCRIPTION
+
+Tests the PerlEnv PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .PerlEnv
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/perlscalar.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/perlscalar.t Thu Jan 12 13:32:38 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/perlscalar.t - test the perlscalar PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/perlscalar.t
+
+=head1 DESCRIPTION
+
+Tests the perlscalar PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new', todo => 'not yet working');
+.sub 'test' :main
+ new P0, .perlscalar
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/pointer.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/pointer.t Thu Jan 12 13:32:38 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/pointer.t - test the Pointer PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/pointer.t
+
+=head1 DESCRIPTION
+
+Tests the Pointer PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Pointer
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/random.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/random.t Thu Jan 12 13:32:38 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/random.t - test the Random PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/random.t
+
+=head1 DESCRIPTION
+
+Tests the Random PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Random
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/retcontinuation.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/retcontinuation.t Thu Jan 12 13:32:38 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/retcontinuation.t - test the RetContinuation PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/retcontinuation.t
+
+=head1 DESCRIPTION
+
+Tests the RetContinuation PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .RetContinuation
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/scalar.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/scalar.t Thu Jan 12 13:32:38 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/scalar.t - test the scalar PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/scalar.t
+
+=head1 DESCRIPTION
+
+Tests the scalar PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new', todo => 'not yet working');
+.sub 'test' :main
+ new P0, .scalar
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/sharedref.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/sharedref.t Thu Jan 12 13:32:38 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/sharedref.t - test the SharedRef PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/sharedref.t
+
+=head1 DESCRIPTION
+
+Tests the SharedRef PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .SharedRef
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/slice.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/slice.t Thu Jan 12 13:32:38 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/slice.t - test Slice PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/slice.t
+
+=head1 DESCRIPTION
+
+Tests the Slice PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Slice
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/super.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/super.t Thu Jan 12 13:32:38 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/super.t - test the Super PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/super.t
+
+=head1 DESCRIPTION
+
+Tests the Super PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .Super
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/unmanagedstruct.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/unmanagedstruct.t Thu Jan 12 13:32:38 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/unmanagedstruct.t - test the UnManagedStruct PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/unmanagedstruct.t
+
+=head1 DESCRIPTION
+
+Tests the UnManagedStruct PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .UnManagedStruct
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/version.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/version.t Thu Jan 12 13:32:38 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/version.t - test the Version PMC
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/version.t
+
+=head1 DESCRIPTION
+
+Tests the Version PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new', todo => 'not yet working');
+.sub 'test' :main
+ new P0, .version
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
Added: trunk/t/pmc/vtablecache.t
==============================================================================
--- (empty file)
+++ trunk/t/pmc/vtablecache.t Thu Jan 12 13:32:38 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/vtablecache.t - test VtableCache
+
+
+=head1 SYNOPSIS
+
+ % prove t/pmc/vtablecache.t
+
+=head1 DESCRIPTION
+
+Tests the VtableCache PMC.
+
+=cut
+
+
+pir_output_is(<<'CODE', <<'OUT', 'new');
+.sub 'test' :main
+ new P0, .VtableCache
+ print "ok 1\n"
+.end
+CODE
+ok 1
+OUT
+
+
+# remember to change the number of tests :-)
+BEGIN { plan tests => 1; }
