testNotCanonical1 = assertBool "Too short" $
    not $ isCanonicalSig $ fromJust $ hexToBS $ stringToBS
    "30050201ff020001"
testNotCanonical1 = assertBool "Too short" $
    not $ isCanonicalSig $ fromJust $ hexToBS $ stringToBS
    "30050201ff020001"
testNotCanonical1 = assertBool "Too short" $
    not $ isCanonicalSig $ fromJust $ hexToBS $ stringToBS
    "30050201ff020001"