]> gitweb.factorcode.org Git - factor.git/commitdiff
OpenSSL checksum => native implementation
authorMaxim Savchenko <pdunan@gmail.com>
Mon, 23 Mar 2009 07:16:13 +0000 (03:16 -0400)
committerMaxim Savchenko <pdunan@gmail.com>
Mon, 23 Mar 2009 07:16:13 +0000 (03:16 -0400)
extra/ecdsa/ecdsa-tests.factor

index 897ee63a951f3a04c60805f3f65171a9a4248384..b319fa297bb1e6182aa6ab64116c234def995e5b 100644 (file)
@@ -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" <openssl-checksum> 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" <openssl-checksum> 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