From feb933b32c436fc0d04f9390f63edcad0e55cfee Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 21 Mar 2013 10:37:07 +0000
Subject: Printmod: fresh fake namespaces for non-visible modules (fix #2668,
 #2983)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16328 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 test-suite/bugs/closed/shouldsucceed/2668.v | 6 ++++++
 test-suite/bugs/closed/shouldsucceed/2983.v | 8 ++++++++
 2 files changed, 14 insertions(+)
 create mode 100644 test-suite/bugs/closed/shouldsucceed/2668.v
 create mode 100644 test-suite/bugs/closed/shouldsucceed/2983.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/shouldsucceed/2668.v b/test-suite/bugs/closed/shouldsucceed/2668.v
new file mode 100644
index 0000000000..74c8fa347b
--- /dev/null
+++ b/test-suite/bugs/closed/shouldsucceed/2668.v
@@ -0,0 +1,6 @@
+Require Import MSetPositive.
+Require Import MSetProperties.
+
+Module Pos := MSetPositive.PositiveSet.
+Module PPPP := MSetProperties.WPropertiesOn(Pos).
+Print Module PPPP.
\ No newline at end of file
diff --git a/test-suite/bugs/closed/shouldsucceed/2983.v b/test-suite/bugs/closed/shouldsucceed/2983.v
new file mode 100644
index 0000000000..15598352b1
--- /dev/null
+++ b/test-suite/bugs/closed/shouldsucceed/2983.v
@@ -0,0 +1,8 @@
+Module Type ModA.
+End ModA.
+Module Type ModB(A : ModA).
+End ModB.
+Module Foo(A : ModA)(B : ModB A).
+End Foo.
+
+Print Module Foo.
\ No newline at end of file
-- 
cgit v1.2.3