Revision 6b168d4a test/hs/Test/Ganeti/Objects.hs

b/test/hs/Test/Ganeti/Objects.hs
107 107
instance Arbitrary Instance where
108 108
  arbitrary =
109 109
    Instance
110
      <$> genFQDN <*> genFQDN <*> genFQDN -- OS name, but...
110
      -- name
111
      <$> genFQDN
112
      -- primary node
113
      <*> genFQDN
114
      -- OS
115
      <*> genFQDN
116
      -- hypervisor
111 117
      <*> arbitrary
118
      -- hvparams
112 119
      -- FIXME: add non-empty hvparams when they're a proper type
113
      <*> pure (GenericContainer Map.empty) <*> arbitrary
114
      -- ... and for OSParams
115
      <*> pure (GenericContainer Map.empty) <*> arbitrary <*> arbitrary
116
      <*> arbitrary <*> arbitrary <*> arbitrary
120
      <*> pure (GenericContainer Map.empty)
121
      -- beparams
122
      <*> arbitrary
123
      -- osparams
124
      <*> pure (GenericContainer Map.empty)
125
      -- admin_state
126
      <*> arbitrary
127
      -- nics
128
      <*> arbitrary
129
      -- disks
130
      <*> arbitrary
131
      -- disk template
132
      <*> arbitrary
133
      -- network port
134
      <*> arbitrary
117 135
      -- ts
118 136
      <*> arbitrary <*> arbitrary
119 137
      -- uuid

Also available in: Unified diff