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