pyrites/haskell-experiments/test/Test/SimpleParserSpec.hs

{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# HLINT ignore "Use const" #-}
{-# HLINT ignore "Unused LANGUAGE pragma" #-}
{-# HLINT ignore "Avoid lambda" #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# OPTIONS_GHC -Wno-unrecognised-pragmas #-}
{-# LANGUAGE TypeApplications #-}

module Test.SimpleParserSpec where

import Test.Hspec

import SimpleParser

spec :: Spec
spec = do
  describe "evaluate expressions" $ do
    it "arithmetic on literals" $ do
      eval (Add (Literal 2) (Literal 3) ) `shouldBe` 5
      eval (Subtract (Literal 2) (Literal 3) ) `shouldBe` -1
      eval (Multiply (Literal 2) (Literal 3) ) `shouldBe` 6
      eval (Divide (Literal 7) (Literal 3) ) `shouldBe` 2
      eval (Negate (Literal 7) ) `shouldBe` -7
    it "more complex arithmetic on literals" $ do
      eval (Add (Negate (Literal 1)) (Divide (Literal 7) (Literal 3))) `shouldBe` 1