[perl #77604] tests available

[kyleha]

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

commit 47cf1b0a7a3249aa2c8c703f699e90df63a9eef6
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Sep 1 19:13:44 2010 +0000

    [t/spec] unfudge tests for RT #77604
    
    git-svn-id: http://svn.pugscode.org/p...@32124 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-junctions/boolean-context.t 
b/t/spec/S03-junctions/boolean-context.t
index 93886a5..4368119 100644
--- a/t/spec/S03-junctions/boolean-context.t
+++ b/t/spec/S03-junctions/boolean-context.t
@@ -57,23 +57,18 @@ ok !($undef ^ 0), 'undef^0 in boolean context';
 #?rakudo skip 'Mu and =='
 ok ?(0|$undef == 0), '0|undef == 0 in boolean context';
 
-my $message1 = 'boolean context collapses junctions';
-my $message2 = '...so that they\'re not junctions anymore';
+my $message1 = 'boolean context collapses Junctions';
+my $message2 = '...so that they\'re not Junctions anymore';
 ok ?(Bool::True & Bool::False)    ==  Bool::False, $message1;
 #?DOES 1
-#?rakudo skip 'junction type (lower case)'
-ok ?(Bool::True & Bool::False)    !~~ junction,    $message2;
+ok ?(Bool::True & Bool::False)    !~~ Junction,    $message2;
 ok !(Bool::True & Bool::False)    ==  Bool::True,  $message1;
 #?DOES 1
-#?rakudo skip 'junction type (lower case)'
-ok !(Bool::True & Bool::False)    !~~ junction,    $message2;
+ok !(Bool::True & Bool::False)    !~~ Junction,    $message2;
 #?rakudo todo 'named unary as function call'
 ok so(Bool::True & Bool::False) ==  Bool::False, $message1;
-#?rakudo skip 'junction type (lower case)'
-ok so(Bool::True & Bool::False) !~~ junction,    $message2;
-#?rakudo todo 'not does not enforce boolean context?'
-ok not(Bool::True & Bool::False)  ==  Bool::True,  $message1;
-#?rakudo skip 'junction type (lower case)'
-ok not(Bool::True & Bool::False)  !~~ junction,    $message2;
+ok (so Bool::True & Bool::False) !~~ Junction,    $message2;
+ok ( not Bool::True & Bool::False)  ==  Bool::True,  $message1;
+ok not(Bool::True & Bool::False)  !~~ Junction,    $message2;
 
 # vim: ft=perl6