Revision a3f02317 htest/Test/Ganeti/OpCodes.hs
b/htest/Test/Ganeti/OpCodes.hs  

294  294 
getMaybe (pure []) <*> getMaybe genNameNE 
295  295 
"OP_BACKUP_REMOVE" > 
296  296 
OpCodes.OpBackupRemove <$> getFQDN 
297 
"OP_TEST_ALLOCATOR" > 

298 
OpCodes.OpTestAllocator <$> arbitrary <*> arbitrary <*> 

299 
genNameNE <*> pure [] <*> pure [] <*> 

300 
arbitrary <*> getMaybe genNameNE <*> 

301 
(genTags >>= mapM mkNonEmpty) <*> 

302 
arbitrary <*> arbitrary <*> getMaybe genNameNE <*> 

303 
arbitrary <*> getMaybe genNodeNamesNE <*> arbitrary <*> 

304 
getMaybe genNamesNE <*> arbitrary <*> arbitrary 

305 
"OP_TEST_JQUEUE" > 

306 
OpCodes.OpTestJqueue <$> arbitrary <*> arbitrary <*> 

307 
resize 20 (listOf getFQDN) <*> arbitrary 

308 
"OP_TEST_DUMMY" > 

309 
OpCodes.OpTestDummy <$> pure J.JSNull <*> pure J.JSNull <*> 

310 
pure J.JSNull <*> pure J.JSNull 

297  311 
_ > fail $ "Undefined arbitrary for opcode " ++ op_id 
298  312  
299  313 
 * Helper functions 
Also available in: Unified diff