From c1a330b28cd1417099183a1cb0a86b6a606b7ae9 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau <matthieu.sozeau@inria.fr>
Date: Tue, 3 Mar 2015 22:32:02 +0100
Subject: Add missing test-suite files and update gitignore.

---
 .gitignore                    |  3 +++
 test-suite/bugs/closed/3590.v | 14 ++++++++++++++
 test-suite/bugs/closed/4046.v |  6 ++++++
 test-suite/bugs/opened/3794.v |  7 +++++++
 4 files changed, 30 insertions(+)
 create mode 100644 test-suite/bugs/closed/3590.v
 create mode 100644 test-suite/bugs/closed/4046.v
 create mode 100644 test-suite/bugs/opened/3794.v

diff --git a/.gitignore b/.gitignore
index 54b9d10b5..c0bae6c66 100644
--- a/.gitignore
+++ b/.gitignore
@@ -160,3 +160,6 @@ dev/myinclude
 
 # coqide generated files (when testing)
 *.crashcoqide
+/doc/refman/Reference-Manual.hoptind
+/doc/refman/Reference-Manual.optidx
+/doc/refman/Reference-Manual.optind
diff --git a/test-suite/bugs/closed/3590.v b/test-suite/bugs/closed/3590.v
new file mode 100644
index 000000000..51d6744c5
--- /dev/null
+++ b/test-suite/bugs/closed/3590.v
@@ -0,0 +1,14 @@
+(* Set Primitive Projections. *)
+Set Implicit Arguments.
+Record prod A B := pair { fst : A ; snd : B }.
+Definition idS := Set.
+Goal forall x y : prod Set Set, fst x = fst y.
+  intros.
+  change (@fst _ _ ?z) with (@fst Set idS z) at 2.
+  Unshelve.
+  admit.
+Qed.
+  
+(* Toplevel input, characters 20-58:
+Error: Failed to get enough information from the left-hand side to type the
+right-hand side. *)
\ No newline at end of file
diff --git a/test-suite/bugs/closed/4046.v b/test-suite/bugs/closed/4046.v
new file mode 100644
index 000000000..8f8779b7b
--- /dev/null
+++ b/test-suite/bugs/closed/4046.v
@@ -0,0 +1,6 @@
+Module Import Foo.
+  Class Foo := { foo : Type }.
+End Foo.
+
+Instance f : Foo := { foo := nat }. (* works fine *)
+Instance f' : Foo.Foo := { Foo.foo := nat }. 
diff --git a/test-suite/bugs/opened/3794.v b/test-suite/bugs/opened/3794.v
new file mode 100644
index 000000000..511a92b2a
--- /dev/null
+++ b/test-suite/bugs/opened/3794.v
@@ -0,0 +1,7 @@
+Hint Extern 10 ((?X = ?Y) -> False) => intros; discriminate.
+Hint Unfold not : core.
+
+Goal true<>false.
+Set Typeclasses Debug.
+typeclasses eauto with core.
+Qed.
\ No newline at end of file
-- 
cgit v1.2.3