Statistics
| Branch: | Tag: | Revision:

root / test / hs / htest.hs @ ef947a42

History | View | Annotate | Download (3.8 kB)

1 525bfb36 Iustin Pop
{-| Unittest runner for ganeti-htools.
2 15f4c8ca Iustin Pop
3 15f4c8ca Iustin Pop
-}
4 15f4c8ca Iustin Pop
5 e2fa2baf Iustin Pop
{-
6 e2fa2baf Iustin Pop
7 e1dde6ad Iustin Pop
Copyright (C) 2009, 2011, 2012 Google Inc.
8 e2fa2baf Iustin Pop
9 e2fa2baf Iustin Pop
This program is free software; you can redistribute it and/or modify
10 e2fa2baf Iustin Pop
it under the terms of the GNU General Public License as published by
11 e2fa2baf Iustin Pop
the Free Software Foundation; either version 2 of the License, or
12 e2fa2baf Iustin Pop
(at your option) any later version.
13 e2fa2baf Iustin Pop
14 e2fa2baf Iustin Pop
This program is distributed in the hope that it will be useful, but
15 e2fa2baf Iustin Pop
WITHOUT ANY WARRANTY; without even the implied warranty of
16 e2fa2baf Iustin Pop
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 e2fa2baf Iustin Pop
General Public License for more details.
18 e2fa2baf Iustin Pop
19 e2fa2baf Iustin Pop
You should have received a copy of the GNU General Public License
20 e2fa2baf Iustin Pop
along with this program; if not, write to the Free Software
21 e2fa2baf Iustin Pop
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
22 e2fa2baf Iustin Pop
02110-1301, USA.
23 e2fa2baf Iustin Pop
24 e2fa2baf Iustin Pop
-}
25 e2fa2baf Iustin Pop
26 15f4c8ca Iustin Pop
module Main(main) where
27 15f4c8ca Iustin Pop
28 95f6c931 Iustin Pop
import Data.Monoid (mappend)
29 95f6c931 Iustin Pop
import Test.Framework
30 7345b69b Iustin Pop
import System.Environment (getArgs)
31 a664325e Iustin Pop
import System.Log.Logger
32 38f536cb Iustin Pop
33 b88fcdd0 Iustin Pop
import Test.Ganeti.TestImports ()
34 43b3b5c1 Michele Tartara
import Test.Ganeti.Attoparsec
35 1493a93b Iustin Pop
import Test.Ganeti.BasicTypes
36 a52f8e72 Michele Tartara
import Test.Ganeti.Block.Drbd.Parser
37 9de303af Michele Tartara
import Test.Ganeti.Block.Drbd.Types
38 51000365 Iustin Pop
import Test.Ganeti.Common
39 f51eacf3 Iustin Pop
import Test.Ganeti.Confd.Utils
40 fef919b7 Iustin Pop
import Test.Ganeti.Confd.Types
41 51000365 Iustin Pop
import Test.Ganeti.Daemon
42 ef3ad027 Iustin Pop
import Test.Ganeti.Errors
43 879d9290 Iustin Pop
import Test.Ganeti.HTools.Backend.Simu
44 879d9290 Iustin Pop
import Test.Ganeti.HTools.Backend.Text
45 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.CLI
46 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.Cluster
47 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.Container
48 8e6623c8 Guido Trotter
import Test.Ganeti.HTools.Graph
49 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.Instance
50 f51eacf3 Iustin Pop
import Test.Ganeti.HTools.Loader
51 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.Node
52 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.PeerMap
53 e1ee7d5a Iustin Pop
import Test.Ganeti.HTools.Types
54 2d87bd0a Iustin Pop
import Test.Ganeti.JSON
55 f51eacf3 Iustin Pop
import Test.Ganeti.Jobs
56 aa79e62e Iustin Pop
import Test.Ganeti.JQueue
57 aed2325f Iustin Pop
import Test.Ganeti.Luxi
58 76a0266e Helga Velroyen
import Test.Ganeti.Network
59 e5a29b6c Iustin Pop
import Test.Ganeti.Objects
60 aed2325f Iustin Pop
import Test.Ganeti.OpCodes
61 90171729 Iustin Pop
import Test.Ganeti.Query.Filter
62 aed2325f Iustin Pop
import Test.Ganeti.Query.Language
63 b9bdc10e Iustin Pop
import Test.Ganeti.Query.Query
64 305e174c Iustin Pop
import Test.Ganeti.Rpc
65 aed2325f Iustin Pop
import Test.Ganeti.Ssconf
66 f51eacf3 Iustin Pop
import Test.Ganeti.THH
67 5e9deac0 Iustin Pop
import Test.Ganeti.Types
68 26d62e4c Iustin Pop
import Test.Ganeti.Utils
69 509809db Iustin Pop
70 95f6c931 Iustin Pop
-- | Our default test options, overring the built-in test-framework
71 44be51aa Iustin Pop
-- ones (but not the supplied command line parameters).
72 44be51aa Iustin Pop
defOpts :: TestOptions
73 44be51aa Iustin Pop
defOpts = TestOptions
74 95f6c931 Iustin Pop
       { topt_seed                               = Nothing
75 95f6c931 Iustin Pop
       , topt_maximum_generated_tests            = Just 500
76 95f6c931 Iustin Pop
       , topt_maximum_unsuitable_generated_tests = Just 5000
77 95f6c931 Iustin Pop
       , topt_maximum_test_size                  = Nothing
78 95f6c931 Iustin Pop
       , topt_maximum_test_depth                 = Nothing
79 95f6c931 Iustin Pop
       , topt_timeout                            = Nothing
80 8e4f6d56 Iustin Pop
       }
