haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[tests] expands tabs, and remove redundant binding

Browse Source
This commit is contained in:
Vincent Hanquez 2015-08-30 07:49:30 +01:00
parent 3230f849a0
commit b00a1a2553
3 changed files with 188 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/KAT_PubKey/ECC.hs
View File

@ -142,13 +142,13 @@ doPointValidTest (i, vector) = testCase (show i) (valid vector @=? ECC.isPointVa
eccTests = testGroup "ECC"
[ testGroup "valid-point" $ map doPointValidTest (zip [katZero..] vectorsPoint)
, testGroup "property" $
[ testProperty "point-add" $ \curve (QAInteger r1) (QAInteger r2) ->
let curveN = ECC.ecc_n . ECC.common_curve $ curve
curveGen = ECC.ecc_g . ECC.common_curve $ curve
p1 = ECC.pointMul curve r1 curveGen
p2 = ECC.pointMul curve r2 curveGen
pR = ECC.pointMul curve ((r1 + r2) `mod` curveN) curveGen
in pR `propertyEq` ECC.pointAdd curve p1 p2
[ testProperty "point-add" $ \aCurve (QAInteger r1) (QAInteger r2) ->
let curveN = ECC.ecc_n . ECC.common_curve $ aCurve
curveGen = ECC.ecc_g . ECC.common_curve $ aCurve
p1 = ECC.pointMul aCurve r1 curveGen
p2 = ECC.pointMul aCurve r2 curveGen
pR = ECC.pointMul aCurve ((r1 + r2) `mod` curveN) curveGen
in pR `propertyEq` ECC.pointAdd aCurve p1 p2
]
]