Revision 1b0a6356 htools/Ganeti/HTools/QC.hs
| b/htools/Ganeti/HTools/QC.hs | ||
|---|---|---|
| 350 | 350 |
Utils.parseUnit (show n ++ "g") == Types.Ok (n*1024) && |
| 351 | 351 |
Utils.parseUnit (show n ++ "t") == Types.Ok (n*1048576) && |
| 352 | 352 |
Types.isBad (Utils.parseUnit (show n ++ "x")::Types.Result Int) |
| 353 |
where _types = (n::Int)
|
|
| 353 |
where _types = n::Int
|
|
| 354 | 354 |
|
| 355 | 355 |
-- | Test list for the Utils module. |
| 356 | 356 |
testUtils = |
| ... | ... | |
| 591 | 591 |
case inst of |
| 592 | 592 |
Types.Bad msg -> printTestCase ("Failed to load instance: " ++ msg)
|
| 593 | 593 |
False |
| 594 |
Types.Ok (_, i) -> printTestCase ("Mismatch in some field while\
|
|
| 595 |
\ loading the instance") $
|
|
| 594 |
Types.Ok (_, i) -> printTestCase "Mismatch in some field while\ |
|
| 595 |
\ loading the instance" $
|
|
| 596 | 596 |
Instance.name i == name && |
| 597 | 597 |
Instance.vcpus i == vcpus && |
| 598 | 598 |
Instance.mem i == mem && |
| ... | ... | |
| 734 | 734 |
inst_idx = Instance.idx inst_ab |
| 735 | 735 |
node_add_ab = Node.addSec node inst_ab (-1) |
| 736 | 736 |
node_add_nb = Node.addSec node inst_nb (-1) |
| 737 |
node_del_ab = liftM (flip Node.removeSec inst_ab) node_add_ab
|
|
| 738 |
node_del_nb = liftM (flip Node.removeSec inst_nb) node_add_nb
|
|
| 737 |
node_del_ab = liftM (`Node.removeSec` inst_ab) node_add_ab
|
|
| 738 |
node_del_nb = liftM (`Node.removeSec` inst_nb) node_add_nb
|
|
| 739 | 739 |
in case (node_add_ab, node_add_nb, node_del_ab, node_del_nb) of |
| 740 | 740 |
(Types.OpGood a_ab, Types.OpGood a_nb, |
| 741 | 741 |
Types.OpGood d_ab, Types.OpGood d_nb) -> |
Also available in: Unified diff