Revision 825f8cee test/hs/Test/Ganeti/HTools/Node.hs
b/test/hs/Test/Ganeti/HTools/Node.hs | ||
---|---|---|
113 | 113 |
genExclStorNode = do |
114 | 114 |
n <- genOnlineNode |
115 | 115 |
fs <- choose (Types.unitSpindle, Node.tSpindles n) |
116 |
let pd = fromIntegral fs / fromIntegral (Node.tSpindles n)::Double |
|
116 | 117 |
return n { Node.exclStorage = True |
117 | 118 |
, Node.fSpindles = fs |
119 |
, Node.pDsk = pd |
|
118 | 120 |
} |
119 | 121 |
|
120 | 122 |
-- | Generate a node with exclusive storage possibly enabled. |
Also available in: Unified diff