.. where it belongs, as ConfigData is defined in Ganeti.Objects. Signed-off-by: Petr Pudlak <[email protected]> --- test/hs/Test/Ganeti/Objects.hs | 3 +++ test/hs/Test/Ganeti/Query/Network.hs | 3 --- 2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/test/hs/Test/Ganeti/Objects.hs b/test/hs/Test/Ganeti/Objects.hs index 8de58d2..9b6d739 100644 --- a/test/hs/Test/Ganeti/Objects.hs +++ b/test/hs/Test/Ganeti/Objects.hs @@ -272,6 +272,9 @@ instance Arbitrary IAllocatorParams where $(genArbitrary ''Cluster) +instance Arbitrary ConfigData where + arbitrary = genEmptyCluster 0 >>= genConfigDataWithNetworks + instance Arbitrary AddressPool where arbitrary = AddressPool . BA.fromList <$> arbitrary diff --git a/test/hs/Test/Ganeti/Query/Network.hs b/test/hs/Test/Ganeti/Query/Network.hs index 01cbb26..b252fde 100644 --- a/test/hs/Test/Ganeti/Query/Network.hs +++ b/test/hs/Test/Ganeti/Query/Network.hs @@ -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 -- 2.4.3.573.g4eafbef
