[perl #75368] tests available

[kyleha]

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

commit 95286058005835b101d98e9f2d55549f5fe2aa64
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun May 30 12:55:14 2010 +0000

    [t/spec] tests for RT #75368 and new spec wrt autothreading over negated 
operators
    
    git-svn-id: http://svn.pugscode.org/p...@30992 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-junctions/autothreading.t 
b/t/spec/S03-junctions/autothreading.t
index ec61ecb..2e32c6b 100644
--- a/t/spec/S03-junctions/autothreading.t
+++ b/t/spec/S03-junctions/autothreading.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 77;
+plan 83;
 
 {
     # Solves the equation A + B = A * C for integers
@@ -285,4 +285,18 @@ plan 77;
     is $c, 6, 'do autothread over blocks with explicit Any';
 }
 
+# used to be RT #75368
+# L<S03/Junctive operators/Use of negative operators with junctions>
+{
+    my Mu $x = 'a' ne ('a'|'b'|'c');
+    ok $x ~~ Bool, 'infix:<ne> collapses the junction (1)';
+    ok $x !~~ Junction, 'infix:<ne> collapses the junction (2)';
+    nok $x, '... and the result is False';
+
+    my Mu $y = 'a' !eq ('a'|'b'|'c');
+    ok $y ~~ Bool, 'infix:<!eq> collapses the junction (1)';
+    ok $y !~~ Junction, 'infix:<!eq> collapses the junction (2)';
+    nok $y, '... and the result is False';
+}
+
 # vim: ft=perl6