{- Canonical Signatures -}

-- Test vectors from bitcoind
-- http://github.com/bitcoin/bitcoin/blob/master/src/test/data/sig_canonical.json

testCanonicalSig1 = assertBool "Canonical Sig1" $ 
    isCanonicalSig $ fromJust $ hexToBS $ stringToBS 
    "300602010002010001"
testCanonicalSig1 = assertBool "Canonical Sig1" $ 
    isCanonicalSig $ fromJust $ hexToBS $ stringToBS 
    "300602010002010001"
testCanonicalSig1 = assertBool "Canonical Sig1" $ 
    isCanonicalSig $ fromJust $ hexToBS $ stringToBS 
    "300602010002010001"