extra/hashcash/hashcash-tests.factor

   1 USING: accessors sequences tools.test hashcash ;
   2
   3 [ t ] [ "foo@bar.com" mint check-stamp ] unit-test
   4
   5 [ t ] [
   6     <hashcash>
   7         "foo@bar.com" >>resource
   8         16 >>bits
   9     mint* check-stamp ] unit-test
  10
  11 [ t ] [
  12     "1:20:040927:mertz@gnosis.cx::odVZhQMP:7ca28" check-stamp
  13 ] unit-test
  14
  15 [ 8 ] [ 8 salt length ] unit-test