Hi there,
Moritz++ and Jonathan++ help my to make patch for this bug, diffs in attach.
Ilya
2009/4/5 Ilya Belikin <perl6-bugs-follo...@perl.org>:
> # New Ticket Created by Ilya Belikin
> # Please include the string: [perl #64478]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64478 >
>
>
> Ho there,
>
> Pairs constructor changed:
>
> S02, L2538
>
> Fat arrow Adverbial pair Paren form
> ========= ============== ==========
> a => True :a
> a => False :!a
>
>
> but in Rakudo, now:
>> :a.perl.say
> "a" => 1
>
>> :!a.perl.say
> "a" => 0
>
> I hope this one easy to fix. Thank you!
>
> Ilya
>
Index: S02-builtin_data_types/pair.t
===================================================================
--- S02-builtin_data_types/pair.t (revision 26099)
+++ S02-builtin_data_types/pair.t (working copy)
@@ -2,7 +2,7 @@
use Test;
-plan 99;
+plan 106;
# basic Pair
@@ -89,6 +89,16 @@
ok (%($pair) ~~ Hash), '%() makes creates a real Hash';
}
+# colonpair
+
+is(:foo.key, 'foo', 'got the right key :foo.key');
+isa_ok(:foo.value, Bool::True, ':foo.value isa Bool::True');
+ok( :foo, ':foo is True');
+ok( :foo.value, ':foo.value is True');
+is(:!foo.key, 'foo', 'got the right key :!foo.key');
+isa_ok(:!foo.value, Bool::False, ':!foo.value isa Bool::False');
+nok( :!foo.value, ':!foo.value is False');
+
# illustrate a bug
{
