Revision 1de58759
| b/src/Ganeti/Query/Group.hs | ||
|---|---|---|
| 72 | 72 |
QffNormal) |
| 73 | 73 |
, (FieldDefinition "pinst_list" "InstanceList" QFTOther |
| 74 | 74 |
"List of primary instances", |
| 75 |
-- FIXME: the niceSort here is not tested |
|
| 76 | 75 |
FieldConfig (\cfg -> rsNormal . niceSort . map instName . fst . |
| 77 | 76 |
getGroupInstances cfg . groupUuid), QffNormal) |
| 78 | 77 |
] ++ |
| b/test/hs/Test/Ganeti/Utils.hs | ||
|---|---|---|
| 169 | 169 |
"cPRi0lM7HLnSuWA2G9", "KVQqLPDjcPjf8T3oyzjcOsfkb", |
| 170 | 170 |
"guKJkXnkULealVC8CyF1xefym", "pqF8dkU5B1cMnyZuREaSOADYx"] |
| 171 | 171 |
|
| 172 |
assertEqual "hostnames" |
|
| 173 |
["host1.example.com", "host2.example.com", "host03.example.com", |
|
| 174 |
"host11.example.com", "host255.example.com"] $ |
|
| 175 |
niceSort ["host2.example.com", "host11.example.com", "host03.example.com", |
|
| 176 |
"host1.example.com", "host255.example.com"] |
|
| 177 |
|
|
| 172 | 178 |
-- | Tests single-string behaviour of 'niceSort'. |
| 173 | 179 |
prop_niceSort_single :: Property |
| 174 | 180 |
prop_niceSort_single = |
Also available in: Unified diff