Revision 1a182390 test/hs/Test/Ganeti/OpCodes.hs

b/test/hs/Test/Ganeti/OpCodes.hs
285 285
        OpCodes.OpInstanceQueryData <$> arbitrary <*>
286 286
          genNodeNamesNE <*> arbitrary
287 287
      "OP_INSTANCE_SET_PARAMS" ->
288
        OpCodes.OpInstanceSetParams <$> genFQDN <*> return Nothing <*>
289
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary <*>
290
          arbitrary <*> pure emptyJSObject <*> arbitrary <*>
291
          pure emptyJSObject <*> arbitrary <*> genMaybe genNodeNameNE <*>
292
          return Nothing <*> genMaybe genNodeNameNE <*> return Nothing <*>
293
          genMaybe genNameNE <*> pure emptyJSObject <*> arbitrary <*>
294
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
288
        OpCodes.OpInstanceSetParams
289
          <$> genFQDN                         -- instance_name
290
          <*> return Nothing                  -- instance_uuid
291
          <*> arbitrary                       -- force
292
          <*> arbitrary                       -- force_variant
293
          <*> arbitrary                       -- ignore_ipolicy
294
          <*> arbitrary                       -- nics
295
          <*> arbitrary                       -- disks
296
          <*> pure emptyJSObject              -- beparams
297
          <*> arbitrary                       -- runtime_mem
298
          <*> pure emptyJSObject              -- hvparams
299
          <*> arbitrary                       -- disk_template
300
          <*> genMaybe genNodeNameNE          -- pnode
301
          <*> return Nothing                  -- pnode_uuid
302
          <*> genMaybe genNodeNameNE          -- remote_node
303
          <*> return Nothing                  -- remote_node_uuid
304
          <*> genMaybe genNameNE              -- os_name
305
          <*> pure emptyJSObject              -- osparams
306
          <*> genMaybe arbitraryPrivateJSObj  -- osparams_private
307
          <*> arbitrary                       -- wait_for_sync
308
          <*> arbitrary                       -- offline
309
          <*> arbitrary                       -- conflicts_check
310
          <*> arbitrary                       -- hotplug
311
          <*> arbitrary                       -- hotplug_if_possible
295 312
      "OP_INSTANCE_GROW_DISK" ->
296 313
        OpCodes.OpInstanceGrowDisk <$> genFQDN <*> return Nothing <*>
297 314
          arbitrary <*> arbitrary <*> arbitrary <*> arbitrary

Also available in: Unified diff