Revision de36f091 test/hs/Test/Ganeti/OpCodes.hs
| b/test/hs/Test/Ganeti/OpCodes.hs | ||
|---|---|---|
| 58 | 58 |
|
| 59 | 59 |
-- * Arbitrary instances |
| 60 | 60 |
|
| 61 |
instance Arbitrary OpCodes.TagObject where |
|
| 62 |
arbitrary = oneof [ OpCodes.TagInstance <$> genFQDN |
|
| 63 |
, OpCodes.TagNode <$> genFQDN |
|
| 64 |
, OpCodes.TagGroup <$> genFQDN |
|
| 65 |
, pure OpCodes.TagCluster |
|
| 66 |
] |
|
| 61 |
instance (Ord k, Arbitrary k, Arbitrary a) => Arbitrary (Map.Map k a) where |
|
| 62 |
arbitrary = Map.fromList <$> arbitrary |
|
| 67 | 63 |
|
| 68 | 64 |
arbitraryOpTagsGet :: Gen OpCodes.OpCode |
| 69 | 65 |
arbitraryOpTagsGet = do |
Also available in: Unified diff