eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

More test fixes

Browse source
This commit is contained in:
Arian van Putten 2015-10-02 14:45:50 +02:00
parent 00179572ec
commit b341ace003
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
servant-js/test/Servant/JSSpec.hs
View file

@ -9,7 +9,7 @@
module Servant.JSSpec where module Servant.JSSpec where
import Data.Either (isRight) import Data.Either (isRight)
import Data.Monoid ((<>)) import Data.Monoid ((<>), mconcat)
import Data.Proxy import Data.Proxy
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T import qualified Data.Text as T
@ -176,7 +176,7 @@ generateJSSpec n gen = describe specLabel $ do
jsText `shouldContain` (header n "X-WhatsForDinner" $ "\"I would like \" + headerXWhatsForDinner + \" with a cherry on top.\"") jsText `shouldContain` (header n "X-WhatsForDinner" $ "\"I would like \" + headerXWhatsForDinner + \" with a cherry on top.\"")
it "can generate the whole javascript code string at once with jsForAPI" $ do it "can generate the whole javascript code string at once with jsForAPI" $ do
let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (concatMap gen) let jsStr = jsForAPI (Proxy :: Proxy TestAPI) (mconcat . map gen)
parseFromText jsStr `shouldSatisfy` isRight parseFromText jsStr `shouldSatisfy` isRight
where where
specLabel = "generateJS(" <> (show n) <> ")" specLabel = "generateJS(" <> (show n) <> ")"