ClientSdkInfoSpec.hs

{-# LANGUAGE QuasiQuotes #-}

module Patrol.Type.ClientSdkInfoSpec where

import qualified Data.Aeson as Aeson
import qualified Data.Aeson.QQ.Simple as Aeson
import qualified Data.Text as Text
import qualified Patrol.Type.ClientSdkInfo as ClientSdkInfo
import qualified Patrol.Type.ClientSdkPackage as ClientSdkPackage
import qualified Test.Hspec as Hspec

spec :: Hspec.Spec
spec = Hspec.describe "Patrol.Type.ClientSdkInfo" $ do
  Hspec.describe "ToJSON" $ do
    Hspec.it "works" $ do
      let clientSdkInfo = ClientSdkInfo.empty
          json = [Aeson.aesonQQ| {} |]
      Aeson.toJSON clientSdkInfo `Hspec.shouldBe` json

    Hspec.it "works with an integration" $ do
      let clientSdkInfo = ClientSdkInfo.empty {ClientSdkInfo.integrations = [Text.pack "example-integration"]}
          json = [Aeson.aesonQQ| { "integrations": [ "example-integration" ] } |]
      Aeson.toJSON clientSdkInfo `Hspec.shouldBe` json

    Hspec.it "works with a name" $ do
      let clientSdkInfo = ClientSdkInfo.empty {ClientSdkInfo.name = Text.pack "example-name"}
          json = [Aeson.aesonQQ| { "name": "example-name" } |]
      Aeson.toJSON clientSdkInfo `Hspec.shouldBe` json

    Hspec.it "works with a package" $ do
      let clientSdkPackage = ClientSdkPackage.empty {ClientSdkPackage.name = Text.pack "example-name"}
          clientSdkInfo = ClientSdkInfo.empty {ClientSdkInfo.packages = [clientSdkPackage]}
          json = [Aeson.aesonQQ| { "packages": [ { "name": "example-name" } ] } |]
      Aeson.toJSON clientSdkInfo `Hspec.shouldBe` json

    Hspec.it "works with a version" $ do
      let clientSdkInfo = ClientSdkInfo.empty {ClientSdkInfo.version = Text.pack "example-version"}
          json = [Aeson.aesonQQ| { "version": "example-version" } |]
      Aeson.toJSON clientSdkInfo `Hspec.shouldBe` json