FirstParameterSpec.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}

module Language.Fortran.Util.FirstParameterSpec(spec) where

import Test.Hspec

import GHC.Generics (Generic(..))

import Language.Fortran.Util.FirstParameter

data A = A Int deriving (Generic, Eq, Show)
data B = B Char Char Int Char deriving (Generic, Eq, Show)
data C = CA ([Int]) Char | CB ([Int]) Int deriving (Generic, Eq, Show)
data D = DA () | DB () | DC () | DD () | DE () deriving (Generic, Eq, Show)

instance FirstParameter A Int
instance FirstParameter B Char
instance FirstParameter C ([Int])
instance FirstParameter D ()

spec :: Spec
spec = 
  describe "First parameter accessor type class" $ do
    describe "data A" $ do
      it "retrieves first parameter from 'A 42'" $ do
        getFirstParameter (A 42) `shouldBe` 42

      it "sets first parameter in 'A 42' to 24" $ do
        setFirstParameter 24 (A 42) `shouldBe` A 24

    describe "data B" $ do
      it "retrieves first parameter from \"B 'x' 'y' 42 'z'\"" $ do
        getFirstParameter (B 'x' 'y' 42 'z') `shouldBe` 'x'

      it "sets first parameter in \"B 'x' 'y' 42 'z'\" to 'm'" $ do
        setFirstParameter 'm' (B 'x' 'y' 42 'z') `shouldBe` (B 'm' 'y' 42 'z')

    describe "data C" $ do
      it "retrieves first parameter from 'CA [1,2,3] 'a''" $ do 
        getFirstParameter (CA [1,2,3] 'a') `shouldBe` [1,2,3]

      it "retrieves first parameter from \"CB [1,2,3] 'a'\"" $ do 
        getFirstParameter (CB [] 42) `shouldBe` []

      it "sets first parameter in \"CB [1,2,3] 'a'\" to '[]'" $ do
        setFirstParameter [] (CA [1,2,3] 'a') `shouldBe` (CA [] 'a')

    describe "data D" $ do
      it "retrieves first parameter from 'DB ()" $ do 
        getFirstParameter (DB ()) `shouldBe` ()

      it "retrieves first parameter from 'DD ()" $ do 
        getFirstParameter (DD ()) `shouldBe` ()

      it "retrieves first parameter from 'DE ()" $ do 
        getFirstParameter (DE ()) `shouldBe` ()