2009-05-10 08:27:35 -04:00
|
|
|
USING: accessors sequences tools.test hashcash ;
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ "foo@bar.com" mint check-stamp ] unit-test
|
2009-05-10 08:27:35 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [
|
2015-07-02 13:34:01 -04:00
|
|
|
<hashcash>
|
|
|
|
|
"foo@bar.com" >>resource
|
|
|
|
|
16 >>bits
|
2009-05-10 08:27:35 -04:00
|
|
|
mint* check-stamp ] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [
|
2009-05-10 08:27:35 -04:00
|
|
|
"1:20:040927:mertz@gnosis.cx::odVZhQMP:7ca28" check-stamp
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 8 } [ 8 salt length ] unit-test
|
