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