Statistics
| Branch: | Tag: | Revision:

root / test / hs / htest.hs @ 5275a77f

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