Revision 7022db83 htest/Test/Ganeti/Jobs.hs
| b/htest/Test/Ganeti/Jobs.hs | ||
|---|---|---|
| 37 | 37 |
|
| 38 | 38 |
-- * Arbitrary instances |
| 39 | 39 |
|
| 40 |
instance Arbitrary Jobs.OpStatus where |
|
| 41 |
arbitrary = elements [minBound..maxBound] |
|
| 40 |
$(genArbitrary ''Jobs.OpStatus) |
|
| 42 | 41 |
|
| 43 |
instance Arbitrary Jobs.JobStatus where |
|
| 44 |
arbitrary = elements [minBound..maxBound] |
|
| 42 |
$(genArbitrary ''Jobs.JobStatus) |
|
| 45 | 43 |
|
| 46 | 44 |
-- * Test cases |
| 47 | 45 |
|
Also available in: Unified diff