Revision be747966 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 1847 | 1847 |
|
| 1848 | 1848 |
-- * Luxi tests |
| 1849 | 1849 |
|
| 1850 |
instance Arbitrary Luxi.TagObject where |
|
| 1851 |
arbitrary = elements [minBound..maxBound] |
|
| 1852 |
|
|
| 1850 | 1853 |
instance Arbitrary Luxi.LuxiReq where |
| 1851 | 1854 |
arbitrary = elements [minBound..maxBound] |
| 1852 | 1855 |
|
| ... | ... | |
| 1866 | 1869 |
(listOf getFQDN) <*> arbitrary |
| 1867 | 1870 |
Luxi.ReqQueryConfigValues -> Luxi.QueryConfigValues <$> getFields |
| 1868 | 1871 |
Luxi.ReqQueryClusterInfo -> pure Luxi.QueryClusterInfo |
| 1869 |
Luxi.ReqQueryTags -> Luxi.QueryTags <$> getName <*> getFQDN
|
|
| 1872 |
Luxi.ReqQueryTags -> Luxi.QueryTags <$> arbitrary <*> getFQDN
|
|
| 1870 | 1873 |
Luxi.ReqSubmitJob -> Luxi.SubmitJob <$> (resize maxOpCodes arbitrary) |
| 1871 | 1874 |
Luxi.ReqSubmitManyJobs -> Luxi.SubmitManyJobs <$> |
| 1872 | 1875 |
(resize maxOpCodes arbitrary) |
Also available in: Unified diff