summaryrefslogtreecommitdiff
path: root/test/Network/BugsnagSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'test/Network/BugsnagSpec.hs')
-rw-r--r--test/Network/BugsnagSpec.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Network/BugsnagSpec.hs b/test/Network/BugsnagSpec.hs
index 21160db..59de9ba 100644
--- a/test/Network/BugsnagSpec.hs
+++ b/test/Network/BugsnagSpec.hs
@@ -78,7 +78,7 @@ spec = do
e <- brokenFunction' `catch` pure
let ex = bugsnagExceptionFromSomeException e
- beErrorClass ex `shouldBe` "SomeException"
+ beErrorClass ex `shouldBe` "StringException"
beMessage ex `shouldBe` Just "empty list"
beStacktrace ex `shouldSatisfy` ((== 3) . length)
@@ -95,7 +95,7 @@ spec = do
e <- brokenFunction'' `catch` pure
let ex = bugsnagExceptionFromSomeException e
- beErrorClass ex `shouldBe` "SomeException"
+ beErrorClass ex `shouldBe` "StringException"
beMessage ex `shouldBe` Just
"empty list\n and message with newlines\n\n"
beStacktrace ex `shouldSatisfy` ((== 3) . length)