From c59815c860a11948359e96ecc51d566bb5e5d8fb Mon Sep 17 00:00:00 2001
From: Jason Gross
Date: Fri, 25 Oct 2019 15:28:37 -0400
Subject: `assert_succeeds`&`assert_fails`: multisuccess fix

These tactics now work correctly with multisuccess tactics by wrapping
the tactic argument in `once`.

Fixes #10965
---
 test-suite/output/Tactics.out | 1 +
 test-suite/output/Tactics.v   | 8 ++++++++
 2 files changed, 9 insertions(+)

(limited to 'test-suite/output')

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.
-- 
cgit v1.2.3