diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-01-08 06:26:35 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-01-08 06:26:35 +0400 |
| commit | 6f909c0d81d04b997f8c81ec1ac05e94d7d1e5b6 (patch) | |
| tree | 0926f49f12d629fd4813be043e7c5976d0455e14 /tests/Network/KRPCSpec.hs | |
| parent | fe87b6cec9504114dafca26166b51f6c48250106 (diff) | |
Add HandlerFailure exceptions
Diffstat (limited to 'tests/Network/KRPCSpec.hs')
| -rw-r--r-- | tests/Network/KRPCSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/KRPCSpec.hs b/tests/Network/KRPCSpec.hs index e73b1ec0..756c6855 100644 --- a/tests/Network/KRPCSpec.hs +++ b/tests/Network/KRPCSpec.hs | |||
| @@ -37,4 +37,4 @@ spec = do | |||
| 37 | (withManager opts servAddr handlers $ runReaderT $ do | 37 | (withManager opts servAddr handlers $ runReaderT $ do |
| 38 | query servAddr (Echo (0xabcd :: Int)) | 38 | query servAddr (Echo (0xabcd :: Int)) |
| 39 | ) | 39 | ) |
| 40 | `shouldThrow` (== KError GenericError "timeout expired" "0") | 40 | `shouldThrow` (== TimeoutExpired) |