From 5e3244f3ca1d4382d259c43ca0f557001267fd9c Mon Sep 17 00:00:00 2001
From: Vincent Laporte
Date: Mon, 8 Oct 2018 13:43:35 +0000
Subject: [test-suite] ensure file names are valid module names

---
 test-suite/bugs/closed/8553.v     | 7 -------
 test-suite/bugs/closed/8672.v     | 5 -----
 test-suite/bugs/closed/bug_8553.v | 7 +++++++
 test-suite/bugs/closed/bug_8672.v | 5 +++++
 4 files changed, 12 insertions(+), 12 deletions(-)
 delete mode 100644 test-suite/bugs/closed/8553.v
 delete mode 100644 test-suite/bugs/closed/8672.v
 create mode 100644 test-suite/bugs/closed/bug_8553.v
 create mode 100644 test-suite/bugs/closed/bug_8672.v

diff --git a/test-suite/bugs/closed/8553.v b/test-suite/bugs/closed/8553.v
deleted file mode 100644
index 4a1afabe89..0000000000
--- a/test-suite/bugs/closed/8553.v
+++ /dev/null
@@ -1,7 +0,0 @@
-(* Using tactic "change" under binders *)
-
-Definition add2 n := n +2.
-Goal (fun n => n) = (fun n => n+2).
-change (?n + 2) with (add2 n).
-match goal with |- _ = (fun n => add2 n) => idtac end. (* To test the presence of add2 *)
-Abort.
diff --git a/test-suite/bugs/closed/8672.v b/test-suite/bugs/closed/8672.v
deleted file mode 100644
index 66cd6dfa8c..0000000000
--- a/test-suite/bugs/closed/8672.v
+++ /dev/null
@@ -1,5 +0,0 @@
-(* Was generating a dangling "pat" variable at some time *)
-
-Notation "'plet' x := e 'in' t" :=
-  ((fun H => let x := id H in t) e) (at level 0, x pattern).
-Definition bla := plet (pair x y) := pair 1 2 in x.
diff --git a/test-suite/bugs/closed/bug_8553.v b/test-suite/bugs/closed/bug_8553.v
new file mode 100644
index 0000000000..4a1afabe89
--- /dev/null
+++ b/test-suite/bugs/closed/bug_8553.v
@@ -0,0 +1,7 @@
+(* Using tactic "change" under binders *)
+
+Definition add2 n := n +2.
+Goal (fun n => n) = (fun n => n+2).
+change (?n + 2) with (add2 n).
+match goal with |- _ = (fun n => add2 n) => idtac end. (* To test the presence of add2 *)
+Abort.
diff --git a/test-suite/bugs/closed/bug_8672.v b/test-suite/bugs/closed/bug_8672.v
new file mode 100644
index 0000000000..66cd6dfa8c
--- /dev/null
+++ b/test-suite/bugs/closed/bug_8672.v
@@ -0,0 +1,5 @@
+(* Was generating a dangling "pat" variable at some time *)
+
+Notation "'plet' x := e 'in' t" :=
+  ((fun H => let x := id H in t) e) (at level 0, x pattern).
+Definition bla := plet (pair x y) := pair 1 2 in x.
-- 
cgit v1.2.3