1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-15 01:52:11 +03:00
juvix/test/Termination/Positive.hs

102 lines
2.8 KiB
Haskell
Raw Normal View History

module Termination.Positive where
import Base
import Termination.Negative qualified as N
data PosTest = PosTest
{ _name :: String,
2022-12-20 15:05:40 +03:00
_relDir :: Path Rel Dir,
_file :: Path Rel File
}
2022-12-20 15:05:40 +03:00
root :: Path Abs Dir
root = relToProject $(mkRelDir "tests/positive/Termination")
testDescr :: PosTest -> TestDescr
testDescr PosTest {..} =
2022-12-20 15:05:40 +03:00
let tRoot = root <//> _relDir
file' = tRoot <//> _file
in TestDescr
{ _testName = _name,
_testRoot = tRoot,
_testAssertion = Single $ do
entryPoint <- set entryPointNoStdlib True <$> defaultEntryPointCwdIO file'
(void . runIO' entryPoint) upToInternalTyped
}
--------------------------------------------------------------------------------
-- Testing --no-termination flag with all termination negative tests
--------------------------------------------------------------------------------
2022-12-20 15:05:40 +03:00
rootNegTests :: Path Abs Dir
rootNegTests = relToProject $(mkRelDir "tests/negative/Termination")
testDescrFlag :: N.NegTest -> TestDescr
testDescrFlag N.NegTest {..} =
2022-12-20 15:05:40 +03:00
let tRoot = rootNegTests <//> _relDir
file' = tRoot <//> _file
in TestDescr
{ _testName = _name,
_testRoot = tRoot,
_testAssertion = Single $ do
entryPoint <-
set entryPointNoTermination True
. set entryPointNoStdlib True
<$> defaultEntryPointCwdIO file'
(void . runIO' entryPoint) upToInternalTyped
}
tests :: [PosTest]
tests =
2022-12-20 15:05:40 +03:00
[ PosTest
"Ackerman nice def. is terminating"
$(mkRelDir ".")
$(mkRelFile "Ack.juvix"),
PosTest
"Fibonacci with nested pattern"
$(mkRelDir ".")
$(mkRelFile "Fib.juvix"),
PosTest
"Recursive functions on Lists"
$(mkRelDir ".")
$(mkRelFile "Data/List.juvix"),
PosTest
"Recursive function on a tree"
$(mkRelDir ".")
$(mkRelFile "TreeGen.juvix"),
PosTest
"Ignore instance arguments"
$(mkRelDir ".")
$(mkRelFile "issue2414.juvix")
]
testsWithKeyword :: [PosTest]
testsWithKeyword =
2022-12-20 15:05:40 +03:00
[ PosTest
"terminating for all functions in the mutual block"
$(mkRelDir ".")
$(mkRelFile "Mutual.juvix"),
PosTest
"Undefined is terminating by assumption"
$(mkRelDir ".")
$(mkRelFile "Undefined.juvix")
]
negTests :: [N.NegTest]
negTests = N.tests
allTests :: TestTree
allTests =
testGroup
"Positive tests"
[ testGroup
"Well-known terminating functions"
(map (mkTest . testDescr) tests),
testGroup
"Bypass termination checking using --non-termination flag on negative tests"
(map (mkTest . testDescrFlag) negTests),
testGroup
"Terminating keyword"
(map (mkTest . testDescr) testsWithKeyword)
]