Add a test case for bug 3251

It was closed in 5b39c3535f7b3383d89d7b844537244a4e7c0eca.

1 files changed, 11 insertions, 0 deletions

diff --git a/test-suite/bugs/closed/3251.v b/test-suite/bugs/closed/3251.v
new file mode 100644
index 0000000000..cce5647ca9
--- /dev/null
+++ b/test-suite/bugs/closed/3251.v
@@ -0,0 +1,11 @@
+Goal True.
+Ltac foo := idtac.
+(* print out happens twice:
+foo is defined
+foo is defined
+
+... that's fishy.  But E. Tassi tells me that it's correct, because it happens on two threads. *)
+Back 1.
+Ltac foo := idtac.
+(* Before 5b39c3535f7b3383d89d7b844537244a4e7c0eca, this would print out: *)
+(* Anomaly: Backtrack.backto to a state with no vcs_backup. Please report. *)