diff options
| author | KUEPPO <tcheukueppo@tutanota.com> | 2022-11-07 01:29:26 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-11-07 01:29:26 +0100 |
| commit | 6e598a1fa67fa07e50b6b4979ac3f76800f40bca (patch) | |
| tree | e6574b37a1aae06592fe9ec1664ab413b59a299b | |
| parent | 58e4bdc5559742b59d1d6270800e61ae97bb2c4c (diff) | |
| download | perlweeklychallenge-club-6e598a1fa67fa07e50b6b4979ac3f76800f40bca.tar.gz perlweeklychallenge-club-6e598a1fa67fa07e50b6b4979ac3f76800f40bca.tar.bz2 perlweeklychallenge-club-6e598a1fa67fa07e50b6b4979ac3f76800f40bca.zip | |
ch-1.pl pwc-189
| -rw-r--r-- | challenge-189/kueppo-wesley/Perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-189/kueppo-wesley/Perl/ch-1.pl b/challenge-189/kueppo-wesley/Perl/ch-1.pl index 367b27cc00..3b61a3861c 100644 --- a/challenge-189/kueppo-wesley/Perl/ch-1.pl +++ b/challenge-189/kueppo-wesley/Perl/ch-1.pl @@ -4,7 +4,7 @@ use strict; use warnings; use Test::More; -use List::Util qw/ first /; +use List::Util qw/first/; sub find_greater_char { my ( $array, $target ) = @_; @@ -21,6 +21,6 @@ my @samples = ( [ [ qw/t g a l/ ], q/v/ ] ); -is_deeply( $expected, [ map { find_greater_char( @$_ ) } @samples ], 'found the correct chars?' ); +is_deeply( [ map { find_greater_char( @$_ ) } @samples ], $expected, 'found the correct chars?' ); done_testing( 1 ); |