Revision d6eec019 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 6 | 6 |
|
| 7 | 7 |
{-
|
| 8 | 8 |
|
| 9 |
Copyright (C) 2009, 2010, 2011 Google Inc. |
|
| 9 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc.
|
|
| 10 | 10 |
|
| 11 | 11 |
This program is free software; you can redistribute it and/or modify |
| 12 | 12 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 262 | 262 |
offl <- arbitrary |
| 263 | 263 |
let n = Node.create name (fromIntegral mem_t) mem_n mem_f |
| 264 | 264 |
(fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 0 |
| 265 |
return $ Node.buildPeers n Container.empty |
|
| 265 |
n' = Node.setPolicy nullIPolicy n |
|
| 266 |
return $ Node.buildPeers n' Container.empty |
|
| 266 | 267 |
|
| 267 | 268 |
-- and a random node |
| 268 | 269 |
instance Arbitrary Node.Node where |
| ... | ... | |
| 679 | 680 |
Utils.sepSplit '|' . Text.serializeNode defGroupList) n == |
| 680 | 681 |
Just (Node.name n, n) |
| 681 | 682 |
-- override failN1 to what loadNode returns by default |
| 682 |
where n = node { Node.failN1 = True, Node.offline = False }
|
|
| 683 |
where n = node { Node.failN1 = True, Node.offline = False
|
|
| 684 |
, Node.iPolicy = Types.defIPolicy } |
|
| 683 | 685 |
|
| 684 | 686 |
testSuite "Text" |
| 685 | 687 |
[ 'prop_Text_Load_Instance |
Also available in: Unified diff