APNSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module Network.PushNotify.APNSpec (spec) where

import           Data.Aeson
import           Network.PushNotify.APN
import           Test.Hspec

spec :: Spec
spec = do
  describe "JsonApsMessage" $
    context "JSON encoder" $ do
      it "encodes an APNS message with a title and body" $
        toJSON (alertMessage "hello" "world" Nothing) `shouldBe`
          object [
            "category" .= Null,
            "sound"    .= Null,
            "badge"    .= Null,
            "mutable-content" .= Null,
            "interruption-level" .= Null,
            "content-changed" .= Null,
            "alert"    .= object [
              "title" .= String "hello",
              "body"  .= String "world"
            ]
          ]
      it "encodes an APNS message with a title, subtitle and body" $
        toJSON (alertMessage "hello" "world" (Just "there")) `shouldBe`
          object [
            "category" .= Null,
            "sound"    .= Null,
            "badge"    .= Null,
            "mutable-content" .= Null,
            "interruption-level" .= Null,
            "content-changed" .= Null,
            "alert"    .= object [
              "title" .= String "hello",
              "subtitle" .= String "there",
              "body"  .= String "world"
            ]
          ]
      it "encodes an APNS message with a title and no body" $
        toJSON (bodyMessage "hello world") `shouldBe`
          object [
            "category" .= Null,
            "sound"    .= Null,
            "badge"    .= Null,
            "mutable-content" .= Null,
            "interruption-level" .= Null,
            "content-changed" .= Null,
            "alert"    .= object [ "body"  .= String "hello world" ]
          ]

  describe "JsonAps" $
    context "JSON encoder" $ do
      it "encodes normally when there are no supplemental fields" $
        toJSON (newMessage (alertMessage "hello" "world" Nothing)) `shouldBe` object [
          "aps"                .= alertMessage "hello" "world" Nothing,
          "appspecificcontent" .= Null,
          "data" .= object []
        ]

      it "encodes supplemental fields" $ do
        let msg = newMessage (alertMessage "hello" "world" Nothing)
                  & addSupplementalField "foo" ("bar" :: String)
                  & addSupplementalField "aaa" ("qux" :: String)

        toJSON msg `shouldBe` object [
            "aps"                .= alertMessage "hello" "world" Nothing,
            "appspecificcontent" .= Null,
            "data"               .= object ["aaa" .= String "qux", "foo" .= String "bar"]
          ]

  describe "ApnFatalError" $
    context "JSON decoder" $ do
      it "decodes the error correctly" $
        eitherDecode "\"BadCollapseId\"" `shouldBe` Right ApnFatalErrorBadCollapseId

      it "dumps unknown error types into a wildcard result" $
        eitherDecode "\"BadcollapseId\"" `shouldBe` Right (ApnFatalErrorOther "BadcollapseId")

  describe "ApnTemporaryError" $
    context "JSON decoder" $
      it "decodes the error correctly" $
        eitherDecode "\"TooManyProviderTokenUpdates\"" `shouldBe` Right ApnTemporaryErrorTooManyProviderTokenUpdates

  describe "Widget notifications" $
    context "JSON encoder" $ do
      it "encodes widget message with content-changed flag" $
        let (JsonAps widgetMsg _ _) = newWidgetMessage
        in toJSON widgetMsg `shouldBe`
          object [
            "category" .= Null,
            "sound"    .= Null,
            "badge"    .= Null,
            "mutable-content" .= Null,
            "interruption-level" .= Null,
            "content-changed" .= Bool True,
            "alert"    .= Null
          ]
      
      it "encodes complete widget message" $
        toJSON newWidgetMessage `shouldBe` object [
          "aps" .= object [
            "category" .= Null,
            "sound"    .= Null,
            "badge"    .= Null,
            "mutable-content" .= Null,
            "interruption-level" .= Null,
            "content-changed" .= Bool True,
            "alert"    .= Null
          ],
          "appspecificcontent" .= Null,
          "data" .= object []
        ]

  describe "ApnPushType" $ do
    context "JSON encoder" $ do
      it "encodes alert push type" $
        toJSON ApnPushTypeAlert `shouldBe` String "alert"
      it "encodes background push type" $
        toJSON ApnPushTypeBackground `shouldBe` String "background"
      it "encodes widgets push type" $
        toJSON ApnPushTypeWidgets `shouldBe` String "widgets"
    context "JSON decoder" $ do
      it "decodes alert push type" $
        eitherDecode "\"alert\"" `shouldBe` Right ApnPushTypeAlert
      it "decodes background push type" $
        eitherDecode "\"background\"" `shouldBe` Right ApnPushTypeBackground
      it "decodes widgets push type" $
        eitherDecode "\"widgets\"" `shouldBe` Right ApnPushTypeWidgets
  where
    (&) = flip ($)