[svn:parrot] r38084 - branches/packfile_revamp/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Apr 12 09:54:21 2009
New Revision: 38084
URL: https://trac.parrot.org/parrot/changeset/38084

Log:
Rewrite packfileannotationkey.t into PIR

Modified:
   branches/packfile_revamp/t/pmc/packfileannotationkeys.t

Modified: branches/packfile_revamp/t/pmc/packfileannotationkeys.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfileannotationkeys.t	Sun Apr 12 09:54:07 2009	(r38083)
+++ branches/packfile_revamp/t/pmc/packfileannotationkeys.t	Sun Apr 12 09:54:21 2009	(r38084)
@@ -1,13 +1,6 @@
-#!perl
+#!parrot
 # Copyright (C) 2006-2009, Parrot Foundation.
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-use Parrot::Config;
-
 =head1 NAME
 
 t/pmc/packfileannotationkeys.t - test the PackfileAnnotationKeys PMC
@@ -25,14 +18,14 @@
 
 
 # Packfile constructor
-
-pir_output_is( <<'CODE', <<'OUT', 'new' );
 .sub 'test' :main
+.include 'test_more.pir'
     .local pmc pf
+
+    plan(5)
+
     pf = new ['PackfileAnnotationKeys']
     $I0 = defined pf
-    say $I0
+    ok($I0, "PackfileAnnotationKeys created")
+
 .end
-CODE
-1
-OUT