Revision b37f4a76 htools/Ganeti/HTools/QC.hs
b/htools/Ganeti/HTools/QC.hs | ||
---|---|---|
803 | 803 |
ctags ==? ctags2 .&&. |
804 | 804 |
Types.defIPolicy ==? cpol2 .&&. |
805 | 805 |
il' ==? il2 .&&. |
806 |
-- we need to override the policy manually for now for |
|
807 |
-- nodes and groups |
|
808 |
defGroupList ==? (Container.map (\g -> g { Group.iPolicy = |
|
809 |
nullIPolicy } ) |
|
810 |
gl2) .&&. |
|
811 |
nl' ==? Container.map (Node.setPolicy nullIPolicy) nl2 |
|
806 |
defGroupList ==? gl2 .&&. |
|
807 |
nl' ==? nl2 |
|
812 | 808 |
|
813 | 809 |
testSuite "Text" |
814 | 810 |
[ 'prop_Text_Load_Instance |
Also available in: Unified diff