projects
/
ganeti-local
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add explicit test for wrong OpCode arbitrary instances
[ganeti-local]
/
htest
/
test.hs
diff --git
a/htest/test.hs
b/htest/test.hs
index
9100095
..
eade8bf
100644
(file)
--- a/
htest/test.hs
+++ b/
htest/test.hs
@@
-30,22
+30,25
@@
import Test.Framework
import System.Environment (getArgs)
import Test.Ganeti.TestImports ()
import System.Environment (getArgs)
import Test.Ganeti.TestImports ()
+import Test.Ganeti.Attoparsec
import Test.Ganeti.BasicTypes
import Test.Ganeti.BasicTypes
-import Test.Ganeti.Confd.Utils
+import Test.Ganeti.Block.Drbd.Parser
import Test.Ganeti.Common
import Test.Ganeti.Common
+import Test.Ganeti.Confd.Utils
import Test.Ganeti.Daemon
import Test.Ganeti.Daemon
+import Test.Ganeti.Errors
+import Test.Ganeti.HTools.Backend.Simu
+import Test.Ganeti.HTools.Backend.Text
import Test.Ganeti.HTools.CLI
import Test.Ganeti.HTools.Cluster
import Test.Ganeti.HTools.Container
import Test.Ganeti.HTools.CLI
import Test.Ganeti.HTools.Cluster
import Test.Ganeti.HTools.Container
-import Test.Ganeti.HTools.Loader
import Test.Ganeti.HTools.Instance
import Test.Ganeti.HTools.Instance
+import Test.Ganeti.HTools.Loader
import Test.Ganeti.HTools.Node
import Test.Ganeti.HTools.PeerMap
import Test.Ganeti.HTools.Node
import Test.Ganeti.HTools.PeerMap
-import Test.Ganeti.HTools.Simu
-import Test.Ganeti.HTools.Text
import Test.Ganeti.HTools.Types
import Test.Ganeti.HTools.Types
-import Test.Ganeti.Jobs
import Test.Ganeti.JSON
import Test.Ganeti.JSON
+import Test.Ganeti.Jobs
import Test.Ganeti.Luxi
import Test.Ganeti.Objects
import Test.Ganeti.OpCodes
import Test.Ganeti.Luxi
import Test.Ganeti.Objects
import Test.Ganeti.OpCodes
@@
-54,6
+57,8
@@
import Test.Ganeti.Query.Language
import Test.Ganeti.Query.Query
import Test.Ganeti.Rpc
import Test.Ganeti.Ssconf
import Test.Ganeti.Query.Query
import Test.Ganeti.Rpc
import Test.Ganeti.Ssconf
+import Test.Ganeti.THH
+import Test.Ganeti.Types
import Test.Ganeti.Utils
-- | Our default test options, overring the built-in test-framework
import Test.Ganeti.Utils
-- | Our default test options, overring the built-in test-framework
@@
-72,9
+77,14
@@
defOpts = TestOptions
allTests :: [Test]
allTests =
[ testBasicTypes
allTests :: [Test]
allTests =
[ testBasicTypes
+ , testAttoparsec
, testCommon
, testConfd_Utils
, testDaemon
, testCommon
, testConfd_Utils
, testDaemon
+ , testBlock_Drbd_Parser
+ , testErrors
+ , testHTools_Backend_Simu
+ , testHTools_Backend_Text
, testHTools_CLI
, testHTools_Cluster
, testHTools_Container
, testHTools_CLI
, testHTools_Cluster
, testHTools_Container
@@
-82,8
+92,6
@@
allTests =
, testHTools_Loader
, testHTools_Node
, testHTools_PeerMap
, testHTools_Loader
, testHTools_Node
, testHTools_PeerMap
- , testHTools_Simu
- , testHTools_Text
, testHTools_Types
, testJSON
, testJobs
, testHTools_Types
, testJSON
, testJobs
@@
-95,6
+103,8
@@
allTests =
, testQuery_Query
, testRpc
, testSsconf
, testQuery_Query
, testRpc
, testSsconf
+ , testTHH
+ , testTypes
, testUtils
]
, testUtils
]