Contents

{-# OPTIONS_GHC -fno-warn-type-defaults #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE OverloadedStrings          #-}

import GHC.Exts          (toList)
import Test.Hspec        (Spec, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)

import Series (slices)

main :: IO ()
main = hspecWith defaultConfig {configFastFail = True} specs

specs :: Spec
specs = do

    let x `shouldHaveSlices` yss = (map toList . toList) x `shouldBe` yss

    it "slices of one" $ do
      slices 1 ""      `shouldHaveSlices` []
      slices 1 "01234" `shouldHaveSlices` [[0], [1], [2], [3], [4]]

    it "slices of two" $ do
      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 "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` [[],[],[],[]]

Version data entries

45 entries across 45 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.179	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.178	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.177	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.176	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.175	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.174	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.173	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.172	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.171	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.170	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.169	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.167	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.166	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.165	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.164	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.163	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.162	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.161	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.160	tracks/haskell/exercises/series/test/Tests.hs