Add functionality for checking validity of names

[ganeti-local] / htest / Test / Ganeti / Objects.hs

diff --git a/htest/Test/Ganeti/Objects.hs b/htest/Test/Ganeti/Objects.hs
index 9835d57..d723e12 100644 (file)
--- a/htest/Test/Ganeti/Objects.hs
+++ b/htest/Test/Ganeti/Objects.hs
@@ -28,7 +28,6 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 
 module Test.Ganeti.Objects
   ( testObjects
-  , testSlowObjects
   , Hypervisor(..)
   , Node(..)
   , genEmptyCluster
@@ -187,7 +186,7 @@ genEmptyCluster ncount = do
   grp <- arbitrary
   let contgroups = Container $ Map.singleton guuid grp
   serial <- arbitrary
-  cluster <- arbitrary
+  cluster <- resize 8 arbitrary
   let c = ConfigData version cluster contnodes contgroups continsts serial
   return c
 
@@ -227,15 +226,12 @@ prop_Inst_serialisation = testSerialisation
 -- | Check config serialisation.
 prop_Config_serialisation :: Property
 prop_Config_serialisation =
-  forAll (choose (0, maxNodes) >>= genEmptyCluster) testSerialisation
+  forAll (choose (0, maxNodes `div` 4) >>= genEmptyCluster) testSerialisation
 
 testSuite "Objects"
   [ 'prop_fillDict
   , 'prop_Disk_serialisation
   , 'prop_Inst_serialisation
   , 'prop_Node_serialisation
-  ]
-
-testSuite "SlowObjects"
-  [ 'prop_Config_serialisation
+  , 'prop_Config_serialisation
   ]