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

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Apr 12 09:53:19 2009
New Revision: 38080
URL: https://trac.parrot.org/parrot/changeset/38080

Log:
Convert packfileannotations.t to PIR.

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

Modified: branches/packfile_revamp/t/pmc/packfileannotations.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfileannotations.t	Sun Apr 12 08:03:14 2009	(r38079)
+++ branches/packfile_revamp/t/pmc/packfileannotations.t	Sun Apr 12 09:53:19 2009	(r38080)
@@ -1,12 +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
 
@@ -23,16 +17,17 @@
 
 =cut
 
+.sub 'main' :main
+.include 'test_more.pir'
+    plan(1)
+    test_sanity()
+.end
 
-# Packfile constructor
 
-pir_output_is( <<'CODE', <<'OUT', 'new' );
-.sub 'test' :main
+# Packfile constructor
+.sub 'test_sanity'
     .local pmc pf
     pf = new ['PackfileAnnotations']
     $I0 = defined pf
-    say $I0
+    ok($I0, "PackfileAnnotations created")
 .end
-CODE
-1
-OUT