belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Don't allow identifier duplicates

Browse Source
This commit is contained in:
Eugen Wissner
2024-08-05 22:56:35 +02:00
parent 9cb9ab536f
commit a1863147f8
4 changed files with 51 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/Language/Elna/NameAnalysisSpec.hs
View File

@ -63,7 +63,7 @@ spec = describe "nameAnalysis" $ do
case SymbolTable.lookup "main" <$> actual of
Right lookupResult
| Just (ProcedureInfo localTable _) <- lookupResult ->
localTable `shouldBe` expected
Just localTable `shouldBe` expected
_ -> expectationFailure "Procedure symbol not found"
it "puts variables into the local symbol table" $ do
@ -74,5 +74,5 @@ spec = describe "nameAnalysis" $ do
case SymbolTable.lookup "main" <$> actual of
Right lookupResult
| Just (ProcedureInfo localTable _) <- lookupResult ->
localTable `shouldBe` expected
Just localTable `shouldBe` expected
_ -> expectationFailure "Procedure symbol not found"