diff options
| author | k-mx <cppfero@gmail.com> | 2019-05-05 14:03:45 +0500 |
|---|---|---|
| committer | k-mx <cppfero@gmail.com> | 2019-05-05 14:03:45 +0500 |
| commit | 856a8461e727ec9f0438049be699cdca8410a80b (patch) | |
| tree | 99339f6ec8d99e6009b5eef720eaa09f24c84832 | |
| parent | e50f7a5ca9bb2a6bea01bade0dd7306b13967c72 (diff) | |
| download | perlweeklychallenge-club-856a8461e727ec9f0438049be699cdca8410a80b.tar.gz perlweeklychallenge-club-856a8461e727ec9f0438049be699cdca8410a80b.tar.bz2 perlweeklychallenge-club-856a8461e727ec9f0438049be699cdca8410a80b.zip | |
extra test case
| -rw-r--r-- | challenge-006/maxim-kolodyazhny/perl5/ch-1.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-006/maxim-kolodyazhny/perl5/ch-1.t b/challenge-006/maxim-kolodyazhny/perl5/ch-1.t index 6c47466405..6f75f83286 100644 --- a/challenge-006/maxim-kolodyazhny/perl5/ch-1.t +++ b/challenge-006/maxim-kolodyazhny/perl5/ch-1.t @@ -5,7 +5,7 @@ use warnings; use v5.028.1; -use Test::More tests => 10; +use Test::More tests => 11; my %tests = ( '0,0,0' => '0,0,0', @@ -18,6 +18,7 @@ my %tests = ( '100,101,102' => '100-102', '3,2,1,0' => '3,2,1,0', '4,3,2' => '4,3,2', + '100,1,2,3' => '100,1-3', ); while ( my ( $i, $o ) = each %tests ) { @@ -28,4 +29,4 @@ while ( my ( $i, $o ) = each %tests ) { is( $r, $o ); } -done_testing 10; +done_testing 11; |