max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: fix tests

Browse source
This commit is contained in:
Leonardo de Moura 2020-11-11 10:19:14 -08:00
parent 5490235447
commit ab2ee0390d
5 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/lean/mvar3.lean
View file

@ -86,7 +86,7 @@ def mctx6 := R2.1
#print "assigning ?m1 and ?n.1"
def R3 :=
let mctx := mctx6.assignExpr `m3 x;
let mctx := mctx.assignExpr (mkNameNum `n 1) (mkLambda `_ bi typeE natE);
let mctx := mctx.assignExpr (Name.mkNum `n 1) (mkLambda `_ bi typeE natE);
-- ?n.2 is instantiated because we have the delayed assignment `?n.2 α x := ?m1`
(mctx.instantiateMVars e2)
def e3 := R3.1

16
tests/lean/namelit.lean.expected.out
View file

@ -1,8 +1,8 @@
Lean.mkNameStr Lean.Name.anonymous "foo" : Lean.Name
Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "foo") "bla" : Lean.Name
Lean.mkNameStr Lean.Name.anonymous "foo bla" : Lean.Name
Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "foo bla") "hello world" : Lean.Name
Lean.mkNameStr (Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "foo bla") "boo") "hello world" : Lean.Name
Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "foo") "hello" : Lean.Name
Lean.mkNameStr Lean.Name.anonymous "hello" : Lean.Name
Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "hello") "world !!!" : Lean.Name
Lean.Name.mkStr Lean.Name.anonymous "foo" : Lean.Name
Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "foo") "bla" : Lean.Name
Lean.Name.mkStr Lean.Name.anonymous "foo bla" : Lean.Name
Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "foo bla") "hello world" : Lean.Name
Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "foo bla") "boo") "hello world" : Lean.Name
Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "foo") "hello" : Lean.Name
Lean.Name.mkStr Lean.Name.anonymous "hello" : Lean.Name
Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "hello") "world !!!" : Lean.Name

4
tests/lean/run/constantCompilerBug.lean
View file

@ -6,9 +6,9 @@ open Lean
open Lean.Parser
def regBlaParserAttribute : IO Unit :=
registerBuiltinDynamicParserAttribute (mkNameSimple "blaParser") (mkNameSimple "bla")
registerBuiltinDynamicParserAttribute (Name.mkSimple "blaParser") (Name.mkSimple "bla")
@[inline] def parser : Parser :=
categoryParser (mkNameSimple "bla") 0
categoryParser (Name.mkSimple "bla") 0
#check @parser

4
tests/lean/run/unif_issue.lean
View file

@ -8,7 +8,7 @@ open Lean
let rhs_0 : _ := fun (a : Lean.Syntax) (b : Lean.Syntax) => pure Syntax.missing;
let rhs_1 : _ := fun (_a : _) => pure Lean.Syntax.missing;
let discr_2 : _ := a;
ite (Lean.Syntax.isOfKind discr_2 (Lean.mkNameStr (Lean.mkNameStr (Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
ite (Lean.Syntax.isOfKind discr_2 (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
(let discr_3 : _ := Lean.Syntax.getArg discr_2 0;
let discr_4 : _ := Lean.Syntax.getArg discr_2 1;
let discr_5 : _ := Lean.Syntax.getArg discr_2 2;
@ -27,7 +27,7 @@ open Lean
let rhs_0 : _ := fun (a : Lean.Syntax) (b : Lean.Syntax) => pure Syntax.missing;
let rhs_1 : _ := fun (_a : _) => pure Lean.Syntax.missing;
let discr_2 : _ := a;
ite (Lean.Syntax.isOfKind discr_2 (Lean.mkNameStr (Lean.mkNameStr (Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
ite (Lean.Syntax.isOfKind discr_2 (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "Lean") "Parser") "Term") "add"))
(let discr_3 : _ := Lean.Syntax.getArg discr_2 0;
let discr_4 : _ := Lean.Syntax.getArg discr_2 1;
let discr_5 : _ := Lean.Syntax.getArg discr_2 2;

4
tests/lean/syntaxInNamespacesAndPP.lean.expected.out
View file

@ -19,6 +19,6 @@ bla true
[Elab.app.finalize] after etaArgs, true : Bool
[Elab.command] end
def Bla.bla : Lean.ParserDescr :=
Lean.ParserDescr.node (Lean.mkNameStr (Lean.mkNameStr Lean.Name.anonymous "Bla") "bla") 1023
Lean.ParserDescr.node (Lean.Name.mkStr (Lean.Name.mkStr Lean.Name.anonymous "Bla") "bla") 1023
(Lean.ParserDescr.andthen (Lean.ParserDescr.symbol "bla")
(Lean.ParserDescr.cat (Lean.mkNameStr Lean.Name.anonymous "term") 0))
(Lean.ParserDescr.cat (Lean.Name.mkStr Lean.Name.anonymous "term") 0))