diff options
| author | Gaëtan Gilbert | 2019-10-29 23:55:31 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-10-29 23:55:31 +0100 |
| commit | 99ed41bf8d6d72fc4d5a13d231663bbf48e9ec25 (patch) | |
| tree | 44f6c91dd445aededf68a0567de7836c7a44a906 /test-suite/output | |
| parent | e9dddcb2b5297f2e601a2e2d65a131ee5fde19e4 (diff) | |
| parent | b213691875112530a8d491caff942a761c6508ea (diff) | |
Merge PR #10966: `assert_succeeds`&`assert_fails`: multisuccess fix
Reviewed-by: SkySkimmer
Reviewed-by: Zimmi48
Diffstat (limited to 'test-suite/output')
| -rw-r--r-- | test-suite/output/Tactics.out | 1 | ||||
| -rw-r--r-- | test-suite/output/Tactics.v | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/output/Tactics.out b/test-suite/output/Tactics.out index 19c9fc4423..70427220ed 100644 --- a/test-suite/output/Tactics.out +++ b/test-suite/output/Tactics.out @@ -6,3 +6,4 @@ The command has indeed failed with message: H is already used. The command has indeed failed with message: H is already used. +a diff --git a/test-suite/output/Tactics.v b/test-suite/output/Tactics.v index fa12f09a46..96b6d652c9 100644 --- a/test-suite/output/Tactics.v +++ b/test-suite/output/Tactics.v @@ -22,3 +22,11 @@ intros H. Fail intros [H%myid ?]. Fail destruct 1 as [H%myid ?]. Abort. + + +(* Test that assert_succeeds only runs a tactic once *) +Ltac should_not_loop := idtac + should_not_loop. +Goal True. + assert_succeeds should_not_loop. + assert_succeeds (idtac "a" + idtac "b"). (* should only output "a" *) +Abort. |