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

chore: fix test

Browse source
This commit is contained in:
Leonardo de Moura 2020-02-15 16:15:37 -08:00
parent 1c8baa0198
commit 8e4f3beff3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -5,5 +5,5 @@ def y := x
@[noinline] def mk (v : Nat) := (v, v+1)
#eval withPtrAddr x (fun a => dbgTrace (">> " ++ toString a) $ fun _ => 0) TrustMe
#eval withPtrEq (fun a b => dbgTrace (">> " ++ toString a ++ " == " ++ toString b) $ fun _ => a == b) TrustMe x y -- should not print message
#eval withPtrEq (fun a b => dbgTrace (">> " ++ toString a ++ " == " ++ toString b) $ fun _ => a == b) TrustMe x (mk 1) -- should print message
#eval withPtrEq x y (fun _ => dbgTrace (">> " ++ toString x ++ " == " ++ toString y) $ fun _ => x == y) TrustMe -- should not print message
#eval withPtrEq x (mk 1) (fun _ => dbgTrace (">> " ++ toString x ++ " == " ++ toString y) $ fun _ => x == y) TrustMe -- should print message