Get rid of "shouldsucceed" subdirectory by moving tests to parent directory.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16797 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 19 insertions, 0 deletions

diff --git a/test-suite/bugs/closed/2095.v b/test-suite/bugs/closed/2095.v
new file mode 100644
index 000000000..28ea99dfe
--- /dev/null
+++ b/test-suite/bugs/closed/2095.v
@@ -0,0 +1,19 @@
+(* Classes and sections *)
+
+Section OPT.
+  Variable A: Type.
+
+  Inductive MyOption: Type :=
+  | MyNone: MyOption
+  | MySome: A -> MyOption.
+
+  Class Opt: Type := {
+    f_opt: A -> MyOption
+  }.
+End OPT.
+
+Definition f_nat (n: nat):  MyOption nat := MySome _ n.
+
+Instance Nat_Opt: Opt nat := {
+  f_opt := f_nat
+}.