wai-devel-0.0.0.3: tests/MainSpec.hs

-- Tests for Main function.
module MainSpec where

import Test.Hspec
import DevelMain as M
import Control.Concurrent (forkIO, threadDelay, killThread)

main :: IO ()
main = hspec spec

spec :: Spec
spec = -- How does one test that a bottom effectful computation has done what is expected?
  describe "Program has a working main function" $
    it "Gets cmd arguments from cmdArgs and calls successfully `buildAndRun`." $ do
      tId <- forkIO M.develMain
      threadDelay 100
      killThread tId
      tId `shouldBe` tId