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

b/htest/Test/Ganeti/HTools/Node.hs
154 154
  let inst' = setInstanceSmallerThanNode node inst
155 155
      inst'' = inst' { Instance.vcpus = Node.availCpu node + extra }
156 156
  in case Node.addPri node inst'' of
157
       Types.OpFail Types.FailCPU -> property True
157
       Types.OpFail Types.FailCPU -> passTest
158 158
       v -> failTest $ "Expected OpFail FailCPU, but got " ++ show v
159 159

  
160 160
-- | Check that an instance add with too high memory or disk will be
......
177 177
                   , Instance.mem = Node.availMem node + extra_mem
178 178
                   , Instance.vcpus = Node.availCpu node + extra_cpu }
179 179
  in case Node.addPri node inst' of
180
       Types.OpGood _ -> property True
180
       Types.OpGood _ -> passTest
181 181
       v -> failTest $ "Expected OpGood, but got: " ++ show v
182 182

  
183 183
-- | Check that an offline instance with reasonable disk size but
......
192 192
                   , Instance.vcpus = Node.availCpu node + extra_cpu
193 193
                   , Instance.diskTemplate = Types.DTDrbd8 }
194 194
  in case Node.addSec node inst' pdx of
195
       Types.OpGood _ -> property True
195
       Types.OpGood _ -> passTest
196 196
       v -> failTest $ "Expected OpGood/OpGood, but got: " ++ show v
197 197

  
198 198
-- | Checks for memory reservation changes.

Also available in: Unified diff