Commit c3e6ced6 authored by Petr Pudlak's avatar Petr Pudlak

Move `Arbitrary ConfigData` to the Objects test module

.. where it belongs, as ConfigData is defined in Ganeti.Objects.
Signed-off-by: default avatarPetr Pudlak <pudlak@google.com>
Reviewed-by: default avatarHelga Velroyen <helgav@google.com>
parent cc9a05b4
......@@ -342,6 +342,9 @@ instance Arbitrary IAllocatorParams where
$(genArbitrary ''Cluster)
instance Arbitrary ConfigData where
arbitrary = genEmptyCluster 0 >>= genConfigDataWithNetworks
instance Arbitrary AddressPool where
arbitrary = AddressPool . BA.fromList <$> arbitrary
......
......@@ -52,9 +52,6 @@ import Test.QuickCheck
import qualified Data.Map as Map
import Data.Maybe
instance Arbitrary ConfigData where
arbitrary = genEmptyCluster 0 >>= genConfigDataWithNetworks
-- | Check if looking up a valid network ID of a nodegroup yields
-- a non-Nothing result.
prop_getGroupConnection :: NodeGroup -> Property
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment