\ 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!
i'm alice
init-client
!time
?nextarg [IF] net2o-host $! [THEN]
?nextarg [IF] s>number drop to net2o-port [THEN]
: c:lookup ( addr u -- id u )
$2000 $10000 "test" ins-ip c:connect
2dup c:addme-fetch-host
nick-key >o ke-pk $@
BEGIN >d#id >o 0 dht-host $[]@ o> over c@ '!' = WHILE
replace-key o> >o ke-pk $@ ." replace key: " 2dup 85type cr
2dup c:fetch-id
REPEAT o> 2drop do-disconnect ;
: c:insert-host ( addr u -- )
host>$ IF
[: check-addr1 0= IF 2drop EXIT THEN
insert-address temp-addr ins-dest
." insert host: " temp-addr $10 xtype cr
return-addr $10 0 skip nip 0= IF
temp-addr return-addr $10 move
\ temp-addr return-address $10 move
THEN ;] $>sock
ELSE 2drop THEN ;
: n2o:lookup ( addr u -- )
2dup c:lookup
0 n2o:new-context >o rdrop dest-key return-addr $10 erase
me>d#id .dht-host ['] c:insert-host $[]map ;
: nat:connect ( addr u -- )
init-cache' n2o:lookup
." trying to connect to: " return-addr $10 xtype cr
$10000 $100000 n2o:connect +flow-control +resend
." Connected!" cr
c:test-rest ;
\ ?nextarg [IF] s>number drop [ELSE] 1 [THEN] c:tests
script? [IF] "bob" nat:connect bye [THEN]