mirror of
https://github.com/leanprover/lean4.git
synced 2026-03-17 18:34:06 +00:00
a3cb39eac9
This PR migrates most remaining tests to the new test suite. It also completes the migration of directories like `tests/lean/run`, meaning that PRs trying to add tests to those old directories will now fail.
99 lines
2.1 KiB
Lean4
99 lines
2.1 KiB
Lean4
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
|
|
--^ completion
|
|
|
|
example : S where -- All field completions expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
-- All field completions expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
f -- All field completions matching `f` expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
foo -- All field completions matching `foo` expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
foo := -- No completions expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
foo :=
|
|
-- No completions expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
foo := 1
|
|
-- All field completions expected
|
|
--^ completion
|
|
|
|
example : S where
|
|
foo := 1; -- All field completions expected
|
|
--^ completion
|
|
|
|
example : S := { } -- All field completions expected
|
|
--^ completion
|
|
|
|
example : S := {
|
|
-- All field completions expected
|
|
--^ completion
|
|
}
|
|
|
|
example : S := {
|
|
f -- All field completions matching `f` expected
|
|
--^ completion
|
|
}
|
|
|
|
example : S := {
|
|
foo -- All field completions matching `foo` expected
|
|
--^ completion
|
|
}
|
|
|
|
example : S := {
|
|
foo :=
|
|
-- No completions expected
|
|
--^ completion
|
|
}
|
|
|
|
example : S := {
|
|
foo := 1
|
|
-- All field completions expected
|
|
--^ completion
|
|
}
|
|
|
|
example : S :=
|
|
{ foo := 1
|
|
} -- All field completions expected
|
|
--^ completion
|
|
|
|
|
|
example : S := { foo := 1, } -- All field completions expected
|
|
--^ completion
|
|
|
|
example (s : S) : S := { s with } -- All field completions expected
|
|
--^ completion
|
|
|
|
example (s : S) : S := { s with : S } -- All field completions expected
|
|
--^ completion
|
|
|
|
example (s : S) : S := { s with f } -- All field completions matching `f` expected
|
|
--^ completion
|
|
|
|
def aLongUniqueIdentifier := 0
|
|
|
|
example : Std.HashSet Nat := { aLongUniqueIdentifier } -- Identifier completion matching `aLongUniqueIdentifier`
|
|
--^ completion
|