Add negative test for AppLeftImplicit error (#154)

test/Scope/Negative.hs

@@ -24,7 +24,7 @@ testDescr NegTest {..} =
           _testRoot = tRoot,
           _testAssertion = Single $ do
             let entryPoint = defaultEntryPoint _file
-            res <- runIOEither (upToScoping entryPoint)
+            res <- runIOEither (upToAbstract entryPoint)
             case mapLeft fromMiniJuvixError res of
               Left (Just err) -> whenJust (_checkErr err) assertFailure
               Left Nothing -> assertFailure "The scope checker did not find an error."
@@ -175,6 +175,13 @@ tests =
       $ \case
         ErrWrongLocationCompileBlock {} -> Nothing
         _ -> wrongError,
+    NegTest
+      "Implicit argument on the left of an application"
+      "."
+      "AppLeftImplicit.mjuvix"
+      $ \case
+        ErrAppLeftImplicit {} -> Nothing
+        _ -> wrongError,
     NegTest
       "Multiple compile blocks for the same name"
       "CompileBlocks"

tests/negative/AppLeftImplicit.mjuvix

@@ -0,0 +1,6 @@
+module AppLeftImplicit;
+
+ x : Type;
+ x ≔ {x};
+
+end;