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

chore: delete disabled new-compiler tests that are no longer very useful (#8873)

Browse source
This commit is contained in:
Cameron Zwarich 2025-06-18 14:18:58 -07:00 • committed by GitHub
parent e74d3a2f1c
commit bec538cc57
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
3 changed files with 0 additions and 134 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
tests/lean/new-compiler/CompilerConstantFold.lean
View file

@ -1,13 +0,0 @@
set_option trace.Compiler.result true in
def mulDivShift (a : Nat) (b : UInt8) (c : UInt16) (d : UInt32) (e : UInt64) : Nat :=
let a1 := a / 32
let a2 := a * 32
let b1 := b / 32
let b2 := b * 32
let c1 := c / 32
let c2 := c * 32
let d1 := d / 32
let d2 := d * 32
let e1 := e / 32
let e2 := e * 32
a1 + a2 + b1.val.val + b2.val.val + c1.val.val + c2.val.val + d1.val.val + d2.val.val + e1.val.val + e2.val.val

35
tests/lean/new-compiler/CompilerConstantFold.lean.expected.out
View file

@ -1,35 +0,0 @@
[Compiler.result] size: 32
def mulDivShift a b c d e : Nat :=
let _x.1 := 5;
let a1 := Nat.shiftRight a _x.1;
let a2 := Nat.shiftLeft a _x.1;
let _x.2 := UInt8.ofNat _x.1;
let b1 := UInt8.shiftRight b _x.2;
let b2 := UInt8.shiftLeft b _x.2;
let _x.3 := UInt16.ofNat _x.1;
let c1 := UInt16.shiftRight c _x.3;
let c2 := UInt16.shiftLeft c _x.3;
let _x.4 := UInt32.ofNat _x.1;
let d1 := UInt32.shiftRight d _x.4;
let d2 := UInt32.shiftLeft d _x.4;
let _x.5 := UInt64.ofNat _x.1;
let e1 := UInt64.shiftRight e _x.5;
let e2 := UInt64.shiftLeft e _x.5;
let _x.6 := Nat.add a1 a2;
let _x.7 := UInt8.val b1;
let _x.8 := Nat.add _x.6 _x.7;
let _x.9 := UInt8.val b2;
let _x.10 := Nat.add _x.8 _x.9;
let _x.11 := UInt16.val c1;
let _x.12 := Nat.add _x.10 _x.11;
let _x.13 := UInt16.val c2;
let _x.14 := Nat.add _x.12 _x.13;
let _x.15 := UInt32.val d1;
let _x.16 := Nat.add _x.14 _x.15;
let _x.17 := UInt32.val d2;
let _x.18 := Nat.add _x.16 _x.17;
let _x.19 := UInt64.val e1;
let _x.20 := Nat.add _x.18 _x.19;
let _x.21 := UInt64.val e2;
let _x.22 := Nat.add _x.20 _x.21;
return _x.22

86
tests/lean/new-compiler/unhygienicCode.lean.expected.out
View file

@ -1,86 +0,0 @@
[result]
def foo._closed_1 : obj :=
let x_1 : obj := ctor_0[Lean.Syntax.missing];
let x_2 : u8 := 0;
let x_3 : obj := Lean.SourceInfo.fromRef x_1 x_2;
ret x_3
def foo._closed_2 : obj :=
let x_1 : obj := "UnhygienicMain";
ret x_1
def foo._closed_3 : obj :=
let x_1 : obj := ctor_0[Lean.Name.anonymous._impl];
let x_2 : obj := foo._closed_2;
let x_3 : obj := Lean.Name.str._override x_1 x_2;
ret x_3
def foo._closed_4 : obj :=
let x_1 : obj := "term_+_";
ret x_1
def foo._closed_5 : obj :=
let x_1 : obj := ctor_0[Lean.Name.anonymous._impl];
let x_2 : obj := foo._closed_4;
let x_3 : obj := Lean.Name.str._override x_1 x_2;
ret x_3
def foo._closed_6 : obj :=
let x_1 : obj := "a";
ret x_1
def foo._closed_7 : obj :=
let x_1 : obj := foo._closed_6;
let x_2 : obj := String.toSubstring' x_1;
ret x_2
def foo._closed_8 : obj :=
let x_1 : obj := ctor_0[Lean.Name.anonymous._impl];
let x_2 : obj := foo._closed_6;
let x_3 : obj := Lean.Name.str._override x_1 x_2;
ret x_3
def foo._closed_9 : obj :=
let x_1 : obj := foo._closed_3;
let x_2 : obj := foo._closed_8;
let x_3 : obj := Lean.firstFrontendMacroScope;
let x_4 : obj := Lean.addMacroScope x_1 x_2 x_3;
ret x_4
def foo._closed_10 : obj :=
let x_1 : obj := ctor_0[List.nil];
let x_2 : obj := foo._closed_1;
let x_3 : obj := foo._closed_7;
let x_4 : obj := foo._closed_9;
let x_5 : obj := ctor_3[Lean.Syntax.ident] x_2 x_3 x_4 x_1;
ret x_5
def foo._closed_11 : obj :=
let x_1 : obj := "+";
ret x_1
def foo._closed_12 : obj :=
let x_1 : obj := foo._closed_1;
let x_2 : obj := foo._closed_11;
let x_3 : obj := ctor_2[Lean.Syntax.atom] x_1 x_2;
ret x_3
def foo (x_1 : obj) : obj :=
let x_2 : obj := Nat.repr x_1;
let x_3 : obj := ctor_2[Lean.SourceInfo.none];
let x_4 : obj := Lean.Syntax.mkNumLit x_2 x_3;
let x_5 : obj := foo._closed_1;
let x_6 : obj := foo._closed_5;
let x_7 : obj := foo._closed_10;
let x_8 : obj := foo._closed_12;
let x_9 : obj := Lean.Syntax.node3 x_5 x_6 x_7 x_8 x_4;
ret x_9[Compiler.result] size: 18
def foo n : Syntax :=
let _x.1 := Syntax.missing;
let _x.2 := 1;
let _x.3 := false;
let _x.4 := SourceInfo.fromRef _x.1 _x.3;
let _x.5 := "UnhygienicMain";
let _x.6 := Name.mkStr1 _x.5;
let _x.7 := "term_+_";
let _x.8 := Name.mkStr1 _x.7;
let _x.9 := "a";
let _x.10 := String.toSubstring' _x.9;
let _x.11 := Name.mkStr1 _x.9;
let _x.12 := addMacroScope _x.6 _x.11 _x.2;
let _x.13 := [] _;
let _x.14 := Syntax.ident _x.4 _x.10 _x.12 _x.13;
let _x.15 := "+";
let _x.16 := Syntax.atom _x.4 _x.15;
let _x.17 := Lean.instQuoteNatNumLitKind._elam_0 n;
let _x.18 := Syntax.node3 _x.4 _x.8 _x.14 _x.16 _x.17;
return _x.18