Revision 51f2650e htest/Test/Ganeti/Block/Drbd/Parser.hs
b/htest/Test/Ganeti/Block/Drbd/Parser.hs | ||
---|---|---|
136 | 136 |
(LocalRemote Inconsistent UpToDate) 'C' "r----" |
137 | 137 |
(PerformanceIndicators 0 178176 178176 0 104 42 0 0 0 0 (Just 1) |
138 | 138 |
(Just 'b') (Just 346112)) |
139 |
(Just $ SyncStatus 34.9 346112 524288 MegaByte (Time 0 0 5) 59392 Nothing
|
|
140 |
KiloByte Second) |
|
139 |
(Just $ SyncStatus 34.9 346112 524288 MegaByte (Time 0 0 5) 59392 |
|
140 |
Nothing KiloByte Second)
|
|
141 | 141 |
Nothing |
142 | 142 |
Nothing, |
143 | 143 |
DeviceInfo 4 WFConnection (LocalRemote Primary Unknown) |
... | ... | |
344 | 344 |
Right obtained -> |
345 | 345 |
obtained < 1000 .&&. |
346 | 346 |
getFirst3Digits i ==? obtained |
347 |
where getFirst3Digits x = if x > 1000 |
|
347 |
where getFirst3Digits x = if x >= 1000
|
|
348 | 348 |
then getFirst3Digits $ x `div` 10 |
349 | 349 |
else x |
350 | 350 |
|
Also available in: Unified diff