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.Article (article_tests)
  19 import LWN.Page (page_tests)
  20 import LWN.URI (uri_tests)
  21
  22 main :: IO ()
  23 main = defaultMain tests
  24
  25 tests :: [Test.Framework.Test]
  26 tests = [ article_tests,
  27           page_tests,
  28           uri_tests ]