add tests

This commit is contained in:
spaced4ndy
2023-12-21 14:45:33 +04:00
parent be6d9306de
commit ca3ba1c121
+2
View File
@@ -11,6 +11,8 @@ import Test.Hspec
byteStringBatcherTests :: Spec
byteStringBatcherTests = describe "ByteStringBatcher tests" $ do
runBatcherTest 8 ["a"] [] ["a"]
runBatcherTest 8 ["a","b"] [] ["[a,b]"]
runBatcherTest 8 ["a", "b", "c"] [] ["[a,b,c]"]
runBatcherTest 8 ["a", "bb", "c"] [] ["[a,bb,c]"]
runBatcherTest 8 ["a", "b", "c", "d"] [] ["[a,b,c]","d"]