This fixes the prop_Node_rMem test, which cares about memory only;
otherwise we could fail due to other problems (e.g. not enough disk).
---
htools/Ganeti/HTools/QC.hs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/htools/Ganeti/HTools/QC.hs b/htools/Ganeti/HTools/QC.hs
index ed61cbf..b34d57e 100644
--- a/htools/Ganeti/HTools/QC.hs
+++ b/htools/Ganeti/HTools/QC.hs
@@ -1012,7 +1012,7 @@ prop_Node_addOffline (NonNegative extra_mem) (NonNegative
extra_cpu) pdx =
-- | Checks for memory reservation changes.
prop_Node_rMem inst =
not (Instance.isOffline inst) ==>
- forAll (arbitrary `suchThat` ((> Types.unitMem) . Node.fMem)) $ \node ->
+ forAll (genOnlineNode `suchThat` ((> Types.unitMem) . Node.fMem)) $ \node ->
-- ab = auto_balance, nb = non-auto_balance
-- we use -1 as the primary node of the instance
let inst' = inst { Instance.pNode = -1, Instance.autoBalance = True }
--
1.7.7.3
