16 lines
333 B
Factor
16 lines
333 B
Factor
USING: accessors sequences tools.test hashcash ;
|
|
|
|
[ t ] [ "foo@bar.com" mint check-stamp ] unit-test
|
|
|
|
[ t ] [
|
|
<hashcash>
|
|
"foo@bar.com" >>resource
|
|
16 >>bits
|
|
mint* check-stamp ] unit-test
|
|
|
|
[ t ] [
|
|
"1:20:040927:mertz@gnosis.cx::odVZhQMP:7ca28" check-stamp
|
|
] unit-test
|
|
|
|
[ 8 ] [ 8 salt length ] unit-test
|