diff options
| -rw-r--r-- | challenge-028/lubos-kolouch/perl5/ch-1.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/challenge-028/lubos-kolouch/perl5/ch-1.pl b/challenge-028/lubos-kolouch/perl5/ch-1.pl index e1982c24a4..b4e342ff4d 100644 --- a/challenge-028/lubos-kolouch/perl5/ch-1.pl +++ b/challenge-028/lubos-kolouch/perl5/ch-1.pl @@ -44,4 +44,10 @@ my $file = shift || die 'Usage: ch-1.pl filename'; say get_file_status($file); +# TESTS +use Test::More; + +is (get_file_status('ch-1.pl'),'The file content is ascii.'); + +done_testing; |