Revision da5f09ef test/hs/Test/Ganeti/TestHTools.hs

b/test/hs/Test/Ganeti/TestHTools.hs
52 52 
-- | Null iPolicy, and by null we mean very liberal.
53 53 
nullIPolicy :: Types.IPolicy
54 54 
nullIPolicy = Types.IPolicy
55 
  { Types.iPolicyMinSpec = Types.ISpec { Types.iSpecMemorySize = 0
56 
                                       , Types.iSpecCpuCount   = 0
57 
                                       , Types.iSpecDiskSize   = 0
58 
                                       , Types.iSpecDiskCount  = 0
59 
                                       , Types.iSpecNicCount   = 0
60 
                                       , Types.iSpecSpindleUse = 0
61 
                                       }
62 
  , Types.iPolicyMaxSpec = Types.ISpec { Types.iSpecMemorySize = maxBound
63 
                                       , Types.iSpecCpuCount   = maxBound
64 
                                       , Types.iSpecDiskSize   = maxBound
65 
                                       , Types.iSpecDiskCount  = C.maxDisks
66 
                                       , Types.iSpecNicCount   = C.maxNics
67 
                                       , Types.iSpecSpindleUse = maxBound
68 
                                       }
55 
  { Types.iPolicyMinMaxISpecs = Types.MinMaxISpecs
56 
    { Types.minMaxISpecsMinSpec = Types.ISpec { Types.iSpecMemorySize = 0
57 
                                              , Types.iSpecCpuCount   = 0
58 
                                              , Types.iSpecDiskSize   = 0
59 
                                              , Types.iSpecDiskCount  = 0
60 
                                              , Types.iSpecNicCount   = 0
61 
                                              , Types.iSpecSpindleUse = 0
62 
                                              }
63 
    , Types.minMaxISpecsMaxSpec = Types.ISpec
64 
      { Types.iSpecMemorySize = maxBound
65 
      , Types.iSpecCpuCount   = maxBound
66 
      , Types.iSpecDiskSize   = maxBound
67 
      , Types.iSpecDiskCount  = C.maxDisks
68 
      , Types.iSpecNicCount   = C.maxNics
69 
      , Types.iSpecSpindleUse = maxBound
70 
      }
71 
    }
69 72 
  , Types.iPolicyStdSpec = Types.ISpec { Types.iSpecMemorySize = Types.unitMem
70 73 
                                       , Types.iSpecCpuCount   = Types.unitCpu
71 74 
                                       , Types.iSpecDiskSize   = Types.unitDsk

Also available in: Unified diff