From 9e4f671a0d6a2cee0eace11c10f52197e951de35 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 18 Dec 2008 05:00:41 -0500
Subject: add some more tests for is_substring

---
 t/014-substrings.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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'?");
-- 
cgit v1.2.3