Revision 688f35e6 test/hs/Test/Ganeti/TestCommon.hs
b/test/hs/Test/Ganeti/TestCommon.hs | ||
---|---|---|
42 | 42 |
, DNSChar(..) |
43 | 43 |
, genName |
44 | 44 |
, genFQDN |
45 |
, genUUID |
|
45 | 46 |
, genMaybe |
46 | 47 |
, genTags |
47 | 48 |
, genFields |
... | ... | |
193 | 194 |
names <- vectorOf ncomps genName |
194 | 195 |
return $ intercalate "." names |
195 | 196 |
|
197 |
-- | Generates a UUID-like string. |
|
198 |
-- |
|
199 |
-- Only to be used for QuickCheck testing. For obtaining actual UUIDs use |
|
200 |
-- the newUUID function in Ganeti.Utils |
|
201 |
genUUID :: Gen String |
|
202 |
genUUID = do |
|
203 |
c1 <- vector 6 |
|
204 |
c2 <- vector 4 |
|
205 |
c3 <- vector 4 |
|
206 |
c4 <- vector 4 |
|
207 |
c5 <- vector 4 |
|
208 |
c6 <- vector 4 |
|
209 |
c7 <- vector 6 |
|
210 |
return $ map dnsGetChar c1 ++ "-" ++ map dnsGetChar c2 ++ "-" ++ |
|
211 |
map dnsGetChar c3 ++ "-" ++ map dnsGetChar c4 ++ "-" ++ |
|
212 |
map dnsGetChar c5 ++ "-" ++ map dnsGetChar c6 ++ "-" ++ |
|
213 |
map dnsGetChar c7 |
|
214 |
|
|
196 | 215 |
-- | Combinator that generates a 'Maybe' using a sub-combinator. |
197 | 216 |
genMaybe :: Gen a -> Gen (Maybe a) |
198 | 217 |
genMaybe subgen = frequency [ (1, pure Nothing), (3, Just <$> subgen) ] |
Also available in: Unified diff