diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-04-20 09:30:48 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-04-20 09:30:48 +0000 |
| commit | 8d2cb1779853c0a05773a7c08031f62f7ac90dc1 (patch) | |
| tree | d944a1cbb85b1497813ec2e5a64980061f5bf3d7 | |
| parent | f3ac06be25ce4b94f607a02ea595d7986be17415 (diff) | |
| download | perlweeklychallenge-club-8d2cb1779853c0a05773a7c08031f62f7ac90dc1.tar.gz perlweeklychallenge-club-8d2cb1779853c0a05773a7c08031f62f7ac90dc1.tar.bz2 perlweeklychallenge-club-8d2cb1779853c0a05773a7c08031f62f7ac90dc1.zip | |
Add Test::More & Test::Deep to task 1
| -rw-r--r-- | challenge-109/perlboy1967/perl/ch-1.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/challenge-109/perlboy1967/perl/ch-1.pl b/challenge-109/perlboy1967/perl/ch-1.pl index ba98a3ac47..9e1f1d3bec 100644 --- a/challenge-109/perlboy1967/perl/ch-1.pl +++ b/challenge-109/perlboy1967/perl/ch-1.pl @@ -15,14 +15,16 @@ use warnings; use List::Util qw(sum0); +use Test::More; +use Test::Deep; + # Prototype(s) sub chowlaNumber($); -my $N = shift @ARGV // 20; - -printf "First %d Chowla numbers: %s\n", - $N, join(',', map { chowlaNumber($_) } 1 .. $N); +cmp_deeply ([map {chowlaNumber($_)} 1 .. 20], + [0,0,0,2,0,5,0,6,3,7,0,15,0,9,8,14,0,20,0,21]); +done_testing; sub chowlaNumber($) { |