diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-12 23:36:33 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-12 23:36:33 +0200 |
| commit | cbc85b215c398d0475d8347ce4d37bfb4d37d883 (patch) | |
| tree | 39ed474215e3fd24b28e4b7f78656a913242d1ef /test-suite/success/LtacDeprecation.v | |
| parent | e99a1fa8d225496e2a5f74d1247a99a07dba4597 (diff) | |
| parent | 6016a980fa2ed33ff9bc49e6000436fe1ce6e260 (diff) | |
Merge PR #7907: Tactic deprecation machinery
Diffstat (limited to 'test-suite/success/LtacDeprecation.v')
| -rw-r--r-- | test-suite/success/LtacDeprecation.v | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/test-suite/success/LtacDeprecation.v b/test-suite/success/LtacDeprecation.v new file mode 100644 index 000000000..633a5e474 --- /dev/null +++ b/test-suite/success/LtacDeprecation.v @@ -0,0 +1,32 @@ +Set Warnings "+deprecated". + +#[deprecated(since = "8.8", note = "Use idtac instead")] +Ltac foo x := idtac. + +Goal True. +Fail (foo true). +Abort. + +Fail Ltac bar := foo. +Fail Tactic Notation "bar" := foo. + +#[deprecated(since = "8.8", note = "Use idtac instead")] +Tactic Notation "bar" := idtac. + +Goal True. +Fail bar. +Abort. + +Fail Ltac zar := bar. + +Set Warnings "-deprecated". + +Ltac zar := foo. +Ltac zarzar := bar. + +Set Warnings "+deprecated". + +Goal True. +zar x. +zarzar. +Abort. |