[svn:parrot] r37160 - trunk/t/pmc

[rurban at svn.parrot.org]

Author: rurban
Date: Sat Mar  7 11:05:25 2009
New Revision: 37160
URL: https://trac.parrot.org/parrot/changeset/37160

Log:
[t] fix new win32 packfiledirectory failure

Modified:
   trunk/t/pmc/packfiledirectory.t

Modified: trunk/t/pmc/packfiledirectory.t
==============================================================================
--- trunk/t/pmc/packfiledirectory.t	Sat Mar  7 10:57:41 2009	(r37159)
+++ trunk/t/pmc/packfiledirectory.t	Sat Mar  7 11:05:25 2009	(r37160)
@@ -104,8 +104,7 @@
 
 
 # PackfileDirectory.get_string_keyed_int
-{
-    my $EXPECTED = <<EXPECTED;
+my $EXPECTED = <<EXPECTED;
 BYTECODE_runtime/parrot/library/uuid.pir
 FIXUP_runtime/parrot/library/uuid.pir
 CONSTANT_runtime/parrot/library/uuid.pir
@@ -113,10 +112,10 @@
 BYTECODE_runtime/parrot/library/uuid.pir_DB
 EXPECTED
 
-    $EXPECTED =~ s/\//\\/g
-        if $^O eq 'MSWin32';
+$EXPECTED =~ s/\//\\/g
+  if $^O eq 'MSWin32';
 
-    pir_output_is( <<'CODE' . $get_uuid_pbc, $EXPECTED, 'PackfileDirectory.get_string_keyed_int' );
+pir_output_is( <<'CODE' . $get_uuid_pbc, $EXPECTED, 'PackfileDirectory.get_string_keyed_int' );
 .sub 'test' :main
     .local pmc pf, pfdir
     pf    = _pbc()
@@ -133,7 +132,6 @@
     .return()
 .end
 CODE
-}
 
 
 # PackfileDirectory.get_pmc_keyed_str
@@ -169,8 +167,8 @@
 
 
 # PackfileDirectory.set_pmc_keyed_str
-
-pir_output_is( <<'CODE' . $get_uuid_pbc, <<'OUT', 'PackfileDirectory.set_pmc_keyed_str' );
+my $EXPECTED_foo = $EXPECTED . "BYTECODE_foo\n";
+pir_output_is( <<'CODE' . $get_uuid_pbc, $EXPECTED_foo, 'PackfileDirectory.set_pmc_keyed_str' );
 .sub 'test' :main
     .local pmc pf, pfdir
     pf    = _pbc()
@@ -190,14 +188,6 @@
     .return()
 .end
 CODE
-BYTECODE_runtime/parrot/library/uuid.pir
-FIXUP_runtime/parrot/library/uuid.pir
-CONSTANT_runtime/parrot/library/uuid.pir
-PIC_idx_runtime/parrot/library/uuid.pir
-BYTECODE_runtime/parrot/library/uuid.pir_DB
-BYTECODE_foo
-OUT
-
 
 # Local Variables:
 #   mode: cperl