diff options
| author | Bob Lied <boblied+github@gmail.com> | 2025-07-26 11:10:57 -0500 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2025-07-26 11:10:57 -0500 |
| commit | 30dc86281a33924f04986044a15bfc2b1776bd61 (patch) | |
| tree | d7e56bd704fa62cea697b1e27fdeb3574daef449 | |
| parent | 85ac9062ee7eca5957a0cd84026f5df5adc84d79 (diff) | |
| download | perlweeklychallenge-club-30dc86281a33924f04986044a15bfc2b1776bd61.tar.gz perlweeklychallenge-club-30dc86281a33924f04986044a15bfc2b1776bd61.tar.bz2 perlweeklychallenge-club-30dc86281a33924f04986044a15bfc2b1776bd61.zip | |
More test cases
| -rw-r--r-- | challenge-331/bob-lied/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-331/bob-lied/perl/ch-1.pl b/challenge-331/bob-lied/perl/ch-1.pl index a72b9d6e0c..6d9158fd42 100644 --- a/challenge-331/bob-lied/perl/ch-1.pl +++ b/challenge-331/bob-lied/perl/ch-1.pl @@ -58,8 +58,8 @@ sub runTest is( lastWord(""), 0, "Empty string"); is( lastWord("word"), 4, "One word"); - is( lastWord("Is this a ('word)'?"), 4, "Surrounded by punctation"); - is( lastWord("What about the dog's"), 5, "Possessive/contraction"); + is( lastWord("The ('dogs)'?"), 4, "Surrounded by punctation"); + is( lastWord("What abous the dog's"), 5, "Possessive/contraction"); done_testing; } |