Encore quelques tests sur modules...

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

3 files changed, 64 insertions, 0 deletions

diff --git a/test-suite/modules/ind.v b/test-suite/modules/ind.v
new file mode 100644
index 000000000..61f720179
--- /dev/null
+++ b/test-suite/modules/ind.v
@@ -0,0 +1,13 @@
+Module Type SIG.
+  Inductive w:Set:=A:w.
+  Definition f : w->w.
+End SIG.
+
+Module M:SIG.
+  Inductive w:Set:=A:w.
+  Definition f:=[x]Cases x of A => A end.
+End M.
+
+Module N:=M.
+
+Check (N.f M.A).
diff --git a/test-suite/modules/modeq.v b/test-suite/modules/modeq.v
new file mode 100644
index 000000000..380716853
--- /dev/null
+++ b/test-suite/modules/modeq.v
@@ -0,0 +1,22 @@
+Module M.
+  Definition T:=nat.
+  Definition x:T:=O.
+End M.
+
+Module Type SIG.
+  Module M:=Top.M.
+  Module Type SIG.
+    Definition T:Set.
+  End SIG.
+  Module N:SIG.
+End SIG.
+
+Module Z.
+  Module M:=Top.M.
+  Module Type SIG.
+    Definition T:Set.
+  End SIG.
+  Module N:=M.
+End Z.
+
+Module A:SIG:=Z.  
diff --git a/test-suite/modules/sig.v b/test-suite/modules/sig.v
new file mode 100644
index 000000000..d6ba0ae08
--- /dev/null
+++ b/test-suite/modules/sig.v
@@ -0,0 +1,29 @@
+Module M.
+  Module Type SIG.
+    Definition T:Set.
+    Definition x:T.
+  End SIG.
+  Module N:SIG.
+    Definition T:=nat.
+    Definition x:=O.
+  End N.
+End M.
+
+Module N:=M.
+
+Module Type SPRYT.
+  Module N.
+    Definition T:=M.N.T.
+    Definition x:T.
+  End N.
+End SPRYT.
+
+Module K:SPRYT:=N.  
+Module K':SPRYT:=M.  
+
+Module Type SIG.
+  Definition T:Set:=M.N.T.
+  Definition x:T.
+End SIG.
+
+Module J:SIG:=M.N.