Add test for parsing Z^X

import           Data.Complex

import           Control.DeepSeq (NFData)

import           Data.Ratio

import           Data.Functor.Classes

import           Data.Vector (Vector)

import qualified Data.Vector as V

data GroupValued m a = GroupValued a

instance Eq1 (GroupValued m) where

  liftEq f (GroupValued a1) (GroupValued a2) = f a1 a2

deriving instance Show (GroupValued m ())

deriving instance Functor (GroupValued m)

deriving instance Foldable (GroupValued m)

import           Data.Complex

import           Data.Ratio

import           Copar.FunctorExpression.Parser

import           Copar.FunctorDescription

import           Copar.Functors.GroupValued

import           Copar.Coalgebra.Parser

import           Copar.FunctorExpression.Type

spec :: Spec

spec = do

  paseIntSpec

  parseMorphismPointIntSpec

  parseMorphismPointDoubleSpec

  parseMorphismPointComplexSpec

  parseMorphismPointRationalSpec

paseIntSpec :: Spec

paseIntSpec = describe "Int-valued parser" $ do

  it "parses Z^X" $

    parseFunctorExpression [[functorExprParser intValued]] "" "Z^X"

    `shouldParse` (Functor 1 (GroupValued Variable))

parseMorphismPointIntSpec :: Spec

parseMorphismPointIntSpec = describe "parseMorphismPoint (Int)" $ do