Contents

{-# OPTIONS_GHC -fno-warn-type-defaults #-}

import Test.Hspec        (Spec, describe, it, shouldBe)
import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)

import Series (slices)

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

specs :: Spec
specs = describe "series" $ do

    -- As of 2016-09-12, there was no reference file
    -- for the test cases in `exercism/x-common`.

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

    it "slices of two" $ do
      slices 2 ""      `shouldBe` []
      slices 2 "01"    `shouldBe` [[0,1]]
      slices 2 "01234" `shouldBe` [[0,1], [1,2], [2,3], [3,4]]

    it "slices of three" $ do
      slices 3 "ab"   `shouldBe` []
      slices 3 "012"  `shouldBe` [[0,1,2]]
      slices 3 "0123" `shouldBe` [[0,1,2], [1,2,3]]

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

Version data entries

14 entries across 14 versions & 1 rubygems

Version	Path
trackler-2.0.0.3	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.0.0.2	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.0.0.1	tracks/haskell/exercises/series/test/Tests.hs
trackler-2.0.0.0	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.4.1	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.4.0	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.3.0	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.2.1	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.2.0	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.1.2	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.1.1	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.1.0	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.0.1	tracks/haskell/exercises/series/test/Tests.hs
trackler-1.0.0	tracks/haskell/exercises/series/test/Tests.hs