From bf84430957769ae397a8931897a0af6d3c04c18d Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Thu, 23 Jan 2025 17:11:12 -0600 Subject: [PATCH] todo comments --- test/Main.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/test/Main.hs b/test/Main.hs index e549d35..60095ff 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -121,4 +121,6 @@ main = do codeTestFunc "instructionCodeExtractLastEmptyBlock" [Block []] [StateFunc instructionCodeFromExec, Block [GeneInt 1, Block [GeneInt 2, GeneInt 3], Block [GeneInt 4, GeneInt 5], Block []], GeneInt 7, StateFunc instructionCodeExtract] emptyState codeTestFunc "instructionCodeExtractBlock" [Block [GeneInt 2, GeneInt 3]] [StateFunc instructionCodeFromExec, Block [GeneInt 1, Block [GeneInt 2, GeneInt 3], Block [GeneInt 4, GeneInt 5], Block []], GeneInt 1, StateFunc instructionCodeExtract] emptyState codeTestFunc "instructionCodeExtractEdgeCase" [Block []] [StateFunc instructionCodeFromExec, Block [GeneInt 1, Block [GeneInt 2, GeneInt 3], Block [GeneInt 4, GeneInt 5], Block []], GeneInt 7, StateFunc instructionCodeExtract] emptyState + -- Need a function to test extracting a non-code-block item + -- Need functions to test inserting items. Block and NonBlock