Revision 487e1962 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
809 809

  
810 810
prop_Text_NodeLSIdempotent node =
811 811
  (Text.loadNode defGroupAssoc.
812
       Utils.sepSplit '|' . Text.serializeNode defGroupList) n ==
812
       Utils.sepSplit '|' . Text.serializeNode defGroupList) n ==?
813 813
  Just (Node.name n, n)
814 814
    -- override failN1 to what loadNode returns by default
815
    where n = node { Node.failN1 = True, Node.offline = False
816
                   , Node.iPolicy = Types.defIPolicy }
815
    where n = Node.setPolicy Types.defIPolicy $
816
              node { Node.failN1 = True, Node.offline = False }
817 817

  
818 818
prop_Text_ISpecIdempotent ispec =
819 819
  case Text.loadISpec "dummy" . Utils.sepSplit ',' .
......
942 942
    where newnode = Node.setXmem node xm
943 943

  
944 944
prop_Node_setMcpu node mc =
945
  Node.mCpu newnode ==? mc
945
  Types.iPolicyVcpuRatio (Node.iPolicy newnode) ==? mc
946 946
    where newnode = Node.setMcpu node mc
947 947

  
948 948
-- | Check that an instance add with too high memory or disk will be

Also available in: Unified diff