'so' doesn't work like prefix:<?> in Rakudo #2128
Comments
From @masak<masak> rakudo: say ?( any(Bool::True, Bool::False) ) One would think that 'so' is implemented as an identity operation. our multi prefix:<so>($x) { ?$x } Hm, guess not. Well, that only makes the bug even stranger. |
From @moritzOn Tue Aug 31 20:51:37 2010, masak wrote:
Which is exactly the problem: since $x is typed to Any, autothreading Fixed in 606c5fb615b2986a068c769ef72d7a8448154a84 (and also for prefix |
|
The RT System itself - Status changed from 'new' to 'open' |
From @moritzNow tested in t/spec/S03-junctions/boolean-context.t. |
|
@moritz - Status changed from 'open' to 'resolved' |
From @kylehaThis is an automatically generated mail to inform you that tests are now available in t/spec/S03-junctions/boolean-context.t commit 47cf1b0a7a3249aa2c8c703f699e90df63a9eef6 [t/spec] unfudge tests for RT #77604 Inline Patchdiff --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 |
Migrated from rt.perl.org#77604 (status was 'resolved')
Searchable as RT77604$
The text was updated successfully, but these errors were encountered: