Revision f9649b3d
b/test/hs/Test/Ganeti/HTools/Node.hs | ||
---|---|---|
112 | 112 |
-- lists here. |
113 | 113 |
genNodeList :: Gen Node.Node -> Gen Node.List |
114 | 114 |
genNodeList ngen = fmap (snd . Loader.assignIndices) names_nodes |
115 |
where names_nodes = (fmap . map) (\n -> (Node.name n, n)) $ listOf1 ngen |
|
115 |
where names_nodes = (fmap . map) (\n -> (Node.name n, n)) nodes |
|
116 |
nodes = listOf1 ngen `suchThat` |
|
117 |
((\ns -> ns == nub ns) . map Node.name) |
|
116 | 118 |
|
117 | 119 |
-- | Generate a node list, an instance list, and a node graph. |
118 | 120 |
-- We choose instances with nodes contained in the node list. |
Also available in: Unified diff