Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (22 sloc) 0.726 kB
use v6;
use Test;
plan 6;
#L<S03/Smart matching/Any Array lists are comparable>
{
class TestArraySmartmatch {
has @!obj;
multi method list() { @!obj };
}
my $o = TestArraySmartmatch.new(obj => (1, 2, 4));
#?rakudo todo 'nom regression'
#?niecza todo
ok ($o ~~ [1, 2, 4]), 'Any ~~ Array (basic, +)';
ok !($o ~~ [1, 5, 4]), 'Any ~~ Array (basic, -)';
#?rakudo todo 'nom regression'
#?niecza todo
ok ($o ~~ [1, *]), 'Any ~~ Array (dwim, +)';
ok !($o ~~ [8, *]), 'Any ~~ Array (dwim, -)';
ok (1 ~~ [1]), 'Any ~~ Array (Int, +)';
ok !(1 ~~ [1, 2]), 'Any ~~ Array (Int, -, it is not any())';
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.