diff options
| -rwxr-xr-x | challenge-329/matthias-muth/perl/ch-2.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-329/matthias-muth/perl/ch-2.pl b/challenge-329/matthias-muth/perl/ch-2.pl index bd1fd39713..fe55f2339e 100755 --- a/challenge-329/matthias-muth/perl/ch-2.pl +++ b/challenge-329/matthias-muth/perl/ch-2.pl @@ -40,5 +40,12 @@ is longest_nice_substring( "cC" ), "cC", 'Example 2: longest_nice_substring( "cC" ) == "cC"'; is longest_nice_substring( "A" ), "", 'Example 3: longest_nice_substring( "A" ) == ""'; +is longest_nice_substring( "XabcABCX" ), "abcABC", + 'Test 1: longest_nice_substring( "XabcABCX" ) == "abcABC"'; +is longest_nice_substring( "XaAbBcCX" ), "aAbBcC", + 'Test 2: longest_nice_substring( "XaAbBcCX" ) == "aAbBcC"'; +is longest_nice_substring( "notniceANOTNICEXniceNICEXaA" ), "niceNICE", + 'Test 3: longest_nice_substring( "notniceANOTNICEXniceNICEXaA" )' + . ' == "niceNICE"'; done_testing; |