[perl #63686] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-junctions/misc.t

commit dcde0ac24640877f0b8ff37a22ffef553283bbad
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jul 24 19:38:28 2009 +0000

    [t/spec] (perhaps incomplete) test for RT #63686
    
    git-svn-id: http://svn.pugscode.org/p...@27709 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-junctions/misc.t b/t/spec/S03-junctions/misc.t
index 1b9515f..d02666f 100644
--- a/t/spec/S03-junctions/misc.t
+++ b/t/spec/S03-junctions/misc.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 95;
+plan 97;
 
 =begin pod
 
@@ -408,6 +408,14 @@ sub junction_diff(Object $this, Object $that) {
   is_deeply(junction_diff(1|2, 1|2|3), ["3 is missing from this"], 'Value is 
missing from left side');
 }
 
+# RT #63686
+{
+    lives_ok { try { for any(1,2) -> $x {}; } },
+             'for loop over junction in try block';
 
-
-
+    sub rt63686 {
+        for any(1,2) -> $x {};
+        return 'happiness';
+    }
+    is rt63686(), 'happiness', 'for loop over junction in sub';
+}