81 15f4c8ca Iustin Pop
82 95f6c931 Iustin Pop
-- | All our defined tests.
83 f842aecd Iustin Pop
allTests :: [Test]
84 06fe0cea Iustin Pop
allTests =
85 44be51aa Iustin Pop
  [ testBasicTypes
86 43b3b5c1 Michele Tartara
  , testAttoparsec
87 44be51aa Iustin Pop
  , testCommon
88 fef919b7 Iustin Pop
  , testConfd_Types
89 44be51aa Iustin Pop
  , testConfd_Utils
90 44be51aa Iustin Pop
  , testDaemon
91 fd80be11 Michele Tartara
  , testBlock_Drbd_Parser
92 9de303af Michele Tartara
  , testBlock_Drbd_Types
93 ef3ad027 Iustin Pop
  , testErrors
94 879d9290 Iustin Pop
  , testHTools_Backend_Simu
95 879d9290 Iustin Pop
  , testHTools_Backend_Text
96 44be51aa Iustin Pop
  , testHTools_CLI
97 44be51aa Iustin Pop
  , testHTools_Cluster
98 44be51aa Iustin Pop
  , testHTools_Container
99 8e6623c8 Guido Trotter
  , testHTools_Graph
100 44be51aa Iustin Pop
  , testHTools_Instance
101 44be51aa Iustin Pop
  , testHTools_Loader
102 44be51aa Iustin Pop
  , testHTools_Node
103 44be51aa Iustin Pop
  , testHTools_PeerMap
104 44be51aa Iustin Pop
  , testHTools_Types
105 44be51aa Iustin Pop
  , testJSON
106 44be51aa Iustin Pop
  , testJobs
107 aa79e62e Iustin Pop
  , testJQueue
108 44be51aa Iustin Pop
  , testLuxi
109 76a0266e Helga Velroyen
  , testNetwork
110 44be51aa Iustin Pop
  , testObjects
111 44be51aa Iustin Pop
  , testOpCodes
112 44be51aa Iustin Pop
  , testQuery_Filter
113 44be51aa Iustin Pop
  , testQuery_Language
114 44be51aa Iustin Pop
  , testQuery_Query
115 44be51aa Iustin Pop
  , testRpc
116 44be51aa Iustin Pop
  , testSsconf
117 f51eacf3 Iustin Pop
  , testTHH
118 5e9deac0 Iustin Pop
  , testTypes
119 26d62e4c Iustin Pop
  , testUtils
120 06fe0cea Iustin Pop
  ]
121 06fe0cea Iustin Pop
122 95f6c931 Iustin Pop
-- | Main function. Note we don't use defaultMain since we want to
123 95f6c931 Iustin Pop
-- control explicitly our test sizes (and override the default).
124 38f536cb Iustin Pop
main :: IO ()
125 15f4c8ca Iustin Pop
main = do
126 95f6c931 Iustin Pop
  ropts <- getArgs >>= interpretArgsOrExit
127 44be51aa Iustin Pop
  let opts = maybe defOpts (defOpts `mappend`) $ ropt_test_options ropts
128 a664325e Iustin Pop
  -- silence the logging system, so that tests can execute I/O actions
129 a664325e Iustin Pop
  -- which create logs without polluting stderr
130 a664325e Iustin Pop
  -- FIXME: improve this by allowing tests to use logging if needed
131 a664325e Iustin Pop
  updateGlobalLogger rootLoggerName (setLevel EMERGENCY)
132 f842aecd Iustin Pop
  defaultMainWithOpts allTests (ropts { ropt_test_options = Just opts })