From e0e1c1d7573fc5251fe537314b6a6cfefae09e39 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 11 Dec 2022 18:45:46 +0200
Subject: Ensure that imports do not overwrite symbols

---
 test/Spec.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'test/Spec.hs')

diff --git a/test/Spec.hs b/test/Spec.hs
index e522c9c..0059ea7 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -144,7 +144,14 @@ e2eTests = testGroup "e2e" [
         (gotASTs, _) <- expectSuccessL env $ runInlineScript "<test>" script1
 
         let expectedLastAST = astBoolean True
-        assertEqual "" expectedLastAST (last gotASTs)
+        assertEqual "" expectedLastAST (last gotASTs),
+
+     do let env = M.empty
+        script1 <- readFile "test/scripts/import1.milch"
+        got <- expectErrorL env $ runInlineScript "<test>" script1
+
+        let expected = "error: import shadows symbols: id"
+        assertBool "" (expected `L.isInfixOf` got)
     ]
 
 testGroup label xs = TestLabel label $ TestList $ map TestCase xs
-- 
cgit v1.3