michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

test(emacs/lean-info-test): add test cases for goal visualization

Browse source 
[skip ci]
This commit is contained in:
Soonho Kong 2014-10-29 17:08:12 -07:00
parent 6973d3e7aa
commit 5ad312f6ce
1 changed files with 155 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

115
src/emacs/test/lean-info-test.el
View file

@ -246,7 +246,120 @@
"⊢ and b c")))
'(("a : Prop," "b : Prop," "c : Prop," "H_1 : a," "H_2 : b," "H_3 : c" "⊢ a")
("a : Prop," "b : Prop," "c : Prop," "H_1 : a," "H_2 : b," "H_3 : c" "⊢ and b c")))))
("a : Prop," "b : Prop," "c : Prop," "H_1 : a," "H_2 : b," "H_3 : c" "⊢ and b c"))))
(should (equal (lean-info-proofstate-extract-conclusion
'("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ b ∧ c"
"..."))
'("⊢ b ∧ c" "...")))
(should (equal (lean-info-proofstate-extract-premises
'("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ b ∧ c"
"..."))
'("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c")))
(should (equal (lean-info-proofstate-states-str
(lean-info-proofstate-parse
'("-- PROOF_STATE|6|17"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a"
"--"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ and b c"))
'show-all)
(string-join '("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a"
""
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ and b c") "\n")))
(should (equal (lean-info-proofstate-states-str
(lean-info-proofstate-parse
'("-- PROOF_STATE|6|17"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a"
"--"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ and b c"))
'show-first)
(string-join '("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a") "\n")))
(should (equal (lean-info-proofstate-states-str
(lean-info-proofstate-parse
'("-- PROOF_STATE|6|17"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a"
"--"
"a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ and b c"))
'show-first-and-other-conclusions)
(string-join '("a : Prop,"
"b : Prop,"
"c : Prop,"
"H_1 : a,"
"H_2 : b,"
"H_3 : c"
"⊢ a"
""
"⊢ and b c") "\n"))))
(ert-deftest lean-test-info-pos ()
"Test lean-info-pos"