Revision 6b168d4a

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