Revision 1de58759 test/hs/Test/Ganeti/Utils.hs
| 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