diff options
| author | James Smith <js5@sanger.ac.uk> | 2023-05-09 00:21:37 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-05-09 00:21:37 +0100 |
| commit | cfdfbe98a7960255f7c6e4aeb9d7dff5d9189bdb (patch) | |
| tree | ca4a466191a41529fb59eee193dd5b90abd8fad0 | |
| parent | 72733d3f1f0feb438d74edbca4073bf8874b9345 (diff) | |
| download | perlweeklychallenge-club-cfdfbe98a7960255f7c6e4aeb9d7dff5d9189bdb.tar.gz perlweeklychallenge-club-cfdfbe98a7960255f7c6e4aeb9d7dff5d9189bdb.tar.bz2 perlweeklychallenge-club-cfdfbe98a7960255f7c6e4aeb9d7dff5d9189bdb.zip | |
Update ch-1.pl
| -rw-r--r-- | challenge-216/james-smith/perl/ch-1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-216/james-smith/perl/ch-1.pl b/challenge-216/james-smith/perl/ch-1.pl index 46a4379d72..ecaaa24257 100644 --- a/challenge-216/james-smith/perl/ch-1.pl +++ b/challenge-216/james-smith/perl/ch-1.pl @@ -24,5 +24,6 @@ sub reg_number { } @_ } -is( "@{[ reg_number( @{$_->[0]} ) ]}", $_->[1] ) for @TESTS1; +is( "@{[ reg_number( @{$_->[0]} ) ]}", $_->[1] ) for @TESTS; + done_testing(); |