add some more tests for is_substring

1 files changed, 11 insertions, 1 deletions

diff --git a/t/014-substrings.t b/t/014-substrings.t
index 4069be2..542ad64 100644
--- a/t/014-substrings.t
+++ b/t/014-substrings.t
@@ -12,6 +12,11 @@ my %is_substring_tests = (
     "aaba"  => ["a", "aa", "aaa", "aab", "aba"],
     "abcba" => ["aa", "bb", "c", "abc", "cba", "abba"],
 );
+my %isnt_substring_tests = (
+    ""      => ["a"],
+    "abc"   => ["z", "ba", "baz", "abz"],
+    "aaba"  => ["c", "abaa"],
+);
 my %all_substrings_tests = (
     ""    => [''],
     "a"   => ['', "a"],
@@ -19,13 +24,18 @@ my %all_substrings_tests = (
     "aab" => ['', "a", "a", "b", "aa", "ab", "ab", "aab"],
     "abc" => ['', "a", "b", "c", "ab", "ac", "bc", "abc"],
 );
-plan tests => (sum map { scalar @$_ } values %is_substring_tests) +
+plan tests => (sum map { scalar @$_ } values %is_substring_tests,
+                                      values %isnt_substring_tests) +
               keys %all_substrings_tests;
 
 while (my ($word, $substrings) = each %is_substring_tests) {
     ok(is_substring($_, $word), "is '$_' a substring of '$word'?")
         for @$substrings;
 }
+while (my ($word, $substrings) = each %isnt_substring_tests) {
+    ok(!is_substring($_, $word), "is '$_' not a substring of '$word'?")
+        for @$substrings;
+}
 while (my ($word, $substrings) = each %all_substrings_tests) {
     cmp_deeply([all_substrings($word)], bag(@$substrings),
                "do we get all of the substrings of '$word'?");