Revision c324da14 test/hs/Test/Ganeti/HTools/Node.hs
b/test/hs/Test/Ganeti/HTools/Node.hs | ||
---|---|---|
7 | 7 |
|
8 | 8 |
{- |
9 | 9 |
|
10 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc. |
|
10 |
Copyright (C) 2009, 2010, 2011, 2012, 2013 Google Inc.
|
|
11 | 11 |
|
12 | 12 |
This program is free software; you can redistribute it and/or modify |
13 | 13 |
it under the terms of the GNU General Public License as published by |
... | ... | |
90 | 90 |
cpu_t <- choose (base_cpu, top_cpu) |
91 | 91 |
offl <- arbitrary |
92 | 92 |
let n = Node.create name (fromIntegral mem_t) mem_n mem_f |
93 |
(fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 1 0 |
|
93 |
(fromIntegral dsk_t) dsk_f (fromIntegral cpu_t) offl 1 0 False
|
|
94 | 94 |
n' = Node.setPolicy nullIPolicy n |
95 | 95 |
return $ Node.buildPeers n' Container.empty |
96 | 96 |
|
Also available in: Unified diff