QPQ-AG/ec_utils
11
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add tests
EC Utils Tests / tests (push) Failing after -4m8s
Details

Browse Source
This commit is contained in:
Craig Everett
2025-01-23 15:01:38 +09:00
parent 30944928da
commit 4c1af8bbf3
5 changed files with 26 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
eqc/ed25519_eqc.erl
+7 -7
View File
@@ -17,12 +17,12 @@ gen_scalar() ->
?LET(N, gen_large_n(), <<N:256/little>>).
gen_point() ->
?LET(S, gen_scalar(), enacl:crypto_ed25519_scalarmult_base_noclamp(S)).
?LET(S, gen_scalar(), enacl:curve25519_scalarmult_base_noclamp(S)).
prop_compress() ->
?FORALL(S, gen_scalar(),
begin
CompP = enacl:crypto_ed25519_scalarmult_base_noclamp(S),
CompP = enacl:curve25519_scalarmult_base_noclamp(S),
DecP = ecu_ed25519:scalar_mul_base_noclamp(S),
equals(CompP, ecu_ed25519:compress(DecP))
end).
@@ -30,7 +30,7 @@ prop_compress() ->
prop_decompress() ->
?FORALL(S, gen_scalar(),
begin
CompP = enacl:crypto_ed25519_scalarmult_base_noclamp(S),
CompP = enacl:curve25519_scalarmult_base_noclamp(S),
DecP = ecu_ed25519:scalar_mul_base_noclamp(S),
equal_pts(DecP, ecu_ed25519:decompress(CompP))
end).
@@ -70,7 +70,7 @@ prop_generate_valid_point() ->
prop_scalar_mul_base() ->
?FORALL(S, gen_scalar(),
begin
E = enacl:crypto_ed25519_scalarmult_base(S),
E = enacl:curve25519_scalarmult_base(S),
P = ecu_ed25519:scalar_mul_base(S),
equals(E, ecu_ed25519:compress(P))
end).
@@ -78,7 +78,7 @@ prop_scalar_mul_base() ->
prop_scalar_mul_base_noclamp() ->
?FORALL(S, gen_scalar(),
begin
E = enacl:crypto_ed25519_scalarmult_base_noclamp(S),
E = enacl:curve25519_scalarmult_base_noclamp(S),
P = ecu_ed25519:scalar_mul_base_noclamp(S),
equals(E, ecu_ed25519:compress(P))
end).
@@ -86,7 +86,7 @@ prop_scalar_mul_base_noclamp() ->
prop_scalar_mul() ->
?FORALL({S, P0}, {gen_scalar(), gen_point()},
begin
E = enacl:crypto_ed25519_scalarmult(S, P0),
E = enacl:curve25519_scalarmult(S, P0),
P = ecu_ed25519:scalar_mul(S, P0),
equals(E, ecu_ed25519:compress(P))
end).
@@ -94,7 +94,7 @@ prop_scalar_mul() ->
prop_scalar_mul_noclamp() ->
?FORALL({S, P0}, {gen_scalar(), gen_point()},
begin
E = enacl:crypto_ed25519_scalarmult_noclamp(S, P0),
E = enacl:curve25519_scalarmult_noclamp(S, P0),
P = ecu_ed25519:scalar_mul_noclamp(S, ecu_ed25519:decompress(P0)),
equals(E, ecu_ed25519:compress(P))
end).
eqc/eddsa_eqc.erl
+1 -1
View File
@@ -20,7 +20,7 @@ gen_scalar() ->
?LET(N, gen_large_n(), <<N:256/little>>).
gen_point() ->
?LET(S, gen_scalar(), enacl:crypto_ed25519_scalarmult_base_noclamp(S)).
?LET(S, gen_scalar(), enacl:curve25519_scalarmult_base_noclamp(S)).
prop_keypair_seed() ->
?FORALL(Seed, binary(32),