Revision 8a9ee1e9 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 590 | 590 |
n'' = max n' 2 -- but we don't want empty or 1-element lists, |
| 591 | 591 |
-- so use this for and/or filter list length |
| 592 | 592 |
|
| 593 |
instance Arbitrary Qlang.ItemType where |
|
| 594 |
arbitrary = elements [minBound..maxBound] |
|
| 595 |
|
|
| 593 | 596 |
-- * Actual tests |
| 594 | 597 |
|
| 595 | 598 |
-- ** Utils tests |
| ... | ... | |
| 1847 | 1850 |
instance Arbitrary Luxi.LuxiReq where |
| 1848 | 1851 |
arbitrary = elements [minBound..maxBound] |
| 1849 | 1852 |
|
| 1850 |
instance Arbitrary Luxi.QrViaLuxi where |
|
| 1851 |
arbitrary = elements [minBound..maxBound] |
|
| 1852 |
|
|
| 1853 | 1853 |
instance Arbitrary Luxi.LuxiOp where |
| 1854 | 1854 |
arbitrary = do |
| 1855 | 1855 |
lreq <- arbitrary |
Also available in: Unified diff