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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Apr 11 00:48:06 2009
New Revision: 38044
URL: https://trac.parrot.org/parrot/changeset/38044

Log:
Convert t/pmc/packfilerawsegment.t to PIR.

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

Modified: branches/packfile_revamp/t/pmc/packfilerawsegment.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfilerawsegment.t	Sat Apr 11 00:47:48 2009	(r38043)
+++ branches/packfile_revamp/t/pmc/packfilerawsegment.t	Sat Apr 11 00:48:06 2009	(r38044)
@@ -1,14 +1,7 @@
-#!perl
+#!parrot
 # Copyright (C) 2009, Parrot Foundation.
 # $Id$
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 2;
-use Parrot::Config;
-
 =head1 NAME
 
 t/pmc/packfilerawsegment.t - test the PackfileRawSegment PMC
@@ -28,55 +21,35 @@
 # the value returned by elements() is greater than zero, and that
 # get_integer_keyed_int doesn't return all zeroes either.
 
-
-# common setup code for later tests
-
-my $get_uuid_pbc = <<'EOF';
-
-.sub _pbc
-    .include "stat.pasm"
-    .include "interpinfo.pasm"
-    .local pmc pf, pio
-    pf   = new ['Packfile']
-    $S0  = interpinfo .INTERPINFO_RUNTIME_PREFIX
-    $S0 .= "/runtime/parrot/library/uuid.pbc"
-    $I0  = stat $S0, .STAT_FILESIZE
-    pio  = open $S0, 'r'
-    $S0  = read pio, $I0
-    close pio
-    pf   = $S0
-    .return(pf)
+.include 't/pmc/packfile_common.pir'
+.sub 'main' :main
+.include 'test_more.pir'
+    plan(2)
+    test_elements()
+    test_get_integer()
 .end
-EOF
-
 
 # PackfileRawSegment.elements
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'elements' );
-.sub 'test' :main
+.sub 'test_elements'
     .local pmc pf, pfdir, pfseg
     pf    = _pbc()
     pfdir = pf.'get_directory'()
-    pfseg = pfdir[0]
+    $P0   = iter pfdir
+    $S0   = shift $P0
+    pfseg = pfdir[$S0]
     $I0   = elements pfseg
-    gt $I0, 0, DONE
-    say 'not '
-    DONE:
-    say 'greater'
+    ok($I0, 'PackfileRawSegment contains some data')
 .end
-CODE
-greater
-OUT
-
 
 # PackfileRawSegment.get_integer_keyed_int
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'get_integer_keyed_int' );
-.sub 'test' :main
+.sub 'test_get_integer'
     .local pmc pf, pfdir, pfseg
     pf    = _pbc()
     pfdir = pf.'get_directory'()
-    pfseg = pfdir[0]
+    $P0   = iter pfdir
+    $S0   = shift $P0
+    pfseg = pfdir[$S0]
+
     $I0   = 0
     $I1   = pfseg[0]
     $I0   = $I0 + $I1
@@ -88,14 +61,8 @@
     $I0   = $I0 + $I1
     $I1   = pfseg[4]
     $I0   = $I0 + $I1
-    gt $I0, 0, DONE
-    say 'not '
-    DONE:
-    say 'greater'
+    ok($I0, "PackfileRawSegment.get_integer_keyed_int returns some data")
 .end
-CODE
-greater
-OUT
 
 
 # Local Variables: