Added test cases for export check

test/ExportAmbiguousErrors.curry → test/Bool.curry

-module ExportAmbiguousErrors (Bool, Prelude.Bool, not, Prelude.not) where
-
-import Prelude
+module Bool where
 
 data Bool = False | True
 

test/ExportError.curry

-module ExportError (module Foo) where
-

test/exportcheck/AmbiguousName.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/AmbiguousName.curry, line 9.23:
+--     Ambiguous name `not'
+--     It could refer to:
+--       `Prelude.not'
+--       `Bool.not'
+--
+module AmbiguousName (not) where
+
+import Bool

test/exportcheck/AmbiguousType.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/AmbiguousType.curry, line 9.23:
+--     Ambiguous type `Bool'
+--     It could refer to:
+--       `Prelude.Bool'
+--       `Bool.Bool'
+--
+module AmbiguousType (Bool ()) where
+
+import Bool

test/exportcheck/ModuleNotImported.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/ModuleNotImported.curry, line 6.34:
+--     Module `Foo' not imported
+--
+module ModuleNotImported (module Foo) where

test/exportcheck/MultipleName.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/MultipleName.curry, line 8.22:
+--     Multiple exports of name `not' at:
+--       line 8.22
+--       line 8.32
+--
+module MultipleName (Bool.not, Prelude.not) where
+
+import qualified Bool

test/exportcheck/MultipleType.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/MultipleType.curry, line 8.22:
+--     Multiple exports of type `Bool' at:
+--       line 8.22
+--       line 8.33
+--
+module MultipleType (Bool.Bool, Prelude.Bool) where
+
+import qualified Bool

test/exportcheck/NoDataType.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/NoDataType.curry, line 6.20:
+--     `Foo' is not a data type
+--
+module NoDataType (Foo ()) where
+
+type Foo a = a

test/exportcheck/OutsideTypeConstructor.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/OutsideTypeConstructor.curry, line 7.32:
+--     Data constructor `False' outside type export in export list
+--     Use `Prelude.Bool (False)' instead
+--
+module OutsideTypeConstructor (False) where

test/exportcheck/OutsideTypeLabel.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/OutsideTypeLabel.curry, line 7.26:
+--     Label `value' outside type export in export list
+--     Use `OutsideTypeLabel.Id (value)' instead
+--
+module OutsideTypeLabel (value) where
+
+data Id a = Id { value :: a }

test/exportcheck/UndefinedElement.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/UndefinedElement.curry, line 6.32:
+--     `foo' is not a constructor or label of type `Bool'
+--
+module UndefinedElement (Bool (foo)) where

test/exportcheck/UndefinedName.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/UndefinedName.curry, line 6.23:
+--     Undefined name `foo' in export list
+--
+module UndefinedName (foo) where

test/exportcheck/UndefinedType.curry

+-- Should issue the following error:
+--
+-- test/exportcheck/UndefinedType.curry, line 6.23:
+--     Undefined Type `Foo' in export list
+--
+module UndefinedType (Foo ()) where