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