hunit-gui-0.1.3: examples/AllTestsPass.hs

module AllTestsPass
where

import Test.HUnit
import Test.HUnit.Gui

import Util.FakeTests

main = do
  testInfo <- runTestGui bigLongTests
  exitWhenGuiCloses testInfo

bigLongTests :: Test
bigLongTests = test [ "long-running" ~: fakeSuccess 2000
                    , "short-running" ~: fakeSuccess 500
                    ]