Some more tests

tests/modsys/functors/T011.cry

@@ -0,0 +1,22 @@
+// Test importing in a signature
+
+
+submodule A where
+  type T = [8]
+
+signature S where
+  import submodule A
+  x : T
+
+submodule F where
+  import signature submodule S
+
+  y = 2 * x
+
+submodule I where
+  x = 28
+
+submodule M = submodule F { submodule I }
+
+import submodule M as M
+

tests/modsys/functors/T011.icry

@@ -0,0 +1,2 @@
+:load T011.cry
+M::y

tests/modsys/functors/T011.icry.stdout

@@ -0,0 +1,4 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module Main
+0x38

tests/modsys/functors/T012.cry

@@ -0,0 +1,18 @@
+// Test importing in a signature
+
+signature S where
+  import T012_M
+  x : T
+
+submodule F where
+  import signature submodule S
+
+  y = 2 * x
+
+submodule I where
+  x = 28
+
+submodule M = submodule F { submodule I }
+
+import submodule M as M
+

tests/modsys/functors/T012.icry

@@ -0,0 +1,2 @@
+:load T012.cry
+M::y

tests/modsys/functors/T012.icry.stdout

@@ -0,0 +1,5 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module T012_M
+Loading module Main
+0x38

tests/modsys/functors/T012_M.cry

@@ -0,0 +1,4 @@
+module T012_M where
+
+type T = [8]
+

tests/modsys/functors/T013.cry

@@ -0,0 +1,6 @@
+
+submodule A where
+  x = 2
+
+submodule F where
+  import signature submodule A

tests/modsys/functors/T013.icry

@@ -0,0 +1 @@
+:load T013.cry

tests/modsys/functors/T013.icry.stdout

@@ -0,0 +1,7 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module Main
+
+[error] at T013.cry:6:30--6:31
+    • Expected a signatre
+    • `submodule Main::A` is a module

tests/modsys/functors/T014.cry

@@ -0,0 +1,6 @@
+
+signature A where
+  type T : #
+
+import submodule A
+

tests/modsys/functors/T014.icry

@@ -0,0 +1 @@
+:load T014.cry

tests/modsys/functors/T014.icry.stdout

@@ -0,0 +1,7 @@
+Loading module Cryptol
+Loading module Cryptol
+Loading module Main
+
+[error] at T014.cry:5:1--5:19
+    • Expected a module
+    • `submodule Main::A` is a signatre