From abca1675f01662e3888446898e0a327f46f27afa Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sat, 16 Jan 2021 10:45:56 +0100
Subject: Add test to CH1 perl

---
 challenge-095/lubos-kolouch/perl/ch-1.pl | 1 +
 1 file changed, 1 insertion(+)

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;
-- 
cgit