diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-06 12:19:13 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-06 12:19:13 +0100 |
| commit | 27cd66cc7098cf120fa0de1c6e63b347c15cb5c0 (patch) | |
| tree | 13c9f5c8e4540d93a05edd37929222ecb319c2ea /challenge-028 | |
| parent | e3071ba68e39b1e310d512237eb8d945645f28bb (diff) | |
| parent | 806cd58d5ddaaeb0da31d335666a67bc7993106e (diff) | |
| download | perlweeklychallenge-club-27cd66cc7098cf120fa0de1c6e63b347c15cb5c0.tar.gz perlweeklychallenge-club-27cd66cc7098cf120fa0de1c6e63b347c15cb5c0.tar.bz2 perlweeklychallenge-club-27cd66cc7098cf120fa0de1c6e63b347c15cb5c0.zip | |
Merge pull request #723 from kolcon/master
Adding test cases to 1
Diffstat (limited to 'challenge-028')
| -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; |