vegowotenks/bf-optimize
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix[test]: missing argument to function

Browse source
This commit is contained in:
vegowotenks 2025-06-23 14:01:39 +02:00
parent 40ce94ab7b
commit 1b20f4ef71
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/Spec.hs
View file

@ -25,9 +25,9 @@ prop_rejectInvalidTexts = Either.isLeft . Brainfuck.parse . InValidBrainfuckText
prop_renderParseInverse :: Vector Instruction -> Bool prop_renderParseInverse :: Vector Instruction -> Bool
prop_renderParseInverse source = Right source == (Brainfuck.parse . Brainfuck.render $ source) prop_renderParseInverse source = Right source == (Brainfuck.parse . Brainfuck.render $ source)
-- | Compressing and Uncompressing should be inverse -- | Compressing and Uncompressing should be inverse. The opposite must not be true, since `compress $ replicate 300 Increment` is `Add 44`
prop_CompressUncompressInverse :: Vector Instruction -> Bool prop_CompressUncompressInverse :: Vector Instruction -> Bool
prop_CompressUncompressInverse source = source == CompressedInstruction.uncompress . CompressedInstruction.compress prop_CompressUncompressInverse source = source == (CompressedInstruction.uncompress . CompressedInstruction.compress) source
return [] -- template haskell guard return [] -- template haskell guard
runQuickCheck :: IO Bool runQuickCheck :: IO Bool