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