Tests.hs in trackler-2.2.1.135

- old
+ new

@@ -24,12 +24,27 @@
       slices 2 ""      `shouldHaveSlices` []
       slices 2 "01"    `shouldHaveSlices` [[0,1]]
       slices 2 "01234" `shouldHaveSlices` [[0,1], [1,2], [2,3], [3,4]]
 
     it "slices of three" $ do
-      slices 3 "ab"   `shouldHaveSlices` []
+      slices 3 "01"   `shouldHaveSlices` []
       slices 3 "012"  `shouldHaveSlices` [[0,1,2]]
       slices 3 "0123" `shouldHaveSlices` [[0,1,2], [1,2,3]]
 
+    it "slices can have duplicates" $
+      slices 3 "777777" `shouldHaveSlices` [[7,7,7], [7,7,7], [7,7,7], [7,7,7]]
+
+    it "slices of a long series" $
+      slices 5 "918493904243" `shouldHaveSlices` [
+          [9,1,8,4,9]
+        , [1,8,4,9,3]
+        , [8,4,9,3,9]
+        , [4,9,3,9,0]
+        , [9,3,9,0,4]
+        , [3,9,0,4,2]
+        , [9,0,4,2,4]
+        , [0,4,2,4,3]
+        ]
+
     it "slices of zero" $ do
       slices 0 ""    `shouldHaveSlices` [[]]
-      slices 0 "012" `shouldHaveSlices` [[]]
+      slices 0 "012" `shouldHaveSlices` [[],[],[],[]]