Revision 06c2fb4a test/hs/Test/Ganeti/OpCodes.hs
b/test/hs/Test/Ganeti/OpCodes.hs  

99  99 
, SetParamsNew <$> arbitrary 
100  100 
] 
101  101  
102 
instance Arbitrary ISnapParams where 

103 
arbitrary = ISnapParams <$> genNameNE 

104  
105 
instance (Arbitrary a) => Arbitrary (SetSnapParams a) where 

106 
arbitrary = oneof [ pure SetSnapParamsEmpty 

107 
, SetSnapParamsValid <$> arbitrary 

108 
] 

109  
102  110 
instance Arbitrary ExportTarget where 
103  111 
arbitrary = oneof [ ExportTargetLocal <$> genNodeNameNE 
104  112 
, ExportTargetRemote <$> pure [] 
...  ...  
228  236 
OpCodes.OpInstanceReinstall <$> genFQDN <*> arbitrary <*> 
229  237 
genMaybe genNameNE <*> genMaybe (pure emptyJSObject) 
230  238 
"OP_INSTANCE_REMOVE" > 
231 
OpCodes.OpInstanceRemove <$> genFQDN <*> arbitrary <*> arbitrary 

239 
OpCodes.OpInstanceRemove <$> genFQDN <*> arbitrary <*> 

240 
arbitrary <*> arbitrary 

232  241 
"OP_INSTANCE_RENAME" > 
233  242 
OpCodes.OpInstanceRename <$> genFQDN <*> genNodeNameNE <*> 
234  243 
arbitrary <*> arbitrary 
...  ...  
339  348 
OpCodes.OpNetworkDisconnect <$> genNameNE <*> genNameNE 
340  349 
"OP_NETWORK_QUERY" > 
341  350 
OpCodes.OpNetworkQuery <$> genFieldsNE <*> genNamesNE <*> arbitrary 
351 
"OP_INSTANCE_SNAPSHOT" > 

352 
OpCodes.OpInstanceSnapshot <$> genFQDN <*> arbitrary 

342  353 
"OP_RESTRICTED_COMMAND" > 
343  354 
OpCodes.OpRestrictedCommand <$> arbitrary <*> genNodeNamesNE <*> 
344  355 
genNameNE 
Also available in: Unified diff