1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
module Minilang.REPLSpec where
import Control.Exception (bracket)
import Data.Text.IO
import Minilang.Lambda.Eval (Term (Var))
import Minilang.REPL
import Minilang.REPL.Purer
import Minilang.REPL.Types
import System.Directory (getTemporaryDirectory, removeFile)
import System.FilePath ((<.>), (</>))
import System.IO (IOMode (..), hClose, withFile)
import System.Posix.Temp (mkstemp)
import Test.Hspec
import Prelude hiding (lines, readFile, writeFile)
spec :: Spec
spec = parallel $
describe "MiniLang REPL" $ do
it "evaluates MiniLang terms read from pure Monad" $ do
let out =
withInput
[ "rec Nat : U = Sum (zero | succ Nat);",
"id : Π A : U . Π _ : A . A = λ A . λ x . x;",
"id Nat (succ (succ (succ zero)))"
]
out
`shouldBe` [ "Bye!",
"$succ $succ $succ $zero : Sum(zero| succ Nat)",
"defined id : Π A : U . A → A",
"defined Nat : U"
]
it "shows error when trying to load a non-existent file" $ do
withInput [":load foo"]
`shouldBe` [ "Bye!",
"REPLError \"cannot load file foo in Pure interpreter\""
]
around withTempFile $
it "evaluates single MiniLang term read from IO" $ \fileName -> do
let outputFileName = fileName <> ".out"
writeFile fileName "rec Nat : U = Sum (zero | succ Nat);\nid : Π A : U . Π _ : A . A = λ A . λ x . x;\nid Nat (succ (succ (succ zero)))"
_ <- withFile fileName ReadMode $ \hin ->
withFile outputFileName AppendMode $ \hout ->
withHandles hin hout
out <- readFile outputFileName
out
`shouldBe` "\955\928> defined Nat : U\n\955\928> defined id : \928 A : U . A \8594 A\n\955\928> succ succ succ zero : Sum(zero| succ Nat)\n\955\928> Bye!\n"
describe "Purer REPL" $ do
it "keeps handling Inputs even when they fail" $ do
let inputs =
[ In "Unit : U",
In "Unit : U = Sum(tt)",
Com DumpEnv
]
env (purerREPL (withInputs initialREPL inputs))
`shouldBe` [("Unit", Var "x")]
outputs (withInputs initialREPL inputs)
`shouldContain` [Msg "cannot find \"Unit\" in empty context"]
withTempFile :: (String -> IO ()) -> IO ()
withTempFile =
bracket mkTempFile rmTempFile
where
mkTempFile = getTemporaryDirectory >>= \dir -> mkstemp (dir </> "test-repl") >>= \(fp, h) -> hClose h >> pure fp
rmTempFile fn = removeFile fn >> removeFile (fn <.> "out")
|
