31 lines
863 B
Haskell
31 lines
863 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
{-# 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.Datalog.NaiveDatabaseSpec where
|
||
|
|
|
||
|
|
import Test.Hspec
|
||
|
|
import Datalog.NaiveDatabase
|
||
|
|
|
||
|
|
-- checkParse :: String -> Expr -> Expectation
|
||
|
|
-- checkParse text expectedExpr =
|
||
|
|
-- parse parseExpr "" text `shouldBe` Right expectedExpr
|
||
|
|
|
||
|
|
-- checkEval :: String -> Int -> Expectation
|
||
|
|
-- checkEval text expectedVal =
|
||
|
|
-- fmap eval (parse parseExpr "" text) `shouldBe` Right expectedVal
|
||
|
|
|
||
|
|
|
||
|
|
spec :: Spec
|
||
|
|
spec = do
|
||
|
|
describe "dummy test" $ do
|
||
|
|
it "..." $ do
|
||
|
|
1 `shouldBe` (1 :: Int)
|