Skip to content
Snippets Groups Projects
Commit e3bfe60a authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

hlint

parent 7c815142
No related branches found
No related tags found
No related merge requests found
......@@ -4,11 +4,14 @@ module SpecMerkle
( tests
) where
import Data.Maybe
( isJust
)
import Data.Text
( pack
)
import Data.Text.Encoding
( encodeUtf8
)
......@@ -75,8 +78,8 @@ tests = testGroup "Merkle"
(Just (MerkleNode "\138\134\149S\148\&6\239\SO\217\208Si\153\SUB\176oHEb\169(\233C\150\155\176g<\242N\DEL=" (MerkleLeaf "bar") (MerkleLeaf "baz")))
(makeTree ["bar", "baz"])
, testCase "make 6 leaf tree" $
assertBool "it can be made"
(Nothing /= makeTestTree 6)
assertBool "it can be made" $
isJust (makeTestTree 6)
, testCase "breadth first traversal (small)" $
assertEqual "tree with one leaf"
(Just 1)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment