BaseSpec.hs 369 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
module FORecursiveTypes.BaseSpec where

import Prelude hiding (lookup,(*), (**))
import Test.Hspec
import Data.Map

import FORecursiveTypes.Base as B
import FORecursiveTypes.SharedSpecs
import FORecursiveTypes.Language


instance ConvertToBInfer B.Infer where
    convert x = x

main :: IO ()
main = hspec spec

spec :: Spec
19
spec = sharedSpec $ B.inferType Empty Empty