[svn:parrot] r38881 - branches/tt504_annotations/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun May 17 22:32:20 2009
New Revision: 38881
URL: https://trac.parrot.org/parrot/changeset/38881

Log:
[t] Split Annotations.test_unpack into loading and checking parts.

Second part will be used for test pack/unpack combo.

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

Modified: branches/tt504_annotations/t/pmc/packfileannotations.t
==============================================================================
--- branches/tt504_annotations/t/pmc/packfileannotations.t	Sun May 17 22:17:52 2009	(r38880)
+++ branches/tt504_annotations/t/pmc/packfileannotations.t	Sun May 17 22:32:20 2009	(r38881)
@@ -60,12 +60,18 @@
 
 # PackfileAnnotations unpack from PBC
 .sub 'test_unpack'
-    .local pmc pf, pfdir, pfanns, it
+    .local pmc pf
 
     $P0 = open 't/native_pbc/annotations.pbc'
     $S0 = $P0.'readall'()
     pf = new 'Packfile'
     pf = $S0
+    .tailcall '!test_unpack'(pf)
+.end
+
+.sub '!test_unpack'
+    .param pmc pf
+    .local pmc pfdir, pfanns, it
 
     # Find annotations
     pfdir = pf.'get_directory'()