path: root/t/slices.t

#!/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;