BeforeNotifySpec.hs

module Network.Bugsnag.BeforeNotifySpec
    ( spec
    ) where


import Prelude

import Control.Exception
import Data.Bugsnag hiding (Exception)
import Network.Bugsnag.BeforeNotify
import Test.Hspec

data FooException = FooException
    deriving stock Show
    deriving anyclass Exception

data BarException = BarException
    deriving stock Show
    deriving anyclass Exception

data BazException = BazException
    deriving stock Show
    deriving anyclass Exception

spec :: Spec
spec = do
    describe "updateEventFromOriginalException" $ do
        it "can update based on unknown exception types" $ do
            let asFoo FooException = setGroupingHash "Saw Foo"
                asBar BarException = setGroupingHash "Saw Bar"

                bn = mconcat
                    [ updateEventFromOriginalException asFoo
                    , updateEventFromOriginalException asBar
                    ]

            event_groupingHash (runBeforeNotify bn FooException defaultEvent)
                `shouldBe` Just "Saw Foo"

            event_groupingHash (runBeforeNotify bn BarException defaultEvent)
                `shouldBe` Just "Saw Bar"

            event_groupingHash (runBeforeNotify bn BazException defaultEvent)
                `shouldBe` Nothing