Add optimization cases for triage and composition

This commit is contained in:
James Eversole
2025-01-25 15:12:28 -06:00
parent 2bd388c871
commit ea128929da
3 changed files with 24 additions and 12 deletions

View File

@ -497,7 +497,6 @@ fileEval = testGroup "File evaluation tests"
decodeResult (result res) @?= "\"String test!\""
]
demos :: TestTree
demos = testGroup "Test provided demo functionality"
[ testCase "Structural equality demo" $ do
@ -511,7 +510,7 @@ demos = testGroup "Test provided demo functionality"
, testCase "Determining the size of functions" $ do
library <- liftIO $ evaluateFile "./lib/base.tri"
res <- liftIO $ evaluateFileWithContext library "./demos/size.tri"
decodeResult (result res) @?= "2071"
decodeResult (result res) @?= "454"
, testCase "Level Order Traversal demo" $ do
library <- liftIO $ evaluateFile "./lib/base.tri"
res <- liftIO $ evaluateFileWithContext library "./demos/levelOrderTraversal.tri"