extra/ecdsa/ecdsa-tests.factor

   1 ! Copyright (C) 2009 Maxim Savchenko
   2 ! See http://factorcode.org/license.txt for BSD license.
   3
   4 USING: namespaces ecdsa tools.test checksums checksums.sha ;
   5 IN: ecdsa.tests
   6
   7 SYMBOLS: priv-key pub-key signature ;
   8
   9 : message ( -- msg ) "Hello world!" ;
  10
  11 [ ] ! Generating keys
  12 [
  13     "prime256v1" [ generate-key get-private-key get-public-key ] with-ec
  14     pub-key set priv-key set
  15 ] unit-test
  16
  17 [ ] ! Signing message
  18 [
  19     message sha-256 checksum-bytes
  20     priv-key get
  21     "prime256v1" [ set-private-key ecdsa-sign ] with-ec
  22     signature set
  23 ] unit-test
  24
  25 [ t ] ! Verifying signature
  26 [
  27     message sha-256 checksum-bytes
  28     signature get pub-key get
  29     "prime256v1" [ set-public-key ecdsa-verify ] with-ec
  30 ] unit-test