QuerySpec.hs

{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE OverloadedStrings     #-}
{-# LANGUAGE QuasiQuotes           #-}

module HaskellWorks.CabalCache.QuerySpec
  ( spec,
  ) where

import HaskellWorks.Hspec.Hedgehog
import Hedgehog
import Test.Hspec
import Text.RawString.QQ

import qualified Data.Aeson                    as A
import qualified Data.ByteString.Lazy          as LBS
import qualified HaskellWorks.CabalCache.Types as Z

{- HLINT ignore "Redundant do"        -}
{- HLINT ignore "Reduce duplication"  -}
{- HLINT ignore "Redundant bracket"   -}

spec :: Spec
spec = describe "HaskellWorks.Assist.QuerySpec" do
  it "stub" $ requireTest do
    case A.eitherDecode exampleJson of
      Right planJson -> do
        planJson === Z.PlanJson
          { Z.compilerId  = "ghc-8.6.4"
          , Z.installPlan =
            [ Z.Package
              { Z.packageType   = "pre-existing"
              , Z.id            = "Cabal-2.4.0.1"
              , Z.name          = "Cabal"
              , Z.version       = "2.4.0.1"
              , Z.style         = Nothing
              , Z.componentName = Nothing
              , Z.components    = Nothing
              , Z.depends       =
                [ "array-0.5.3.0"
                , "base-4.12.0.0"
                ]
              , Z.exeDepends    = []
              }
            ]
          }
      Left msg -> fail msg

exampleJson :: LBS.ByteString
exampleJson = [r|
{
  "cabal-version": "2.4.1.0",
  "cabal-lib-version": "2.4.1.0",
  "compiler-id": "ghc-8.6.4",
  "os": "osx",
  "arch": "x86_64",
  "install-plan": [
    {
      "type": "pre-existing",
      "id": "Cabal-2.4.0.1",
      "pkg-name": "Cabal",
      "pkg-version": "2.4.0.1",
      "depends": [
        "array-0.5.3.0",
        "base-4.12.0.0"
      ]
    }
  ]
}
|]