From a597bb33eb9b3c9d70422d72e89bcbda90896ddb Mon Sep 17 00:00:00 2001
From: Nick Lewycky
Date: Mon, 10 Sep 2018 14:53:05 -0700
Subject: Move tests in bugs/ to the bugs/closed/.

---
 test-suite/bugs/2428.v        | 10 ----------
 test-suite/bugs/4623.v        |  5 -----
 test-suite/bugs/4624.v        |  7 -------
 test-suite/bugs/7333.v        | 39 ---------------------------------------
 test-suite/bugs/closed/2428.v | 10 ++++++++++
 test-suite/bugs/closed/4623.v |  5 +++++
 test-suite/bugs/closed/4624.v |  7 +++++++
 test-suite/bugs/closed/7333.v | 39 +++++++++++++++++++++++++++++++++++++++
 8 files changed, 61 insertions(+), 61 deletions(-)
 delete mode 100644 test-suite/bugs/2428.v
 delete mode 100644 test-suite/bugs/4623.v
 delete mode 100644 test-suite/bugs/4624.v
 delete mode 100644 test-suite/bugs/7333.v
 create mode 100644 test-suite/bugs/closed/2428.v
 create mode 100644 test-suite/bugs/closed/4623.v
 create mode 100644 test-suite/bugs/closed/4624.v
 create mode 100644 test-suite/bugs/closed/7333.v

diff --git a/test-suite/bugs/2428.v b/test-suite/bugs/2428.v
deleted file mode 100644
index a4f587a58d..0000000000
--- a/test-suite/bugs/2428.v
+++ /dev/null
@@ -1,10 +0,0 @@
-Axiom P : nat -> Prop.
-
-Definition myFact := forall x, P x.
-
-Hint Extern 1 (P _) => progress (unfold myFact in *).
-
-Lemma test : (True -> myFact) -> P 3.
-Proof. 
-  intros. debug eauto.
-Qed.
diff --git a/test-suite/bugs/4623.v b/test-suite/bugs/4623.v
deleted file mode 100644
index 7ecfd98b67..0000000000
--- a/test-suite/bugs/4623.v
+++ /dev/null
@@ -1,5 +0,0 @@
-Goal Type -> Type.
-set (T := Type).
-clearbody T.
-refine (@id _).
-Qed.
diff --git a/test-suite/bugs/4624.v b/test-suite/bugs/4624.v
deleted file mode 100644
index f5ce981cd0..0000000000
--- a/test-suite/bugs/4624.v
+++ /dev/null
@@ -1,7 +0,0 @@
-Record foo := mkfoo { type : Type }.
-
-Canonical Structure fooA (T : Type) := mkfoo (T -> T).
-
-Definition id (t : foo) (x : type t) := x.
-
-Definition bar := id _ ((fun x : nat => x) : _).
diff --git a/test-suite/bugs/7333.v b/test-suite/bugs/7333.v
deleted file mode 100644
index fba5b9029d..0000000000
--- a/test-suite/bugs/7333.v
+++ /dev/null
@@ -1,39 +0,0 @@
-Module Example1.
-
-CoInductive wrap : Type :=
- | item : unit -> wrap.
-
-Definition extract (t : wrap) : unit :=
-match t with
-| item x => x
-end.
-
-CoFixpoint close u : unit -> wrap :=
-match u with
-| tt => item
-end.
-
-Definition table : wrap := close tt tt.
-
-Eval vm_compute in (extract table).
-Eval vm_compute in (extract table).
-
-End Example1.
-
-Module Example2.
-
-Set Primitive Projections.
-CoInductive wrap : Type :=
- item { extract : unit }.
-
-CoFixpoint close u : unit -> wrap :=
-match u with
-| tt => item
-end.
-
-Definition table : wrap := close tt tt.
-
-Eval vm_compute in (extract table).
-Eval vm_compute in (extract table).
-
-End Example2.
diff --git a/test-suite/bugs/closed/2428.v b/test-suite/bugs/closed/2428.v
new file mode 100644
index 0000000000..b398a76d91
--- /dev/null
+++ b/test-suite/bugs/closed/2428.v
@@ -0,0 +1,10 @@
+Axiom P : nat -> Prop.
+
+Definition myFact := forall x, P x.
+
+Hint Extern 1 (P _) => progress (unfold myFact in *).
+
+Lemma test : (True -> myFact) -> P 3.
+Proof.
+  intros. debug eauto.
+Qed.
diff --git a/test-suite/bugs/closed/4623.v b/test-suite/bugs/closed/4623.v
new file mode 100644
index 0000000000..7ecfd98b67
--- /dev/null
+++ b/test-suite/bugs/closed/4623.v
@@ -0,0 +1,5 @@
+Goal Type -> Type.
+set (T := Type).
+clearbody T.
+refine (@id _).
+Qed.
diff --git a/test-suite/bugs/closed/4624.v b/test-suite/bugs/closed/4624.v
new file mode 100644
index 0000000000..f5ce981cd0
--- /dev/null
+++ b/test-suite/bugs/closed/4624.v
@@ -0,0 +1,7 @@
+Record foo := mkfoo { type : Type }.
+
+Canonical Structure fooA (T : Type) := mkfoo (T -> T).
+
+Definition id (t : foo) (x : type t) := x.
+
+Definition bar := id _ ((fun x : nat => x) : _).
diff --git a/test-suite/bugs/closed/7333.v b/test-suite/bugs/closed/7333.v
new file mode 100644
index 0000000000..fba5b9029d
--- /dev/null
+++ b/test-suite/bugs/closed/7333.v
@@ -0,0 +1,39 @@
+Module Example1.
+
+CoInductive wrap : Type :=
+ | item : unit -> wrap.
+
+Definition extract (t : wrap) : unit :=
+match t with
+| item x => x
+end.
+
+CoFixpoint close u : unit -> wrap :=
+match u with
+| tt => item
+end.
+
+Definition table : wrap := close tt tt.
+
+Eval vm_compute in (extract table).
+Eval vm_compute in (extract table).
+
+End Example1.
+
+Module Example2.
+
+Set Primitive Projections.
+CoInductive wrap : Type :=
+ item { extract : unit }.
+
+CoFixpoint close u : unit -> wrap :=
+match u with
+| tt => item
+end.
+
+Definition table : wrap := close tt tt.
+
+Eval vm_compute in (extract table).
+Eval vm_compute in (extract table).
+
+End Example2.
-- 
cgit v1.2.3