Adding test cases to 1

1 files changed, 4 insertions, 0 deletions

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;