[svn:parrot] r42950 - trunk/t/dynpmc

Util at svn.parrot.org Util at svn.parrot.org
Tue Dec 8 21:52:36 UTC 2009


Author: Util
Date: Tue Dec  8 21:52:34 2009
New Revision: 42950
URL: https://trac.parrot.org/parrot/changeset/42950

Log:
[t] TT #1218 - Converted t/dynpmc/foo2.t to PIR. bubaflub++

Modified:
   trunk/t/dynpmc/foo2.t

Modified: trunk/t/dynpmc/foo2.t
==============================================================================
--- trunk/t/dynpmc/foo2.t	Tue Dec  8 21:35:33 2009	(r42949)
+++ trunk/t/dynpmc/foo2.t	Tue Dec  8 21:52:34 2009	(r42950)
@@ -1,21 +1,14 @@
-#! perl
-# Copyright (C) 2005, Parrot Foundation.
+#! parrot
+# Copyright (C) 2009, Parrot Foundation.
 # $Id$
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-use Parrot::Config;
-
 =head1 NAME
 
-t/dynpmc/foo.t - Test for a very simple dynamic PMC
+t/dynpmc/foo2.t - Test for a very simple dynamic PMC
 
 =head1 SYNOPSIS
 
-        % prove t/dynpmc/foo.t
+        % prove t/dynpmc/foo2.t
 
 =head1 DESCRIPTION
 
@@ -23,22 +16,24 @@
 
 =cut
 
-pir_output_is( << 'CODE', << 'OUTPUT', "dynpmcs can use SUPER to call parent dynpmc VTABLE functions" );
-
 .sub main :main
+    .include 'test_more.pir'
+    plan(1)
+
+    test_dynpmcs_can_use_super()
+.end
+
+.sub test_dynpmcs_can_use_super 
     $P0 = loadlib 'foo_group'
     $P1 = new "Foo2"
 
     $I1 = $P1
-    say $I1
+    is($I1, 43, 'dynpmcs can use SUPER to call parent dynpmc VTABLE functions')
 .end
-CODE
-43
-OUTPUT
 
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4
 #   fill-column: 100
 # End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4: filetype=pir:


More information about the parrot-commits mailing list