[perl #67866] 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 d6349a067afa245032afbf886065e5753c08ea53
Author: smash <sm...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Sep 15 20:13:00 2009 +0000

    * add tests for RT#67866
    
    
    git-svn-id: http://svn.pugscode.org/p...@28245 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-junctions/misc.t b/t/spec/S03-junctions/misc.t
index 46043de..e4d7f05 100644
--- a/t/spec/S03-junctions/misc.t
+++ b/t/spec/S03-junctions/misc.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 99;
+plan 103;
 
 =begin pod
 
@@ -425,4 +425,12 @@ sub junction_diff(Object $this, Object $that) {
     is rt63686(), 'happiness', 'for loop over junction in sub';
 }
 
+# RT#67866: [BUG] [LHF] Error with stringifying .WHAT on any junctions
+{
+    ok((WHAT any()) === Junction, "test WHAT on empty any junction");
+    ok(any().WHAT === Junction, "test WHAT on empty any junction");
+    ok((WHAT any(1,2)) === Junction, "test WHAT on any junction");
+    ok(any(1,2).WHAT === Junction, "test WHAT on any junction");
+}
+
 # vim: ft=perl6