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 ...@@ -342,6 +342,9 @@ instance Arbitrary IAllocatorParams where
$(genArbitrary ''Cluster) $(genArbitrary ''Cluster)
instance Arbitrary ConfigData where
arbitrary = genEmptyCluster 0 >>= genConfigDataWithNetworks
instance Arbitrary AddressPool where instance Arbitrary AddressPool where
arbitrary = AddressPool . BA.fromList <$> arbitrary arbitrary = AddressPool . BA.fromList <$> arbitrary
......
...@@ -52,9 +52,6 @@ import Test.QuickCheck ...@@ -52,9 +52,6 @@ import Test.QuickCheck
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Maybe import Data.Maybe
instance Arbitrary ConfigData where
arbitrary = genEmptyCluster 0 >>= genConfigDataWithNetworks
-- | Check if looking up a valid network ID of a nodegroup yields -- | Check if looking up a valid network ID of a nodegroup yields
-- a non-Nothing result. -- a non-Nothing result.
prop_getGroupConnection :: NodeGroup -> Property 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