Revision 086ad4cf htest/Test/Ganeti/TestCommon.hs
| b/htest/Test/Ganeti/TestCommon.hs | ||
|---|---|---|
| 134 | 134 |
-- | Generates a single name component. |
| 135 | 135 |
genName :: Gen String |
| 136 | 136 |
genName = do |
| 137 |
n <- choose (1, 64)
|
|
| 137 |
n <- choose (1, 16)
|
|
| 138 | 138 |
dn <- vector n |
| 139 | 139 |
return (map dnsGetChar dn) |
| 140 | 140 |
|
Also available in: Unified diff