t/slices.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my @nums = (1..10);

{
    use smartmatch sub {
        return ref $_[0] eq 'ARRAY'
            && ref $_[1] eq 'ARRAY'
            && @{ $_[0] } == @{ $_[1] };
    };
    ok(@nums[0..-1] ~~ []);
    ok(!(@nums[0..1] ~~ [0..2]));
    ok(@nums[0..4] ~~ [1..5]);
    ok(!(undef ~~ @nums[0..-1]));
    ok(!(@nums[0..1] ~~ 2));
}

done_testing;