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)

0000: 5c 20 70 6f 70 75 6c 61 74 65 20 44 48 54 20 74  \ populate DHT t
0010: 65 73 74 0a 0a 72 65 71 75 69 72 65 20 2e 2e 2f  est..require ../
0020: 6e 65 74 32 6f 2e 66 73 0a 0a 22 61 6e 6f 6e 79  net2o.fs.."anony
0030: 6d 6f 75 73 22 20 3e 6b 65 79 20 5c 20 67 65 74  mous" >key \ get
0040: 20 6f 75 72 20 61 6e 6f 6e 79 6d 6f 75 73 20 6b   our anonymous k
0050: 65 79 0a 0a 70 6b 63 20 6b 65 79 73 69 7a 65 20  ey..pkc keysize 
0060: 3e 64 23 69 64 0a 0a 56 61 72 69 61 62 6c 65 20  >d#id..Variable 
0070: 24 74 61 67 0a 3a 20 74 61 67 2d 77 6f 72 64 20  $tag.: tag-word 
0080: 20 6e 61 6d 65 3e 73 74 72 69 6e 67 20 24 74 61   name>string $ta
0090: 67 20 24 21 20 73 22 20 3a 77 6f 72 64 22 20 24  g $! s" :word" $
00a0: 74 61 67 20 24 2b 21 0a 20 20 20 20 24 74 61 67  tag $+!.    $tag
00b0: 20 24 40 20 70 6b 63 20 6b 65 79 73 69 7a 65 20   $@ pkc keysize 
00c0: 67 65 6e 2d 74 61 67 20 6b 23 74 61 67 73 20 64  gen-tag k#tags d
00d0: 23 76 61 6c 75 65 2b 20 3b 0a 6e 6f 77 3e 6e 65  #value+ ;.now>ne
00e0: 76 65 72 0a 66 6f 72 74 68 2d 77 6f 72 64 6c 69  ver.forth-wordli
00f0: 73 74 20 27 20 74 61 67 2d 77 6f 72 64 20 6d 61  st ' tag-word ma
0100: 70 2d 77 6f 72 64 6c 69 73 74 0a 70 61 64 20 24  p-wordlist.pad $
0110: 31 30 30 30 30 30 20 24 66 30 20 64 23 76 61 6c  100000 $f0 d#val
0120: 75 65 73 2c 20 32 64 72 6f 70                    ues, 2drop