diff options
| -rw-r--r-- | challenge-028/lubos-kolouch/perl5/ch-1.pl | 4 |
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; |