Revision bcd17bf0
b/htools/Ganeti/HTools/QC.hs | ||
---|---|---|
770 | 770 |
where n = node { Node.failN1 = True, Node.offline = False |
771 | 771 |
, Node.iPolicy = Types.defIPolicy } |
772 | 772 |
|
773 |
prop_Text_ISpecIdempotent ispec = |
|
774 |
case Text.loadISpec "dummy" . Utils.sepSplit ',' . |
|
775 |
Text.serializeISpec $ ispec of |
|
776 |
Types.Bad msg -> printTestCase ("Failed to load ispec: " ++ msg) False |
|
777 |
Types.Ok ispec' -> ispec ==? ispec' |
|
778 |
|
|
779 |
prop_Text_IPolicyIdempotent ipol = |
|
780 |
case Text.loadIPolicy . Utils.sepSplit '|' $ |
|
781 |
Text.serializeIPolicy owner ipol of |
|
782 |
Types.Bad msg -> printTestCase ("Failed to load ispec: " ++ msg) False |
|
783 |
Types.Ok res -> (owner, ipol) ==? res |
|
784 |
where owner = "dummy" |
|
785 |
|
|
773 | 786 |
-- | This property, while being in the text tests, does more than just |
774 | 787 |
-- test end-to-end the serialisation and loading back workflow; it |
775 | 788 |
-- also tests the Loader.mergeData and the actuall |
... | ... | |
812 | 825 |
, 'prop_Text_Load_Node |
813 | 826 |
, 'prop_Text_Load_NodeFail |
814 | 827 |
, 'prop_Text_NodeLSIdempotent |
828 |
, 'prop_Text_ISpecIdempotent |
|
829 |
, 'prop_Text_IPolicyIdempotent |
|
815 | 830 |
, 'prop_Text_CreateSerialise |
816 | 831 |
] |
817 | 832 |
|
b/htools/Ganeti/HTools/Text.hs | ||
---|---|---|
31 | 31 |
, parseData |
32 | 32 |
, loadInst |
33 | 33 |
, loadNode |
34 |
, loadISpec |
|
35 |
, loadIPolicy |
|
34 | 36 |
, serializeInstances |
35 | 37 |
, serializeNode |
36 | 38 |
, serializeNodes |
39 |
, serializeGroup |
|
40 |
, serializeISpec |
|
41 |
, serializeIPolicy |
|
37 | 42 |
, serializeCluster |
38 | 43 |
) where |
39 | 44 |
|
Also available in: Unified diff