diff options
| -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; } |