Revision 96f9b0a6 test/hs/Test/Ganeti/HTools/Node.hs

b/test/hs/Test/Ganeti/HTools/Node.hs
90 90 
  cpu_t <- choose (base_cpu, top_cpu)
91 91 
  offl  <- arbitrary
92 92 
  let n = Node.create name (fromIntegral mem_t) mem_n mem_f
93 
          (fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 1 0 False
93 
          (fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 1 0 0 False
94 94 
      n' = Node.setPolicy nullIPolicy n
95 95 
  return $ Node.buildPeers n' Container.empty
96 96 

  		












Also available in:
  Unified diff