481f6b6d64
This PR fixes an issue where commands that do not support incrementality did not have their elaboration interrupted when a relevant edit is made by the user. As all built-in variants of def/theorem share a common incremental elaborator, this likely had negligible impact on standard Lean files but could affect other use cases heavily relying on custom commands such as Verso.
197 lines
4.9 KiB
Text
197 lines
4.9 KiB
Text
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-!
|
|
Cancellation tests. Use `wait_for_cancel_once` to block the server and send a message to the client
|
|
who should wait for it with `waitFor` and then issue a new document version, which will unblock
|
|
`wait_for_cancel_once`
|
|
-/
|
|
|
|
/-! Changes in a declaration should invalidate elaboration of later declarations. -/
|
|
|
|
example : True := by
|
|
trivial
|
|
--^ waitFor: blocked
|
|
--^ insert: "; skip"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
|
|
theorem t : True := by
|
|
wait_for_cancel_once
|
|
dbg_trace "rerun!"
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a declaration should not invalidate elaboration of previous declarations. -/
|
|
|
|
theorem t1 : True := by
|
|
wait_for_unblock
|
|
trivial
|
|
|
|
example : True := by
|
|
trivial
|
|
--^ waitFor: blocked
|
|
--^ insert: "; unblock"
|
|
--^ collectDiagnostics
|
|
-- (should print "blocked!" exactly once)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a declaration should not invalidate async tasks of previous declarations. -/
|
|
|
|
theorem t1 : True := by
|
|
wait_for_unblock_async
|
|
trivial
|
|
|
|
example : True := by
|
|
trivial
|
|
--^ waitFor: blocked
|
|
--^ insert: "; unblock"
|
|
--^ collectDiagnostics
|
|
-- (should print "blocked!" exactly once)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a tactic should not invalidate async tasks of previous tactics. -/
|
|
|
|
theorem t1 : True := by
|
|
wait_for_unblock_async
|
|
trivial
|
|
--^ waitFor: blocked
|
|
--^ insert: "; unblock"
|
|
--^ collectDiagnostics
|
|
-- (should print "blocked!" exactly once)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a tactic should not invalidate elaboration of previous tactics. -/
|
|
|
|
theorem t1 : True := by
|
|
wait_for_unblock
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; trivial\nexample : True := by unblock; trivial"
|
|
--^ collectDiagnostics
|
|
-- (should print "blocked!" exactly once)
|
|
-- (must put `unblock` in a separate decl so it's not blocked by `wait_for_unblock`)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a tactic *should* invalidate async tasks of subsequent tactics. -/
|
|
|
|
theorem t1 : True := by
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; skip"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
wait_for_cancel_once_async
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a tactic *should* invalidate elaboration of later tactics. -/
|
|
|
|
theorem t1 : True := by
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; skip"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
wait_for_cancel_once
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in the body should not invalidate header async tasks. -/
|
|
|
|
theorem t1 : (by wait_for_unblock_async; exact True) := by
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; unblock"
|
|
--^ collectDiagnostics
|
|
-- (should print "blocked!" exactly once)
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in the header *should* invalidate header async tasks. -/
|
|
|
|
theorem t1 : (by wait_for_cancel_once_async; exact True) := by
|
|
--^ waitFor: blocked
|
|
--^ insert: "'"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in the header *should* invalidate header elaboration. -/
|
|
|
|
theorem t1 : (by wait_for_main_cancel_once_async; exact True) := by
|
|
--^ waitFor: blocked
|
|
--^ insert: "'"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
trivial
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in the body (without incrementality) *should* invalidate body async tasks. -/
|
|
|
|
theorem t1 : True := (by
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; skip"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
wait_for_cancel_once_async
|
|
trivial)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in the body (without incrementality) *should* invalidate body elaboration. -/
|
|
|
|
theorem t1 : True := (by
|
|
skip
|
|
--^ waitFor: blocked
|
|
--^ insert: "; skip"
|
|
--^ collectDiagnostics
|
|
-- (should never print "blocked")
|
|
wait_for_main_cancel_once_async
|
|
trivial)
|
|
|
|
-- RESET
|
|
import Lean.Server.Test.Cancel
|
|
open Lean.Server.Test.Cancel
|
|
|
|
/-! Changes in a command should cancel non-incremental `elab_rules` elaboration. -/
|
|
|
|
wait_for_cancel_once_command 1
|
|
--^ waitFor: blocked
|
|
--^ change: "1" "2"
|
|
--^ collectDiagnostics
|
|
-- (should print "cancelled!" exactly once)
|