\ net2o tests - client side require net2o.fs require client-tests.fs +db stat( +debug %droprate script? [IF] debug-task [THEN] test-keys \ we want the test keys - never use this in production! init-client !time ?nextarg [IF] net2o-host $! [THEN] ?nextarg [IF] s>number drop to net2o-port [THEN] "alice" >key \ get our anonymous key : c:lookup ( addr u -- ) $2000 $10000 "test" c:connect 2dup c:addme-fetch-host c:disconnect o-timeout n2o:dispose-context nick-key ke-pk $@ >d#id ; : c:insert-host ( addr u -- ) host>$ IF $>sock insert-address ret-addr ins-dest ret-addr $10 punch-list $+[]! ELSE 2drop THEN ; : n2o:lookup ( addr u -- ) 2dup c:lookup 0 n2o:new-context dest-key d#id @ k#host cells + ['] c:insert-host $[]map ; "bob" n2o:lookup \ ?nextarg [IF] s>number drop [ELSE] 1 [THEN] c:tests script? [IF] bye [THEN]