Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

38 lines (25 sloc) 0.927 kB
use v6;
use Test;
plan 10;
# Checking Junctions' Associativeness
# TODO: need smartlink
sub jv(Mu $j) {
my @e;
(-> Any $x { @e.push: $x }).($j);
return @e.sort.join(' ');
}
# L<S03/"Junctive operators">
# L<S09/"Junctions">
{
is('1 2 3', jv((1|2)|3), "Left-associative any, | operator");
is('1 2 3', jv(1|(2|3)), "Right-associative any, | operator");
is('1 2 3', jv(any(any(1,2),3)), "Left-associative any()");
is('1 2 3', jv(any(1,any(2,3))), "Right-associative any()");
is('1 2 3', jv((1&2)&3), "Left-associative all, & operator");
is('1 2 3', jv(1&(2&3)), "Right-associative all, & operator");
is('1 2 3', jv(all(all(1,2),3)), "Left-associative all()");
is('1 2 3', jv(all(1,all(2,3))), "Right-associative all()");
is('1 2 3', jv(none(none(1,2),3)), "Left-associative none()");
is('1 2 3', jv(none(1,none(2,3))), "Right-associative none()");
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.