Author: infinoid
Date: Sat Jul 19 10:18:22 2008
New Revision: 29611
Modified:
branches/pdd13pbc/t/pmc/packfile.t
Log:
[PDD13]
* Test script should use "interpinfo" to find the parrot runtime prefix,
for finding pbc files to test against.
Modified: branches/pdd13pbc/t/pmc/packfile.t
==============================================================================
--- branches/pdd13pbc/t/pmc/packfile.t (original)
+++ branches/pdd13pbc/t/pmc/packfile.t Sat Jul 19 10:18:22 2008
@@ -70,7 +70,9 @@
pir_output_is( <<'CODE', <<'OUT', 'set_string_native -> get_string' );
.sub 'test' :main
.include "stat.pasm"
- $S0 = "runtime/parrot/library/uuid.pbc"
+ .include "interpinfo.pasm"
+ $S0 = interpinfo .INTERPINFO_RUNTIME_PREFIX
+ $S0 .= "/runtime/parrot/library/uuid.pbc"
$I0 = stat $S0, .STAT_FILESIZE
$P0 = open $S0, "<"
$S0 = read $P0, $I0
