Revision 3bebda52 htest/Test/Ganeti/OpCodes.hs

b/htest/Test/Ganeti/OpCodes.hs
71 71 
      "OP_INSTANCE_MIGRATE" ->
72 72 
        OpCodes.OpInstanceMigrate <$> getFQDN <*> arbitrary <*>
73 73 
          arbitrary <*> arbitrary <*> getMaybe getFQDN
74 
      "OP_TAGS_SET" ->
75 
        OpCodes.OpTagsSet <$> arbitrary <*> genTags <*> getMaybe getFQDN
76 
      "OP_TAGS_DEL" ->
77 
        OpCodes.OpTagsSet <$> arbitrary <*> genTags <*> getMaybe getFQDN
74 78 
      _ -> fail "Wrong opcode"
75 79 

  		





  76
  80
  
    
-- * Test cases


  		












Also available in:
  Unified diff