warp: Make it easier to run individual specs separately
commitd3c55568b361ebca0691abd9d765f6ee26b5036b
authorSimon Hengel <sol@typeful.net>
dateSat 15 Sep 2012, 13:14 (14 years ago)
parent8ef4660
warp/test/ConduitSpec.hs+4−1
@@ -1,5 +1,5 @@
11{-# LANGUAGE OverloadedStrings #-}
2−module ConduitSpec where
2+module ConduitSpec (main, spec) where
33
44import Network.Wai.Handler.Warp.Conduit
55import Data.Conduit
@@ -9,6 +9,9 @@ import qualified Data.IORef as I
99import qualified Data.ByteString as S
1010import Control.Monad.Trans.Class (lift)
1111
12+main :: IO ()
13+main = hspec spec
14+
1215spec :: Spec
1316spec = describe "conduit" $ do
1417 it "IsolatedBSSource" $ runResourceT $ do
warp/test/ReadIntSpec.hs+4−1
@@ -1,4 +1,4 @@
1−module ReadIntSpec where
1+module ReadIntSpec (main, spec) where
22
33import Data.ByteString (ByteString)
44import Test.Hspec
@@ -6,6 +6,9 @@ import Network.Wai.Handler.Warp.ReadInt
66import qualified Data.ByteString.Char8 as B
77import qualified Test.QuickCheck as QC
88
9+main :: IO ()
10+main = hspec spec
11+
912spec :: Spec
1013spec = describe "readInt64" $ do
1114 it "converts ByteString to Int" $ QC.property (prop_read_show_idempotent readInt64)
warp/test/RequestSpec.hs+4−1
@@ -1,6 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22
3−module RequestSpec where
3+module RequestSpec (main, spec) where
44
55import Data.Conduit
66import Data.Conduit.List
@@ -8,6 +8,9 @@ import Network.Wai.Handler.Warp.Request
88import Network.Wai.Handler.Warp.Types
99import Test.Hspec
1010
11+main :: IO ()
12+main = hspec spec
13+
1114spec :: Spec
1215spec = describe "takeHeaders" $ do
1316 it "takes until blank" $
warp/test/ResponseHeaderSpec.hs+4−1
@@ -1,12 +1,15 @@
11{-# LANGUAGE OverloadedStrings #-}
22
3−module ResponseHeaderSpec where
3+module ResponseHeaderSpec (main, spec) where
44
55import Data.ByteString
66import qualified Network.HTTP.Types as H
77import Network.Wai.Handler.Warp.ResponseHeader
88import Test.Hspec
99
10+main :: IO ()
11+main = hspec spec
12+
1013spec :: Spec
1114spec = describe "composeHeader" $ do
1215 it "composes a HTTP header" $
warp/test/RunSpec.hs+4−1
@@ -1,6 +1,6 @@
11{-# LANGUAGE OverloadedStrings #-}
22
3−module RunSpec where
3+module RunSpec (main, spec) where
44
55import Control.Concurrent (forkIO, killThread, threadDelay)
66import Control.Monad (forM_)
@@ -19,6 +19,9 @@ import System.IO (hFlush, hClose)
1919import System.IO.Unsafe (unsafePerformIO)
2020import Test.Hspec
2121
22+main :: IO ()
23+main = hspec spec
24+
2225type Counter = I.IORef (Either String Int)
2326type CounterApplication = Counter -> Application
2427