Revision 2e0bb81d htest/Test/Ganeti/HTools/Cluster.hs

b/htest/Test/Ganeti/HTools/Cluster.hs
206 206 
             [(if Instance.diskTemplate inst' == Types.DTDrbd8
207 207 
                 then Instance.sNode
208 208 
                 else Instance.pNode) inst'] of
209 
        Types.Ok _ -> property True
209 
        Types.Ok _ -> passTest
210 210 
        Types.Bad msg -> failTest $ "Failed to relocate: " ++ msg
211 211 

  		





  212
  212
  
    
-- | Helper property checker for the result of a nodeEvac or


  		












Also available in:
  Unified diff