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 "ab"   `shouldHaveSlices` []
      slices 3 "012"  `shouldHaveSlices` [[0,1,2]]
      slices 3 "0123" `shouldHaveSlices` [[0,1,2], [1,2,3]]

    it "slices of zero" $ do
      slices 0 ""    `shouldHaveSlices` [[]]
      slices 0 "012" `shouldHaveSlices` [[]]

Version data entries

184 entries across 184 versions & 1 rubygems

Version	Path
trackler-2.2.1.134	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.133	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.132	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.131	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.130	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.129	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.128	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.127	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.126	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.125	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.124	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.123	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.122	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.121	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.120	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.119	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.118	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.117	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.116	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.2.1.115	tracks/haskell/exercises/series/test/Tests.hs