lean4-htt/tests/lean/interactive/completionStructureInstance.lean
Marc Huisinga a38566693b
test: fix brittle structure instance completion test (#6127)
#5835 contains a brittle test that uses an FVar ID, which caused a
failure on master. This PR changes that test to use a declaration
instead.
2024-11-19 10:13:51 +00:00

98 lines
2.4 KiB
Text

import Std.Data.HashSet
structure S' where
foo : Nat
bar : Nat
structure S extends S' where
foobar : Nat
barfoo : Nat
example : S where -- No completions expected
--^ textDocument/completion
example : S where -- All field completions expected
--^ textDocument/completion
example : S where
-- All field completions expected
--^ textDocument/completion
example : S where
f -- All field completions matching `f` expected
--^ textDocument/completion
example : S where
foo -- All field completions matching `foo` expected
--^ textDocument/completion
example : S where
foo := -- No completions expected
--^ textDocument/completion
example : S where
foo :=
-- No completions expected
--^ textDocument/completion
example : S where
foo := 1
-- All field completions expected
--^ textDocument/completion
example : S where
foo := 1; -- All field completions expected
--^ textDocument/completion
example : S := { } -- All field completions expected
--^ textDocument/completion
example : S := {
-- All field completions expected
--^ textDocument/completion
}
example : S := {
f -- All field completions matching `f` expected
--^ textDocument/completion
}
example : S := {
foo -- All field completions matching `foo` expected
--^ textDocument/completion
}
example : S := {
foo :=
-- No completions expected
--^ textDocument/completion
}
example : S := {
foo := 1
-- All field completions expected
--^ textDocument/completion
}
example : S := {
foo := 1
-- All field completions expected
--^ textDocument/completion
}
example : S := { foo := 1, } -- All field completions expected
--^ textDocument/completion
example (s : S) : S := { s with } -- All field completions expected
--^ textDocument/completion
example (s : S) : S := { s with : S } -- All field completions expected
--^ textDocument/completion
example (s : S) : S := { s with f } -- All field completions matching `f` expected
--^ textDocument/completion
def aLongUniqueIdentifier := 0
example : Std.HashSet Nat := { aLongUniqueIdentifier } -- Identifier completion matching `aLongUniqueIdentifier`
--^ textDocument/completion