test/TestSuite.hs

   1 module TestSuite
   2 where
   3
   4 import Test.Framework (
   5   RunnerOptions(),
   6   Test,
   7   TestName,
   8   TestOptions(),
   9   defaultMain,
  10   testGroup
  11   )
  12
  13 import Test.Framework.Options
  14 import Test.Framework.Runners.Options
  15 import Test.Framework.Providers.API (TestName)
  16 import Test.HUnit
  17
  18 import LWN.Page (page_tests)
  19 import LWN.URI (uri_tests)
  20
  21 main :: IO ()
  22 main = defaultMain tests
  23
  24 tests :: [Test.Framework.Test]
  25 tests = [ page_tests,
  26           uri_tests ]