Revision d41efc42 test/hs/Test/Ganeti/Block/Drbd/Parser.hs
| b/test/hs/Test/Ganeti/Block/Drbd/Parser.hs | ||
|---|---|---|
| 70 | 70 |
UnconfiguredDevice 6 |
| 71 | 71 |
] |
| 72 | 72 |
|
| 73 |
-- | Test a DRBD 8.0 file with an empty version. |
|
| 74 |
case_drbd80_emptyversion :: Assertion |
|
| 75 |
case_drbd80_emptyversion = testFile "proc_drbd80-emptyversion.txt" $ |
|
| 76 |
DRBDStatus |
|
| 77 |
( VersionInfo Nothing Nothing Nothing Nothing |
|
| 78 |
(Just "5c9f89594553e32adb87d9638dce591782f947e3") |
|
| 79 |
(Just "root@node1.example.com, 2009-05-22 12:47:52") |
|
| 80 |
) |
|
| 81 |
[ DeviceInfo 0 Connected (LocalRemote Primary Secondary) |
|
| 82 |
(LocalRemote UpToDate UpToDate) 'C' "r---" |
|
| 83 |
(PerfIndicators 78728316 0 77675644 1277039 254 270 0 0 0 0 |
|
| 84 |
Nothing Nothing Nothing) |
|
| 85 |
Nothing |
|
| 86 |
(Just $ AdditionalInfo 0 61 65657 135 0 0 135) |
|
| 87 |
(Just $ AdditionalInfo 0 257 11378843 254 0 0 254) |
|
| 88 |
Nothing, |
|
| 89 |
UnconfiguredDevice 1, |
|
| 90 |
UnconfiguredDevice 2, |
|
| 91 |
UnconfiguredDevice 5, |
|
| 92 |
UnconfiguredDevice 6 |
|
| 93 |
] |
|
| 94 |
|
|
| 73 | 95 |
-- | Test a DRBD 8.3 file with a NULL caracter inside. |
| 74 | 96 |
case_drbd83_sync_krnl2_6_39 :: Assertion |
| 75 | 97 |
case_drbd83_sync_krnl2_6_39 = testFile "proc_drbd83_sync_krnl2.6.39.txt" $ |
| ... | ... | |
| 381 | 403 |
|
| 382 | 404 |
testSuite "Block/Drbd/Parser" |
| 383 | 405 |
[ 'case_drbd80_emptyline, |
| 406 |
'case_drbd80_emptyversion, |
|
| 384 | 407 |
'case_drbd83_sync_krnl2_6_39, |
| 385 | 408 |
'case_drbd83_sync, |
| 386 | 409 |
'case_drbd83_sync_want, |
Also available in: Unified diff