Artifact c6b0feca3819dbf7ce358a5a5e01b844ef4f3b42:

• File tests/dht-pop.fs — part of check-in [ec5b614a8a] at 2014-02-10 23:05:38 on branch trunk — Test DHT bulk query (user: bernd size: 298)

\ populate DHT test

require ../net2o.fs

"anonymous" >key \ get our anonymous key

pkc keysize >d#id

Variable $tag
: tag-word  name>string $tag $! s" :word" $tag $+!
    $tag $@ pkc keysize gen-tag k#tags d#value+ ;
now>never
forth-wordlist ' tag-word map-wordlist
pad $100000 $f0 d#values, 2drop