aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorThéo Zimmermann2019-05-25 18:05:29 +0200
committerThéo Zimmermann2019-05-25 18:05:29 +0200
commit9241a6e25ff132a27762963b06ae1095c783c25f (patch)
treedb5d944a60f3d211191f10d3caa3b716af80d6ee /test-suite
parent5727443376480be4793757fd5507621ad4f09509 (diff)
parent71110a218f69a69010adde2f296e4022ef94b755 (diff)
Merge PR #9288: Giving preference to syntax "injection ... as [= pat1 ... patn]".
Reviewed-by: Zimmi48
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/output/injection.out4
-rw-r--r--test-suite/output/injection.v8
2 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/output/injection.out b/test-suite/output/injection.out
new file mode 100644
index 0000000000..ff40a478f3
--- /dev/null
+++ b/test-suite/output/injection.out
@@ -0,0 +1,4 @@
+The command has indeed failed with message:
+Unexpected pattern.
+The command has indeed failed with message:
+Unexpected injection pattern.
diff --git a/test-suite/output/injection.v b/test-suite/output/injection.v
new file mode 100644
index 0000000000..bfd5a67bf5
--- /dev/null
+++ b/test-suite/output/injection.v
@@ -0,0 +1,8 @@
+(* Test error messages *)
+
+Goal forall x, (x,0) = (0, S x) -> x = 0.
+Fail intros x H; injection H as [= H'] H''.
+Fail intros x H; injection H as H' [= H''].
+intros x H; injection H as [= H' H''].
+exact H'.
+Qed.