# New Ticket Created by Sam S.
# Please include the string: [perl #130610]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=130610 >
The normal reduce meta-operator doesn't flatten anything:
➜ say [,] , , ;
((a b) (c
Thanks very much for the explanation,
Tried the following to get the Test/TAP crying...
use Test;
is 1, 1, 'test 1';
say "ok 1 - pestering 1";
say "nok 5 - pestering 2";
done-testing;
It then generates
ok 1 - test 1
ok 1 - pestering 1
nok 5 - pestering 2
1..1
Failed -1/1 subtests
Test
test should be
is 1, 1, 'test 1';
say "ok 1 - pestering 1";
say "not ok 5 - pestering 2";
resulting in
ok 1 - test 1
ok 1 - pestering 1
not ok 5 - pestering 2
1..1
Failed -1/1 subtests
Test Summary Report
---
confuse-TAP.t (Wstat: 0 Tests: 3 Failed: 1)
Failed test: 5
On Sat, 21 Jan 2017 11:45:10 -0800, ale...@yahoo.com wrote:
> Take a look at the following examples - the second is more than
> 10x(!!!) faster:
> m: my int $i = 0; loop { if $i++ == 10_000_000 { last }}; say now -
> INIT now;rakudo-moar f97d5c: OUTPUT«2.0606382»
> m: my int $i = 0; loop { if
# New Ticket Created by Wenzel Peppmeyer
# Please include the string: [perl #130611]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=130611 >
class C does Associative {
method AT-KEY(\k){ dd 'at-key'; True };
method
# New Ticket Created by Ron Schmidt
# Please include the string: [perl #130612]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=130612 >
# https://design.perl6.org/S05.html#Longest-token_matching says:
# For matches of same
On Wed, 18 Jan 2017 18:16:20 -0800, c...@zoffix.com wrote:
> the :sigspace adverb does not affect spaces inside character class.
> Should it?
>
No, I don't think so. `<.ws>` can match any number of characters (including
zero). A char class is defining something a matcher for a single character.
On Sat, 21 Jan 2017 13:52:37 -0800, ale...@yahoo.com wrote:
> m: my int $i = 0; while $i < 10_000_000 { $i++ }; say now - INIT
> now;rakudo-moar 7f245f: OUTPUT«5.1848902»
> m: my (int $i, int $nosink) = 0, 0; while $i < 10_000_000 { $nosink =
> $i++ }; say now - INIT now;rakudo-moar 7f245f:
Update...
I've used --merge on prove! This merges the outputs into one. Removing
this option and using note for the output will give correct results
ok 1 - test 1
1..1
ok 1 - pestering 1
not ok 5 - pestering 2
ok
All tests successful.
Files=1, Tests=1, 0 wallclock secs ( 0.03 usr 0.00 sys
