Author: coke
Date: Tue Apr 24 14:11:04 2007
New Revision: 18327
Modified:
trunk/ (props changed)
trunk/t/pmc/compiler.t
trunk/t/pmc/deleg_pmc.t
trunk/t/pmc/enumerate.t
trunk/t/pmc/exception_handler.t
trunk/t/pmc/null.t
trunk/t/pmc/parrotclass.t
trunk/t/pmc/parrotlibrary.t
trunk/t/pmc/parrotrunningthread.t
trunk/t/pmc/parrotthread.t
trunk/t/pmc/pointer.t
trunk/t/pmc/retcontinuation.t
trunk/t/pmc/sharedref.t
trunk/t/pmc/stmlog.t
trunk/t/pmc/stmref.t
trunk/t/pmc/stmvar.t
trunk/t/pmc/unmanagedstruct.t
trunk/t/pmc/vtablecache.t
Log:
[t] convert more tests to parrot from perl
Modified: trunk/t/pmc/compiler.t
==============================================================================
--- trunk/t/pmc/compiler.t (original)
+++ trunk/t/pmc/compiler.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/compiler.t - test Compiler PMC
-
=head1 SYNOPSIS
% prove t/pmc/compiler.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .Compiler
- print "ok 1\n"
+ ok(1, 'Instantiated .Compiler')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/deleg_pmc.t
==============================================================================
--- trunk/t/pmc/deleg_pmc.t (original)
+++ trunk/t/pmc/deleg_pmc.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/deleg_pmc.t - test deleg_pmc PMC
-
=head1 SYNOPSIS
% prove t/pmc/deleg_pmc.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .deleg_pmc
- print "ok 1\n"
+ ok(1, 'Instantiated .deleg_pmc')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/enumerate.t
==============================================================================
--- trunk/t/pmc/enumerate.t (original)
+++ trunk/t/pmc/enumerate.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/enumerate.t - test Enumerate PMC
-
=head1 SYNOPSIS
% prove t/pmc/enumerate.t
@@ -23,15 +16,25 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P1, .Array
new P0, .Enumerate, P1
- print "ok 1\n"
+
+ ok(1, 'Instantiated .Enumerate')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/exception_handler.t
==============================================================================
--- trunk/t/pmc/exception_handler.t (original)
+++ trunk/t/pmc/exception_handler.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/exception_handler.t - test Exception_Handler PMC
-
=head1 SYNOPSIS
% prove t/pmc/exception_handler.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .Exception_Handler
- print "ok 1\n"
+ ok(1, 'Instantiated .Exception_Handler')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/null.t
==============================================================================
--- trunk/t/pmc/null.t (original)
+++ trunk/t/pmc/null.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/null.t - test Null PMC
-
=head1 SYNOPSIS
% prove t/pmc/null.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .Null
- print "ok 1\n"
+ ok(1, 'Instantiated .Null')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/parrotclass.t
==============================================================================
--- trunk/t/pmc/parrotclass.t (original)
+++ trunk/t/pmc/parrotclass.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/parrotclass.t - test the ParrotClass PMC
-
=head1 SYNOPSIS
% prove t/pmc/parrotclass.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .ParrotClass
- print "ok 1\n"
+ ok(1, 'Instantiated .ParrotClass')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/parrotlibrary.t
==============================================================================
--- trunk/t/pmc/parrotlibrary.t (original)
+++ trunk/t/pmc/parrotlibrary.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/parrotlibrary.t - test the ParrotLibrary PMC
-
=head1 SYNOPSIS
% prove t/pmc/parrotlibrary.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .ParrotLibrary
- print "ok 1\n"
+ ok(1, 'Instantiated .ParrotLibrary')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/parrotrunningthread.t
==============================================================================
--- trunk/t/pmc/parrotrunningthread.t (original)
+++ trunk/t/pmc/parrotrunningthread.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
+#! parrot
# Copyright (C) 2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/parrotrunningthread.t - test the ParrotRunningThread PMC
-
=head1 SYNOPSIS
% prove t/pmc/parrotrunningthread.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .ParrotRunningThread
- print "ok 1\n"
+ ok(1, 'Instantiated .ParrotRunningThread')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/parrotthread.t
==============================================================================
--- trunk/t/pmc/parrotthread.t (original)
+++ trunk/t/pmc/parrotthread.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/parrotthread.t - test the ParrotThread PMC
-
=head1 SYNOPSIS
% prove t/pmc/parrotthread.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .ParrotThread
- print "ok 1\n"
+ ok(1, 'Instantiated .ParrotThread')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/pointer.t
==============================================================================
--- trunk/t/pmc/pointer.t (original)
+++ trunk/t/pmc/pointer.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/pointer.t - test the Pointer PMC
-
=head1 SYNOPSIS
% prove t/pmc/pointer.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .Pointer
- print "ok 1\n"
+ ok(1, 'Instantiated .Pointer')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/retcontinuation.t
==============================================================================
--- trunk/t/pmc/retcontinuation.t (original)
+++ trunk/t/pmc/retcontinuation.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/retcontinuation.t - test the RetContinuation PMC
-
=head1 SYNOPSIS
% prove t/pmc/retcontinuation.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .RetContinuation
- print "ok 1\n"
+ ok(1, 'Instantiated .RetContinuation')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/sharedref.t
==============================================================================
--- trunk/t/pmc/sharedref.t (original)
+++ trunk/t/pmc/sharedref.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/sharedref.t - test the SharedRef PMC
-
=head1 SYNOPSIS
% prove t/pmc/sharedref.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .SharedRef
- print "ok 1\n"
+ ok(1, 'Instantiated .SharedRef')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/stmlog.t
==============================================================================
--- trunk/t/pmc/stmlog.t (original)
+++ trunk/t/pmc/stmlog.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
+#! parrot
# Copyright (C) 2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/stmlog.t - test the STMLog PMC
-
=head1 SYNOPSIS
% prove t/pmc/stmlog.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .STMLog
- print "ok 1\n"
+ ok(1, 'Instantiated .STMLog')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/stmref.t
==============================================================================
--- trunk/t/pmc/stmref.t (original)
+++ trunk/t/pmc/stmref.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
+#! parrot
# Copyright (C) 2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/stmref.t - test the STMRef PMC
-
=head1 SYNOPSIS
% prove t/pmc/stmref.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .STMRef
- print "ok 1\n"
+ ok(1, 'Instantiated .STMRef')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/stmvar.t
==============================================================================
--- trunk/t/pmc/stmvar.t (original)
+++ trunk/t/pmc/stmvar.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
+#! parrot
# Copyright (C) 2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/stmvar.t - test the STMVar PMC
-
=head1 SYNOPSIS
% prove t/pmc/stmvar.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .STMVar
- print "ok 1\n"
+ ok(1, 'Instantiated .STMVar')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/unmanagedstruct.t
==============================================================================
--- trunk/t/pmc/unmanagedstruct.t (original)
+++ trunk/t/pmc/unmanagedstruct.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/unmanagedstruct.t - test the UnManagedStruct PMC
-
=head1 SYNOPSIS
% prove t/pmc/unmanagedstruct.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .UnManagedStruct
- print "ok 1\n"
+ ok(1, 'Instantiated .UnManagedStruct')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
Modified: trunk/t/pmc/vtablecache.t
==============================================================================
--- trunk/t/pmc/vtablecache.t (original)
+++ trunk/t/pmc/vtablecache.t Tue Apr 24 14:11:04 2007
@@ -1,18 +1,11 @@
-#!perl
-# Copyright (C) 2006, The Perl Foundation.
+#! parrot
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
=head1 NAME
t/pmc/vtablecache.t - test VtableCache
-
=head1 SYNOPSIS
% prove t/pmc/vtablecache.t
@@ -23,14 +16,23 @@
=cut
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+.sub main :main
+ # load this library
+ load_bytecode 'library/Test/More.pir'
+
+ # get the testing functions
+ .local pmc exports, curr_namespace, test_namespace
+ curr_namespace = get_namespace
+ test_namespace = get_namespace [ "Test::More" ]
+ exports = split " ", "plan diag ok is is_deeply like isa_ok"
+
+ test_namespace."export_to"(curr_namespace, exports)
+
+ plan(1)
+
new P0, .VtableCache
- print "ok 1\n"
+ ok(1, 'Instantiated .VtableCache')
.end
-CODE
-ok 1
-OUT
# Local Variables:
# mode: cperl
