diff options
| author | Lubos Kolouch <lubos@kolouch.net> | 2019-10-02 18:18:13 +0200 |
|---|---|---|
| committer | Lubos Kolouch <lubos@kolouch.net> | 2019-10-02 18:18:13 +0200 |
| commit | 7a4c67b1db84181b0a33fd370faf9a9d9f94a9dd (patch) | |
| tree | 183b3849ca4c2c3d8e2b67ea9a300db211763e2d /challenge-028 | |
| parent | fbdac23e4c9694b603a4abb1488553fc4e77c4d5 (diff) | |
| download | perlweeklychallenge-club-7a4c67b1db84181b0a33fd370faf9a9d9f94a9dd.tar.gz perlweeklychallenge-club-7a4c67b1db84181b0a33fd370faf9a9d9f94a9dd.tar.bz2 perlweeklychallenge-club-7a4c67b1db84181b0a33fd370faf9a9d9f94a9dd.zip | |
Adding test case for Challenge 1
Diffstat (limited to 'challenge-028')
| -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; |