Statistics
| Branch: | Tag: | Revision:

root / test / hs / htest.hs @ fa166f67

History | View | Annotate | Download (3.9 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 ca7b4f48 Iustin Pop
Copyright (C) 2009, 2011, 2012, 2013 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 b8585908 Michele Tartara
import Test.Ganeti.Hypervisor.Xen.XmParser
55 2d87bd0a Iustin Pop
import Test.Ganeti.JSON
56 f51eacf3 Iustin Pop
import Test.Ganeti.Jobs
57 aa79e62e Iustin Pop
import Test.Ganeti.JQueue
58 aed2325f Iustin Pop
import Test.Ganeti.Luxi
59 76a0266e Helga Velroyen
import Test.Ganeti.Network
60 e5a29b6c Iustin Pop
import Test.Ganeti.Objects
61 aed2325f Iustin Pop
import Test.Ganeti.OpCodes
62 90171729 Iustin Pop
import Test.Ganeti.Query.Filter
63 aed2325f Iustin Pop
import Test.Ganeti.Query.Language
64 834bea99 Helga Velroyen
import Test.Ganeti.Query.Network
65 b9bdc10e Iustin Pop
import Test.Ganeti.Query.Query
66 305e174c Iustin Pop
import Test.Ganeti.Rpc
67 ca7b4f48 Iustin Pop
import Test.Ganeti.Runtime
68 aed2325f Iustin Pop
import Test.Ganeti.Ssconf
69 f51eacf3 Iustin Pop
import Test.Ganeti.THH
70 5e9deac0 Iustin Pop
import Test.Ganeti.Types
71 26d62e4c Iustin Pop
import Test.Ganeti.Utils
72 509809db Iustin Pop
73 95f6c931 Iustin Pop
-- | Our default test options, overring the built-in test-framework
74 44be51aa Iustin Pop
-- ones (but not the supplied command line parameters).
75 44be51aa Iustin Pop
defOpts :: TestOptions
76 44be51aa Iustin Pop
defOpts = TestOptions
77 95f6c931 Iustin Pop
       { topt_seed                               = Nothing
78 95f6c931 Iustin Pop
       , topt_maximum_generated_tests            = Just 500
79 95f6c931 Iustin Pop
       , topt_maximum_unsuitable_generated_tests = Just 5000
80 95f6c931 Iustin Pop
       , topt_maximum_test_size                  = Nothing
81 95f6c931 Iustin Pop
       , topt_maximum_test_depth                 = Nothing
82 95f6c931 Iustin Pop
       , topt_timeout                            = Nothing
83 8e4f6d56 Iustin Pop
       }
84 15f4c8ca Iustin Pop
85 95f6c931 Iustin Pop
-- | All our defined tests.
86 f842aecd Iustin Pop
allTests :: [Test]
87 06fe0cea Iustin Pop
allTests =
88 44be51aa Iustin Pop
  [ testBasicTypes
89 43b3b5c1 Michele Tartara
  , testAttoparsec
90 44be51aa Iustin Pop
  , testCommon
91 fef919b7 Iustin Pop
  , testConfd_Types
92 44be51aa Iustin Pop
  , testConfd_Utils
93 44be51aa Iustin Pop
  , testDaemon
94 fd80be11 Michele Tartara
  , testBlock_Drbd_Parser
95 9de303af Michele Tartara
  , testBlock_Drbd_Types
96 ef3ad027 Iustin Pop
  , testErrors
97 879d9290 Iustin Pop
  , testHTools_Backend_Simu
98 879d9290 Iustin Pop
  , testHTools_Backend_Text
99 44be51aa Iustin Pop
  , testHTools_CLI
100 44be51aa Iustin Pop
  , testHTools_Cluster
101 44be51aa Iustin Pop
  , testHTools_Container
102 8e6623c8 Guido Trotter
  , testHTools_Graph
103 44be51aa Iustin Pop
  , testHTools_Instance
104 44be51aa Iustin Pop
  , testHTools_Loader
105 44be51aa Iustin Pop
  , testHTools_Node
106 44be51aa Iustin Pop
  , testHTools_PeerMap
107 44be51aa Iustin Pop
  , testHTools_Types
108 b8585908 Michele Tartara
  , testHypervisor_Xen_XmParser
109 44be51aa Iustin Pop
  , testJSON
110 44be51aa Iustin Pop
  , testJobs
111 aa79e62e Iustin Pop
  , testJQueue
112 44be51aa Iustin Pop
  , testLuxi
113 76a0266e Helga Velroyen
  , testNetwork
114 44be51aa Iustin Pop
  , testObjects
115 44be51aa Iustin Pop
  , testOpCodes
116 44be51aa Iustin Pop
  , testQuery_Filter
117 44be51aa Iustin Pop
  , testQuery_Language
118 834bea99 Helga Velroyen
  , testQuery_Network
119 44be51aa Iustin Pop
  , testQuery_Query
120 44be51aa Iustin Pop
  , testRpc
121 ca7b4f48 Iustin Pop
  , testRuntime
122 44be51aa Iustin Pop
  , testSsconf
123 f51eacf3 Iustin Pop
  , testTHH
124 5e9deac0 Iustin Pop
  , testTypes
125 26d62e4c Iustin Pop
  , testUtils
126 06fe0cea Iustin Pop
  ]
127 06fe0cea Iustin Pop
128 95f6c931 Iustin Pop
-- | Main function. Note we don't use defaultMain since we want to
129 95f6c931 Iustin Pop
-- control explicitly our test sizes (and override the default).
130 38f536cb Iustin Pop
main :: IO ()
131 15f4c8ca Iustin Pop
main = do
132 95f6c931 Iustin Pop
  ropts <- getArgs >>= interpretArgsOrExit
133 44be51aa Iustin Pop
  let opts = maybe defOpts (defOpts `mappend`) $ ropt_test_options ropts
134 a664325e Iustin Pop
  -- silence the logging system, so that tests can execute I/O actions
135 a664325e Iustin Pop
  -- which create logs without polluting stderr
136 a664325e Iustin Pop
  -- FIXME: improve this by allowing tests to use logging if needed
137 a664325e Iustin Pop
  updateGlobalLogger rootLoggerName (setLevel EMERGENCY)
138 f842aecd Iustin Pop
  defaultMainWithOpts allTests (ropts { ropt_test_options = Just opts })