diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 21:18:20 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-05-26 21:18:20 +0100 |
| commit | 714a94d78dc2ba032793a2a51cab0a67d78cc780 (patch) | |
| tree | e0ca972022099f44aba75325919124be4d927cdb | |
| parent | 5164ca32bf33dfa4401e741da0dfc97dfab0e740 (diff) | |
| download | perlweeklychallenge-club-714a94d78dc2ba032793a2a51cab0a67d78cc780.tar.gz perlweeklychallenge-club-714a94d78dc2ba032793a2a51cab0a67d78cc780.tar.bz2 perlweeklychallenge-club-714a94d78dc2ba032793a2a51cab0a67d78cc780.zip | |
- Further improvement to Perl solutions.
| -rw-r--r-- | challenge-062/mohammad-anwar/data.txt (renamed from challenge-062/mohammad-anwar/perl/data.txt) | 0 | ||||
| -rw-r--r-- | challenge-062/mohammad-anwar/perl/ch-1a.pl | 4 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-062/mohammad-anwar/perl/data.txt b/challenge-062/mohammad-anwar/data.txt index 5dc3f2ceb0..5dc3f2ceb0 100644 --- a/challenge-062/mohammad-anwar/perl/data.txt +++ b/challenge-062/mohammad-anwar/data.txt diff --git a/challenge-062/mohammad-anwar/perl/ch-1a.pl b/challenge-062/mohammad-anwar/perl/ch-1a.pl index 6643c8eafd..7a9920e902 100644 --- a/challenge-062/mohammad-anwar/perl/ch-1a.pl +++ b/challenge-062/mohammad-anwar/perl/ch-1a.pl @@ -6,7 +6,7 @@ use warnings; use Test::More; use Test::Deep; -is_deeply ( sort_data('data.txt'), +is_deeply ( sort_data('../data.txt'), [ 'user@alpha.example.org', 'rjt@cpan.org', 'rjt@CPAN.org', @@ -15,7 +15,7 @@ is_deeply ( sort_data('data.txt'), ], 'regular sort' ); -is_deeply ( sort_data('data.txt', '-u'), +is_deeply ( sort_data('../data.txt', '-u'), [ 'user@alpha.example.org', 'rjt@CPAN.org', 'Name@example.org', |