Revision 1c0f9d12 test/hs/Test/Ganeti/Block/Drbd/Parser.hs
| b/test/hs/Test/Ganeti/Block/Drbd/Parser.hs | ||
|---|---|---|
| 43 | 43 |
-- | Function for testing whether a file is parsed correctly. |
| 44 | 44 |
testFile :: String -> DRBDStatus -> Assertion |
| 45 | 45 |
testFile fileName expectedContent = do |
| 46 |
fileContent <- readPythonTestData fileName
|
|
| 46 |
fileContent <- readTestData fileName |
|
| 47 | 47 |
case A.parseOnly drbdStatusParser $ pack fileContent of |
| 48 | 48 |
Left msg -> assertFailure $ "Parsing failed: " ++ msg |
| 49 | 49 |
Right obtained -> assertEqual fileName expectedContent obtained |
Also available in: Unified diff