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

test: for Int.negSucc bug

Browse source
This commit is contained in:
Leonardo de Moura 2021-03-07 13:09:23 -08:00
parent a531fd881e
commit 5ba171d946
2 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tests/lean/intNegSucc.lean Normal file
View file

@ -0,0 +1,16 @@
def Int64Min : Int := -1*(Int.ofNat ((UInt64.size / 2)))
#eval Int.negSucc 9223372036854775807
#reduce Int.negSucc 9223372036854775807
#print "---"
#eval - Int.negSucc 9223372036854775807
#reduce - Int.negSucc 9223372036854775807
#print "---"
#eval Int.negSucc 9223372036854775807 == 0
#reduce Int.negSucc 9223372036854775807 == 0
#print "---"
#eval Int.negSucc 9223372036854775807 == Int64Min
#reduce Int.negSucc 9223372036854775807 == Int64Min
#print "---"
#eval (Int.negSucc 9223372036854775807) + 1 == 1
#reduce (Int.negSucc 9223372036854775807) + 1 == 1

14
tests/lean/intNegSucc.lean.expected.out Normal file
View file

@ -0,0 +1,14 @@
-9223372036854775808
Int.negSucc 9223372036854775807
---
9223372036854775808
Int.ofNat 9223372036854775808
---
false
false
---
true
true
---
false
false