Revision e09c1fa0 htest/Test/Ganeti/HTools/Cluster.hs
| b/htest/Test/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 26 | 26 |
|
| 27 | 27 |
-} |
| 28 | 28 |
|
| 29 |
module Test.Ganeti.HTools.Cluster (testCluster) where |
|
| 29 |
module Test.Ganeti.HTools.Cluster (testHTools_Cluster) where
|
|
| 30 | 30 |
|
| 31 | 31 |
import Test.QuickCheck |
| 32 | 32 |
|
| ... | ... | |
| 352 | 352 |
nl = makeSmallCluster node' count |
| 353 | 353 |
in not $ canAllocOn nl rqn inst |
| 354 | 354 |
|
| 355 |
testSuite "Cluster" |
|
| 355 |
testSuite "HTools/Cluster"
|
|
| 356 | 356 |
[ 'prop_Score_Zero |
| 357 | 357 |
, 'prop_CStats_sane |
| 358 | 358 |
, 'prop_Alloc_sane |
Also available in: Unified diff