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