hunit-gui-0.1.1: examples/Main.hs

module Main
where

import Control.Concurrent

import Test.HUnit
import Test.HUnit.Gui

main = do
  testInfo <- runTestGui bigLongTests
  exitWhenGuiCloses testInfo

bigLongTests :: Test
bigLongTests = test [ "long-running success" ~: fakeTest True 2000
                    , "quick-running success" ~: fakeTest True 500
                    , "long-running failure" ~: fakeTest False 2000
                    , "quick-running failure" ~: fakeTest False 500
                    ]

fakeTest :: Bool -> Int -> IO ()
fakeTest success milliseconds = do
  threadDelay $ milliseconds * 1000
  assertBool "No msg" success