aboutsummaryrefslogtreecommitdiff
path: root/challenge-107/lance-wicks/perl/t/01-numbers.t
blob: 874f18ca8e77e498025686fdd9ce72d994a96235 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
use Test2::V0 -target => 'Descriptive';

subtest 'is_self_desc' => sub {
    is $CLASS->is_self_desc(1210), 1, '1210 is a self describing number';
    is $CLASS->is_self_desc(1), 0, '1 is NOT a self describing number';
};

subtest 'list' => sub {
    is $CLASS->list, [1210,2020,21200], 'List returns the first three numbers';
};


done_testing;