1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main, spec) where
import Test.Hspec
import Test.QuickCheck
import Data.String
import Data.String.Builder
main :: IO ()
main = hspec spec
spec :: Spec
spec = do
describe "build" $ do
it "can be used to construct multi-line string literals in a monadic way" $ do
build $ do
"foo"
"bar"
"baz"
`shouldBe` "foo\nbar\nbaz\n"
it "works for arbitrary input" $ do
property $
\l -> (build . sequence_ . map fromString) l == unlines l
|
