Basic tests for module exports
commit7fde48f9311d7dd531c30b68537978738b099629
authorGary Burgess <gary.burgess@gmail.com>
dateWed 5 Mar 2014, 09:49 (13 years ago)
parentf78904d
examples/failing/ExportExplicit.pursnew file+16
@@ -0,0 +1,16 @@
1+module M1 (X(..)) where
2+
3+ data X = X | Y
4+ data Z = Z
5+
6+module Main where
7+
8+ import M1
9+
10+ testX = X
11+ testY = Y
12+
13+ -- should fail as Z is not exported from M1
14+ testZ = Z
15+
16+ main = Debug.Trace.trace "Done"
examples/passing/ExportExplicit.pursnew file+13
@@ -0,0 +1,13 @@
1+module M1 (X(X), Z) where
2+
3+ data X = X | Y
4+ data Z = Z
5+
6+module Main where
7+
8+ import M1
9+
10+ testX = X
11+ testZ = Z
12+
13+ main = Debug.Trace.trace "Done"