Revision c8c071cb test/hs/Test/Ganeti/HTools/Node.hs
| b/test/hs/Test/Ganeti/HTools/Node.hs | ||
|---|---|---|
| 90 | 90 |
dsk_t <- choose (base_dsk, top_dsk) |
| 91 | 91 |
dsk_f <- choose (base_dsk, dsk_t) |
| 92 | 92 |
cpu_t <- choose (base_cpu, top_cpu) |
| 93 |
cpu_n <- choose (base_cpu, cpu_t) |
|
| 93 | 94 |
offl <- arbitrary |
| 94 | 95 |
spindles <- choose (base_spindles, top_spindles) |
| 95 | 96 |
let n = Node.create name (fromIntegral mem_t) mem_n mem_f |
| 96 |
(fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl spindles |
|
| 97 |
(fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) cpu_n offl spindles
|
|
| 97 | 98 |
0 0 False |
| 98 | 99 |
n' = Node.setPolicy nullIPolicy n |
| 99 | 100 |
return $ Node.buildPeers n' Container.empty |
Also available in: Unified diff