Author: jonathan
Date: Mon Nov 7 12:56:25 2005
New Revision: 9827
Modified:
trunk/t/tools/pbc_merge.t
Log:
Re-enable pbc_merge tests, since it's a real problem that needs fixing rather
than a bad test. Also add an extra test.
Modified: trunk/t/tools/pbc_merge.t
==============================================================================
--- trunk/t/tools/pbc_merge.t (original)
+++ trunk/t/tools/pbc_merge.t Mon Nov 7 12:56:25 2005
@@ -29,8 +29,8 @@ my $PARROT = ".$PConfig{slash}$PConfig{t
my $PBCMERGE = ".$PConfig{slash}pbc_merge$PConfig{exe}";
# Only test if we have the PBC merge tool built.
-if (0 && -e $PBCMERGE) { # disabled (failing) --leo
- plan tests => 2;
+if (-e $PBCMERGE) {
+ plan tests => 3;
} else {
plan skip_all => "PBC Merge tool not built or test disabled";
}
@@ -98,3 +98,26 @@ PIR
pbc_merge("pbc_merge_t2", "pbc_merge_t2_1", "pbc_merge_t2_2");
is(run_pbc("pbc_merge_t2"), "Rammstein have rocked for over 10.398571 years!");
+# Third test - sub calls back and forth between blocks.
+pir_to_pbc "pbc_merge_t3_1", <<'PIR';
+.sub main :main
+ .local string s
+ s = test1()
+.end
+
+.sub test2
+ .local string s
+ s = "Stirb nicht vor mir"
+ .return(s)
+.end
+PIR
+pir_to_pbc "pbc_merge_t3_2", <<'PIR';
+.sub test1
+ .local string s
+ s = test2()
+ .return(s)
+.end
+PIR
+pbc_merge("pbc_merge_t3", "pbc_merge_t3_1", "pbc_merge_t3_2");
+is(run_pbc("pbc_merge_t3"), "Stirb nicht vor mir");
+
