Revision bfa9a5d1 test/hs/Test/Ganeti/HTools/Instance.hs
| b/test/hs/Test/Ganeti/HTools/Instance.hs | ||
|---|---|---|
| 178 | 178 |
prop_shrinkDF :: Instance.Instance -> Property |
| 179 | 179 |
prop_shrinkDF inst = |
| 180 | 180 |
forAll (choose (0, 2 * Types.unitDsk - 1)) $ \dsk -> |
| 181 |
let inst' = inst { Instance.dsk = dsk }
|
|
| 181 |
let inst' = inst { Instance.dsk = dsk, Instance.disks = [dsk] }
|
|
| 182 | 182 |
in isBad $ Instance.shrinkByType inst' Types.FailDisk |
| 183 | 183 |
|
| 184 | 184 |
prop_setMovable :: Instance.Instance -> Bool -> Property |
Also available in: Unified diff