diff options
| author | Lubos Kolouch <lubos@kolouch.net> | 2021-01-16 10:45:56 +0100 |
|---|---|---|
| committer | Lubos Kolouch <lubos@kolouch.net> | 2021-01-16 10:45:56 +0100 |
| commit | abca1675f01662e3888446898e0a327f46f27afa (patch) | |
| tree | dfa113f545e5cb44a9f922ee1cd9f424bb51db4c | |
| parent | a4b5b10a163d4d2cc6c709f685bb302d202a9ad9 (diff) | |
| download | perlweeklychallenge-club-abca1675f01662e3888446898e0a327f46f27afa.tar.gz perlweeklychallenge-club-abca1675f01662e3888446898e0a327f46f27afa.tar.bz2 perlweeklychallenge-club-abca1675f01662e3888446898e0a327f46f27afa.zip | |
Add test to CH1 perl
| -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; |