Revision 20bc5360 htest/Test/Ganeti/HTools/Simu.hs
| b/htest/Test/Ganeti/HTools/Simu.hs | ||
|---|---|---|
| 62 | 62 |
|
| 63 | 63 |
-- | Checks that given a set of corrects specs, we can load them |
| 64 | 64 |
-- successfully, and that at high-level the values look right. |
| 65 |
prop_Simu_Load :: Property
|
|
| 66 |
prop_Simu_Load =
|
|
| 65 |
prop_Load :: Property |
|
| 66 |
prop_Load = |
|
| 67 | 67 |
forAll (choose (0, 10)) $ \ngroups -> |
| 68 | 68 |
forAll (replicateM ngroups genSimuSpec) $ \specs -> |
| 69 | 69 |
let strspecs = map (\(p, n, d, m, c) -> printf "%s,%d,%d,%d,%d" |
| ... | ... | |
| 93 | 93 |
replicate ngroups Types.defIPolicy |
| 94 | 94 |
|
| 95 | 95 |
testSuite "Simu" |
| 96 |
[ 'prop_Simu_Load
|
|
| 96 |
[ 'prop_Load |
|
| 97 | 97 |
] |
Also available in: Unified diff