From 83592b7d841b2d67d437c44b08ed4aea854ac81b Mon Sep 17 00:00:00 2001 From: Maxim Savchenko Date: Mon, 23 Mar 2009 03:16:13 -0400 Subject: [PATCH] OpenSSL checksum => native implementation --- extra/ecdsa/ecdsa-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/ecdsa/ecdsa-tests.factor b/extra/ecdsa/ecdsa-tests.factor index 897ee63a95..b319fa297b 100644 --- a/extra/ecdsa/ecdsa-tests.factor +++ b/extra/ecdsa/ecdsa-tests.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Maxim Savchenko ! See http://factorcode.org/license.txt for BSD license. -USING: namespaces ecdsa tools.test checksums checksums.openssl ; +USING: namespaces ecdsa tools.test checksums checksums.sha2 ; IN: ecdsa.tests SYMBOLS: priv-key pub-key signature ; @@ -16,7 +16,7 @@ SYMBOLS: priv-key pub-key signature ; [ ] ! Signing message [ - message "sha256" checksum-bytes + message sha-256 checksum-bytes priv-key get "prime256v1" [ set-private-key ecdsa-sign ] with-ec signature set @@ -24,7 +24,7 @@ SYMBOLS: priv-key pub-key signature ; [ t ] ! Verifying signature [ - message "sha256" checksum-bytes + message sha-256 checksum-bytes signature get pub-key get "prime256v1" [ set-public-key ecdsa-verify ] with-ec ] unit-test \ No newline at end of file