diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-05-13 20:52:30 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2020-05-13 20:52:30 +0200 |
| commit | 2111506d9c0b3116bbf40d18739af462c2382a7c (patch) | |
| tree | ecd63a6cfd3af1546d55d5e404f8412bcaf4e081 | |
| parent | 7dcb721b9ed7e1cecb710c9d878999314a47cf29 (diff) | |
| download | perlweeklychallenge-club-2111506d9c0b3116bbf40d18739af462c2382a7c.tar.gz perlweeklychallenge-club-2111506d9c0b3116bbf40d18739af462c2382a7c.tar.bz2 perlweeklychallenge-club-2111506d9c0b3116bbf40d18739af462c2382a7c.zip | |
change examples to tests
| -rwxr-xr-x | challenge-060/jo-37/perl/ch-2.pl | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/challenge-060/jo-37/perl/ch-2.pl b/challenge-060/jo-37/perl/ch-2.pl index a2c05683b8..632c9f9454 100755 --- a/challenge-060/jo-37/perl/ch-2.pl +++ b/challenge-060/jo-37/perl/ch-2.pl @@ -10,7 +10,6 @@ # strictly string based. (Example provided.) use Test2::V0; -use Data::Dumper; # check_num expects: # - number to be checked @@ -103,16 +102,17 @@ $Y = 100000003; is [create_numbers $X, $Y, @L], [100000000, 100000001, 100000002], 'cut example'; -done_testing; - -# another example -@L = (0, 7, 65, 543, 4321); -$X = 5; -$Y = 70001; -print Dumper [create_numbers $X, $Y, @L]; - -# non-numeric @L = qw(a b c); $X = 3; $Y = 'abc'; -print Dumper [create_numbers $X, $Y, @L]; +is [create_numbers $X, $Y, @L], [qw(aaa aab aac aba abb)], + 'non numeric'; + +@L = (0, 5, 43, 321); +$X = 4; +$Y = 5001; +is [create_numbers $X, $Y, @L], + [3210, 3215, 4300, 4305, 4343, 4350, 4355, 5000], + 'another example'; + +done_testing; |