git.iko.soy/servant
on 438912f help sign in
servant/doc/tutorial/test/JavascriptSpec.hs
32 lines 853 B history raw
1{-# LANGUAGE OverloadedStrings #-}
3module JavascriptSpec where
5import Data.List
6import Data.String
7import Data.String.Conversions
8import Test.Hspec
9import Test.Hspec.Wai
11import Javascript
13spec :: Spec
14spec = do
15 describe "apiJS" $ do
16 it "is contained verbatim in Javascript.lhs" $ do
17 code <- readFile "Javascript.lhs"
18 cs apiJS `shouldSatisfy` (`isInfixOf` code)
20 describe "writeJSFiles" $ do
21 it "[not a test] write apiJS to static/api.js" $ do
22 writeJSFiles
24 describe "app" $ with (return app) $ do
25 context "/api.js" $ do
26 it "delivers apiJS" $ do
27 get "/api.js" `shouldRespondWith` (fromString (cs apiJS))
29 context "/" $ do
30 it "delivers something" $ do
31 get "" `shouldRespondWith` 200
32 get "/" `shouldRespondWith` 200