1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-25 00:21:41 +03:00
juvix/test/Scope/Negative.hs

288 lines
8.3 KiB
Haskell
Raw Normal View History

2022-02-15 16:12:53 +03:00
module Scope.Negative (allTests) where
import Base
import Juvix.Compiler.Builtins (iniState)
2022-12-20 15:05:40 +03:00
import Juvix.Compiler.Concrete.Translation.FromParsed.Analysis.PathResolver.Error
import Juvix.Compiler.Concrete.Translation.FromParsed.Analysis.Scoping.Error
import Juvix.Compiler.Pipeline
2022-02-15 16:12:53 +03:00
type FailMsg = String
data NegTest a = NegTest
2022-04-07 19:10:53 +03:00
{ _name :: String,
2022-12-20 15:05:40 +03:00
_relDir :: Path Rel Dir,
_file :: Path Rel File,
_checkErr :: a -> Maybe FailMsg
2022-02-15 16:12:53 +03:00
}
2022-12-20 15:05:40 +03:00
root :: Path Abs Dir
root = relToProject $(mkRelDir "tests/negative")
2022-04-07 19:10:53 +03:00
testDescr :: Typeable a => NegTest a -> TestDescr
2022-04-05 20:57:21 +03:00
testDescr NegTest {..} =
2022-12-20 15:05:40 +03:00
let tRoot = root <//> _relDir
file' = tRoot <//> _file
2022-04-07 19:10:53 +03:00
in TestDescr
{ _testName = _name,
_testRoot = tRoot,
_testAssertion = Single $ do
2022-12-20 15:05:40 +03:00
let entryPoint = defaultEntryPoint tRoot file'
res <- runIOEither iniState entryPoint upToAbstract
case mapLeft fromJuvixError res of
2022-04-07 19:10:53 +03:00
Left (Just err) -> whenJust (_checkErr err) assertFailure
2022-12-20 15:05:40 +03:00
Left Nothing -> assertFailure "An error ocurred but it was not in the scoper."
Right {} -> assertFailure "The scope checker did not find an error."
2022-04-07 19:10:53 +03:00
}
2022-02-15 16:12:53 +03:00
2022-02-18 15:01:42 +03:00
allTests :: TestTree
2022-04-05 20:57:21 +03:00
allTests =
testGroup
"Scope negative tests"
( map (mkTest . testDescr) scoperErrorTests
<> map (mkTest . testDescr) filesErrorTests
)
2022-02-16 22:15:14 +03:00
wrongError :: Maybe FailMsg
2022-02-15 16:12:53 +03:00
wrongError = Just "Incorrect error"
scoperErrorTests :: [NegTest ScoperError]
scoperErrorTests =
2022-04-05 20:57:21 +03:00
[ NegTest
"Not in scope"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "NotInScope.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrSymNotInScope {} -> Nothing
_ -> wrongError,
NegTest
"Qualified not in scope"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "QualSymNotInScope.juvix")
$ \case
ErrQualSymNotInScope {} -> Nothing
_ -> wrongError,
2022-04-05 20:57:21 +03:00
NegTest
"Multiple declarations"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "MultipleDeclarations.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrMultipleDeclarations {} -> Nothing
_ -> wrongError,
NegTest
"Import cycle"
2022-12-20 15:05:40 +03:00
$(mkRelDir "ImportCycle")
$(mkRelFile "A.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrImportCycle {} -> Nothing
_ -> wrongError,
NegTest
"Binding group conflict (function clause)"
2022-12-20 15:05:40 +03:00
$(mkRelDir "BindGroupConflict")
$(mkRelFile "Clause.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrBindGroup {} -> Nothing
_ -> wrongError,
NegTest
"Binding group conflict (lambda clause)"
2022-12-20 15:05:40 +03:00
$(mkRelDir "BindGroupConflict")
$(mkRelFile "Lambda.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrBindGroup {} -> Nothing
_ -> wrongError,
NegTest
"Infix error (expression)"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "InfixError.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrInfixParser {} -> Nothing
_ -> wrongError,
NegTest
"Infix error (pattern)"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "InfixErrorP.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrInfixPattern {} -> Nothing
_ -> wrongError,
NegTest
"Duplicate fixity declaration"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "DuplicateFixity.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrDuplicateFixity {} -> Nothing
_ -> wrongError,
NegTest
"Multiple export conflict"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "MultipleExportConflict.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrMultipleExport {} -> Nothing
_ -> wrongError,
NegTest
"Module not in scope"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "ModuleNotInScope.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrModuleNotInScope {} -> Nothing
_ -> wrongError,
NegTest
"Unused operator syntax definition"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "UnusedOperatorDef.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrUnusedOperatorDef {} -> Nothing
_ -> wrongError,
NegTest
"Ambiguous symbol"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AmbiguousSymbol.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrAmbiguousSym {} -> Nothing
_ -> wrongError,
NegTest
"Lacks function clause"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "LacksFunctionClause.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrLacksFunctionClause {} -> Nothing
_ -> wrongError,
2023-01-17 11:41:07 +03:00
NegTest
"Lacks function clause inside let"
$(mkRelDir ".")
$(mkRelFile "LetMissingClause.juvix")
$ \case
ErrLacksFunctionClause {} -> Nothing
_ -> wrongError,
2022-04-05 20:57:21 +03:00
NegTest
"Incorrect top module path"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "WrongModuleName.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrWrongTopModuleName {} -> Nothing
_ -> wrongError,
NegTest
"Ambiguous export"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AmbiguousExport.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrMultipleExport {} -> Nothing
_ -> wrongError,
NegTest
"Ambiguous nested modules"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AmbiguousModule.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrAmbiguousModuleSym {} -> Nothing
_ -> wrongError,
NegTest
"Ambiguous nested constructors"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AmbiguousConstructor.juvix")
2022-04-05 20:57:21 +03:00
$ \case
ErrAmbiguousSym {} -> Nothing
_ -> wrongError,
NegTest
"Wrong location of a compile block"
2022-12-20 15:05:40 +03:00
$(mkRelDir "CompileBlocks")
$(mkRelFile "WrongLocationCompileBlock.juvix")
$ \case
ErrWrongLocationCompileBlock {} -> Nothing
_ -> wrongError,
NegTest
"Implicit argument on the left of an application"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AppLeftImplicit.juvix")
$ \case
ErrAppLeftImplicit {} -> Nothing
_ -> wrongError,
NegTest
"Multiple compile blocks for the same name"
2022-12-20 15:05:40 +03:00
$(mkRelDir "CompileBlocks")
$(mkRelFile "MultipleCompileBlockSameName.juvix")
$ \case
ErrMultipleCompileBlockSameName {} -> Nothing
_ -> wrongError,
NegTest
"Multiple rules for a backend inside a compile block"
2022-12-20 15:05:40 +03:00
$(mkRelDir "CompileBlocks")
$(mkRelFile "MultipleCompileRuleSameBackend.juvix")
$ \case
ErrMultipleCompileRuleSameBackend {} -> Nothing
_ -> wrongError,
NegTest
"issue 230"
2022-12-20 15:05:40 +03:00
$(mkRelDir "230")
$(mkRelFile "Prod.juvix")
$ \case
ErrQualSymNotInScope {} -> Nothing
_ -> wrongError,
NegTest
"Double braces in pattern"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "NestedPatternBraces.juvix")
$ \case
ErrDoubleBracesPattern {} -> Nothing
_ -> wrongError,
NegTest
"As-Pattern aliasing variable"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "AsPatternAlias.juvix")
$ \case
ErrAliasBinderPattern {} -> Nothing
_ -> wrongError,
NegTest
"Nested As-Patterns"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "NestedAsPatterns.juvix")
$ \case
ErrDoubleBinderPattern {} -> Nothing
_ -> wrongError,
NegTest
"Pattern matching an implicit argument on the left of an application"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "ImplicitPatternLeftApplication.juvix")
$ \case
ErrImplicitPatternLeftApplication {} -> Nothing
_ -> wrongError,
NegTest
"Constructor expected on the left of a pattern application"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "ConstructorExpectedLeftApplication.juvix")
$ \case
ErrConstructorExpectedLeftApplication {} -> Nothing
_ -> wrongError,
NegTest
"Compile block for a unsupported kind of expression"
2022-12-20 15:05:40 +03:00
$(mkRelDir "CompileBlocks")
$(mkRelFile "WrongKindExpressionCompileBlock.juvix")
$ \case
ErrWrongKindExpressionCompileBlock {} -> Nothing
_ -> wrongError,
NegTest
"A type parameter name occurs twice when declaring an inductive type"
2022-12-20 15:05:40 +03:00
$(mkRelDir ".")
$(mkRelFile "DuplicateInductiveParameterName.juvix")
$ \case
ErrDuplicateInductiveParameterName {} -> Nothing
2022-04-05 20:57:21 +03:00
_ -> wrongError
2022-02-16 22:15:14 +03:00
]
2022-12-20 15:05:40 +03:00
filesErrorTests :: [NegTest ScoperError]
filesErrorTests =
[ NegTest
"A module that conflicts with a module in the stdlib"
2022-12-20 15:05:40 +03:00
$(mkRelDir "StdlibConflict")
$(mkRelFile "Input.juvix")
$ \case
2022-12-20 15:05:40 +03:00
ErrTopModulePath
TopModulePathError {_topModulePathError = ErrDependencyConflict {}} -> Nothing
_ -> wrongError,
NegTest
"Importing a module that conflicts with a module in the stdlib"
2022-12-20 15:05:40 +03:00
$(mkRelDir "StdlibConflict")
$(mkRelFile "Input.juvix")
$ \case
2022-12-20 15:05:40 +03:00
ErrTopModulePath
TopModulePathError {_topModulePathError = ErrDependencyConflict {}} -> Nothing
_ -> wrongError
]