From 806cd58d5ddaaeb0da31d335666a67bc7993106e Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sun, 6 Oct 2019 12:49:02 +0200
Subject: Adding test cases to 1

---
 challenge-028/lubos-kolouch/perl5/ch-1.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/challenge-028/lubos-kolouch/perl5/ch-1.pl b/challenge-028/lubos-kolouch/perl5/ch-1.pl
index b4e342ff4d..04f4bb8483 100644
--- a/challenge-028/lubos-kolouch/perl5/ch-1.pl
+++ b/challenge-028/lubos-kolouch/perl5/ch-1.pl
@@ -49,5 +49,9 @@ say get_file_status($file);
 use Test::More;
 
 is (get_file_status('ch-1.pl'),'The file content is ascii.');
+is (get_file_status('.'),'The file is not regular.');
+is (get_file_status('/dev/zero'),'The file is empty.');
+is (get_file_status('ch-3.pl'),'The file does not exist.');
+is (get_file_status('/etc/shadow'),'The file is not readable.');
 
 done_testing;
-- 
cgit