challenge-114/lance-wicks/perl/ch-1.pl


1
2
3
4
5
6
7
8
9
10
11
12

use Test2::V0 -target => 'Palindrome';

my @cases
    = ( [ 1, 2 ], [ 9, 11 ], [ 99, 101 ], [ 999, 1001 ], [ 1234, 1331 ], );

for my $pair (@cases) {
    my $got = $CLASS->num( $pair->[0] );
    is $got, $pair->[1], "$pair->[0] \t Expect: $pair->[1] \t\t Got: $got";

}

done_testing;