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

bacek at svn.parrot.org bacek at svn.parrot.org
Sun Apr 12 08:02:21 UTC 2009


Author: bacek
Date: Sun Apr 12 08:02:21 2009
New Revision: 38076
URL: https://trac.parrot.org/parrot/changeset/38076

Log:
Fix packfiledirectory.t

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

Modified: branches/packfile_revamp/t/pmc/packfiledirectory.t
==============================================================================
--- branches/packfile_revamp/t/pmc/packfiledirectory.t	Sun Apr 12 08:02:04 2009	(r38075)
+++ branches/packfile_revamp/t/pmc/packfiledirectory.t	Sun Apr 12 08:02:21 2009	(r38076)
@@ -95,7 +95,7 @@
     $I0 = elements pfdir
     $P0 = iter pfdir
     $S0 = shift $P0
-    pfdir[$S0] = $P0
+    pfdir[$S0] = seg
     $I1   = elements pfdir
     is($I0, $I1, "Segment with old name was added")
     goto done
@@ -104,7 +104,7 @@
   add_new:
     seg = new [ 'PackfileRawSegment' ]
     $S0 = 'BYTECODE_foo'
-    pfdir[$S0] = $P0
+    pfdir[$S0] = seg
     $I1   = elements pfdir
     inc $I0
     is($I0, $I1, "New segment added")


More information about the parrot-commits mailing list