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 nonempty 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