From 54083a2a8e6c4c2083717ac18c7b4dc351ab0f7d Mon Sep 17 00:00:00 2001
From: Théo Zimmermann
Date: Mon, 15 Jan 2018 13:17:14 +0100
Subject: Add test-suite file for bracket with goal selector.

---
 test-suite/success/BracketsWithGoalSelector.v | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 test-suite/success/BracketsWithGoalSelector.v

(limited to 'test-suite')

diff --git a/test-suite/success/BracketsWithGoalSelector.v b/test-suite/success/BracketsWithGoalSelector.v
new file mode 100644
index 0000000000..dd032767ca
--- /dev/null
+++ b/test-suite/success/BracketsWithGoalSelector.v
@@ -0,0 +1,10 @@
+Goal forall A B, B \/ A -> A \/ B.
+Proof.
+  intros * [HB | HA].
+  2: {
+    left.
+    exact HA.
+  }
+  right.
+  exact HB.
+Qed.
-- 
cgit v1.2.3


From 1856d60057ac9096c791d71d4282c0cdfef85913 Mon Sep 17 00:00:00 2001
From: Théo Zimmermann
Date: Mon, 15 Jan 2018 13:54:01 +0100
Subject: More tests on brackets with goal selectors (including failures).

---
 test-suite/success/BracketsWithGoalSelector.v | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'test-suite')

diff --git a/test-suite/success/BracketsWithGoalSelector.v b/test-suite/success/BracketsWithGoalSelector.v
index dd032767ca..ed035f5213 100644
--- a/test-suite/success/BracketsWithGoalSelector.v
+++ b/test-suite/success/BracketsWithGoalSelector.v
@@ -4,7 +4,13 @@ Proof.
   2: {
     left.
     exact HA.
+    Fail right. (* No such goal. Try unfocusing with "}". *)
+  }
+  Fail 2: { (* Non-existent goal. *)
+    idtac. (* The idtac is to get a dot, so that IDEs know to stop there. *)
+  1:{ (* Syntactic test: no space before bracket. *)
+    right.
+    exact HB.
+Fail Qed.
   }
-  right.
-  exact HB.
 Qed.
-- 
cgit v1.2.3