[PATCH master 11/12] fixup! Fix Node_addPriFD test for arbitrary disk templates

[Iustin Pop]

---
 htools/Ganeti/HTools/QC.hs |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/htools/Ganeti/HTools/QC.hs b/htools/Ganeti/HTools/QC.hs
index f621f0a..f2cfc34 100644
--- a/htools/Ganeti/HTools/QC.hs
+++ b/htools/Ganeti/HTools/QC.hs
@@ -977,6 +977,8 @@ prop_Node_addPriFM node inst =
         inst' = setInstanceSmallerThanNode node inst
         inst'' = inst' { Instance.mem = Instance.mem inst }
 
+-- | Check that adding a primary instance with too much disk fails
+-- with type FailDisk.
 prop_Node_addPriFD node inst =
   forAll (elements Instance.localStorageTemplates) $ \dt ->
   Instance.dsk inst >= Node.fDsk node && not (Node.failN1 node) ==>
@@ -987,6 +989,8 @@ prop_Node_addPriFD node inst =
        Types.OpFail Types.FailDisk -> True
        _ -> False
 
+-- | Check that adding a primary instance with too many VCPUs fails
+-- with type FailCPU.
 prop_Node_addPriFC =
   forAll (choose (1, maxCpu)) $ \extra ->
   forAll genOnlineNode $ \node ->
-- 
1.7.9.1