Add explicit test for wrong OpCode arbitrary instances

[ganeti-local] / htest / test.hs

diff --git a/htest/test.hs b/htest/test.hs
index 5180878..eade8bf 100644 (file)
--- a/htest/test.hs
+++ b/htest/test.hs
@@ -30,7 +30,9 @@ import Test.Framework
 import System.Environment (getArgs)
 
 import Test.Ganeti.TestImports ()
+import Test.Ganeti.Attoparsec
 import Test.Ganeti.BasicTypes
+import Test.Ganeti.Block.Drbd.Parser
 import Test.Ganeti.Common
 import Test.Ganeti.Confd.Utils
 import Test.Ganeti.Daemon
@@ -56,6 +58,7 @@ 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
@@ -74,9 +77,11 @@ defOpts = TestOptions
 allTests :: [Test]
 allTests =
   [ testBasicTypes
+  , testAttoparsec
   , testCommon
   , testConfd_Utils
   , testDaemon
+  , testBlock_Drbd_Parser
   , testErrors
   , testHTools_Backend_Simu
   , testHTools_Backend_Text
@@ -99,6 +104,7 @@ allTests =
   , testRpc
   , testSsconf
   , testTHH
+  , testTypes
   , testUtils
   ]