diff options
| -rw-r--r-- | challenge-095/lubos-kolouch/perl/ch-1.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/challenge-095/lubos-kolouch/perl/ch-1.pl b/challenge-095/lubos-kolouch/perl/ch-1.pl index f1f24ec458..7f5894e34c 100644 --- a/challenge-095/lubos-kolouch/perl/ch-1.pl +++ b/challenge-095/lubos-kolouch/perl/ch-1.pl @@ -29,6 +29,7 @@ use Test::More; is(is_palindrome(1221), 1, 'Test 1221'); is(is_palindrome(-101), 0, 'Test -101'); +is(is_palindrome(90), 0, 'Test 90'); is(is_palindrome('00001221'), 1, 'Test 00001221'); done_testing; |