36 lines
1.2 KiB
Plaintext
36 lines
1.2 KiB
Plaintext
|
import LSpec
|
|||
|
|
import Lean
|
|||
|
|
import Pantograph.Library
|
|||
|
|
import Test.Common
|
|||
|
|
|
|||
|
|
open Lean
|
|||
|
|
open Pantograph
|
|||
|
|
|
|||
|
|
namespace Pantograph.Test.Library
|
|||
|
|
|
|||
|
|
def test_expr_echo: IO LSpec.TestSeq := do
|
|||
|
|
let env: Environment ← importModules
|
|||
|
|
(imports := #[`Init])
|
|||
|
|
(opts := {})
|
|||
|
|
(trustLevel := 1)
|
|||
|
|
let inner: CoreM LSpec.TestSeq := do
|
|||
|
|
let prop_and_proof := "⟨∀ (x: Prop), x → x, λ (x: Prop) (h: x) => h⟩"
|
|||
|
|
let tests := LSpec.TestSeq.done
|
|||
|
|
let echoResult ← exprEcho prop_and_proof (options := {})
|
|||
|
|
let tests := tests.append (LSpec.test "fail" (echoResult.toOption == .some {
|
|||
|
|
type := { pp? := "?m.2" }, expr := { pp? := "?m.3" }
|
|||
|
|
}))
|
|||
|
|
let echoResult ← exprEcho prop_and_proof (expectedType? := .some "Σ' p:Prop, p") (options := {})
|
|||
|
|
let tests := tests.append (LSpec.test "fail" (echoResult.toOption == .some {
|
|||
|
|
type := { pp? := "(p : Prop) ×' p" }, expr := { pp? := "⟨∀ (x : Prop), x → x, fun x h => h⟩" }
|
|||
|
|
}))
|
|||
|
|
return tests
|
|||
|
|
runCoreMSeq env (options := #["pp.proofs.threshold=100"]) inner
|
|||
|
|
|
|||
|
|
def suite: IO LSpec.TestSeq := do
|
|||
|
|
|
|||
|
|
return LSpec.group "Library" $
|
|||
|
|
(LSpec.group "ExprEcho" (← test_expr_echo))
|
|||
|
|
|
|||
|
|
end Pantograph.Test.Library
|