Revision 90669369 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
1103 1103 
  forAll (genInstanceSmallerThanNode node) $ \inst ->
1104 1104 
  let pdx = Node.idx node + 1
1105 1105 
      inst' = Instance.setPri inst pdx
1106 
  in case Node.addSec node inst' pdx of
1107 
       Types.OpGood node' -> Node.removeSec node' inst' ==? node
1106 
      inst'' = inst' { Instance.diskTemplate = Types.DTDrbd8 }
1107 
  in case Node.addSec node inst'' pdx of
1108 
       Types.OpGood node' -> Node.removeSec node' inst'' ==? node
1108 1109 
       _ -> failTest "Can't add instance"
1109 1110 

  		





  1110
  1111
  
    
testSuite "Node"


  		












Also available in:
  Unified diff