Revision b54ecf12 test/hs/Test/Ganeti/Objects.hs
b/test/hs/Test/Ganeti/Objects.hs  

93  93 
instance Arbitrary Disk where 
94  94 
arbitrary = Disk <$> arbitrary <*> pure [] <*> arbitrary 
95  95 
<*> arbitrary <*> arbitrary <*> arbitrary 
96 
<*> arbitrary 

96 
<*> arbitrary <*> arbitrary


97  97  
98  98 
 FIXME: we should generate proper values, >=0, etc., but this is 
99  99 
 hard for partial ones, where all must be wrapped in a 'Maybe' 
...  ...  
179  179 
size < arbitrary 
180  180 
mode < arbitrary 
181  181 
name < genMaybe genName 
182 
spindles < arbitrary 

182  183 
uuid < genName 
183 
let disk = Disk logicalid children ivname size mode name uuid 

184 
let disk = Disk logicalid children ivname size mode name spindles uuid


184  185 
return disk 
185  186  
186  187 
genDisk :: Gen Disk 
Also available in: Unified diff