diff options
| author | BarrOff <58253563+BarrOff@users.noreply.github.com> | 2023-02-12 23:49:05 +0100 |
|---|---|---|
| committer | BarrOff <58253563+BarrOff@users.noreply.github.com> | 2023-02-12 23:49:05 +0100 |
| commit | c96214de17ef5067ff276e5cd866c0efb11b7214 (patch) | |
| tree | fb191a78f1d0782df5286a04fb56922183496721 /challenge-203 | |
| parent | 423dad9cb076bfa4f58db631532d6cf03b75f31b (diff) | |
| download | perlweeklychallenge-club-c96214de17ef5067ff276e5cd866c0efb11b7214.tar.gz perlweeklychallenge-club-c96214de17ef5067ff276e5cd866c0efb11b7214.tar.bz2 perlweeklychallenge-club-c96214de17ef5067ff276e5cd866c0efb11b7214.zip | |
chore: add test for third example of ch-1
Diffstat (limited to 'challenge-203')
| -rw-r--r-- | challenge-203/barroff/raku/ch-1.raku | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/challenge-203/barroff/raku/ch-1.raku b/challenge-203/barroff/raku/ch-1.raku index 582fd3774b..bcf48b3168 100644 --- a/challenge-203/barroff/raku/ch-1.raku +++ b/challenge-203/barroff/raku/ch-1.raku @@ -12,7 +12,8 @@ sub special_quadrupel(List $list where $list.elems ≥ 4 --> Int) { sub MAIN { use Test; - plan 2; + plan 3; is special_quadrupel(( 1, 2, 3, 6 )), 1, 'quadruplets one'; is special_quadrupel(( 1, 1, 1, 3, 5 )), 4, 'quadruplets two'; + is special_quadrupel(( 3, 3, 6, 4, 5 )), 0, 'quadruplets three'; } |