27 lines
754 B
Haskell
27 lines
754 B
Haskell
{-# 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
|
|
|
|
|