Revision 688f35e6
| 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