Index: t/op/literal.t
===================================================================
--- t/op/literal.t	(revision 41935)
+++ t/op/literal.t	(working copy)
@@ -1,13 +1,7 @@
-#!perl
-# Copyright (C) 2001-2005, Parrot Foundation.
+#!parrot
+# Copyright (C) 2001-2009, Parrot Foundation.
 # $Id$
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 2;
-
 =head1 NAME
 
 t/op/literal.t - Testing the PIR and PASM lexer
@@ -31,44 +25,24 @@
 
 =cut
 
-pasm_output_is( <<'CODE', <<'OUTPUT', "integer literals in PASM" );
-        print 0x2A
-        print "\n"
-        print 0X2A
-        print "\n"
-        print 0b101010
-        print "\n"
-        print 0B101010
-        print "\n"
-        end
-CODE
-42
-42
-42
-42
-OUTPUT
+.sub main :main
+    .include 'test_more.pir'
 
-pir_output_is( <<'CODE', <<'OUTPUT', "integer literals in PIR" );
-.sub test :main
-        print 0x2A
-        print "\n"
-        print 0X2A
-        print "\n"
-        print 0b101010
-        print "\n"
-        print 0B101010
-        print "\n"
+    plan(4)
+    test_integer_literals_in_pasm()
+    # END_OF_TESTS
 .end
-CODE
-42
-42
-42
-42
-OUTPUT
 
+.sub test_integer_literals_in_pasm
+    is( 0x2A, 42, 'Integer literals in PIR' )
+    is( 0X2A, 42, 'Integer literals in PIR' )
+    is( 0b101010, 42, 'Integer literals in PIR' )
+    is( 0B101010, 42, 'Integer literals in PIR' )
+.end
+
 # Local Variables:
-#   mode: cperl
+#   mode: pir
 #   cperl-indent-level: 4
 #   fill-column: 100
 # End:
-# vim: expandtab shiftwidth=4:
+# vim: expandtab shiftwidth=4 ft=pir: