hspec_template.hs

import Test.Hspec (Spec, hspec, describe, it, shouldBe)
import Control.Monad (forM_)

samplef :: String -> String
samplef = concat . replicate 2

main :: IO ()
main = test

test :: IO ()
test = hspec spec

spec :: Spec
spec = do
  describe "samplef" $ do
    forM_ testSet $ \(n,input,expect) ->
      it (show n ++ ": " ++ input ++ " -> " ++ expect) $
        samplef input `shouldBe` expect

testSet :: [(Int, String, String)]
testSet = let f n (inp,exp) = (n,inp,exp) in zipWith f [1..] [
  ("hoge", "hogehoge")
 ,("fuga", "fugafuga")]