bugsnag-1.0.0.0: test/Network/Bugsnag/DeviceSpec.hs

module Network.Bugsnag.DeviceSpec
    ( spec
    ) where

import Prelude

import Data.Bugsnag (Device(..))
import Network.Bugsnag.Device
import Test.Hspec

spec :: Spec
spec = do
    describe "bugsnagDeviceFromUserAgent" $ do
        it "best-effort sniffs from UserAgent" $ do
            let
                device =
                    bugsnagDeviceFromUserAgent
                        "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.119 Safari/537.36"

            device_osName device `shouldBe` Just "Linux"
            device_osVersion device `shouldBe` Nothing
            device_browserName device `shouldBe` Just "Chrome"
            device_browserVersion device `shouldBe` Just "64.0.3282"