alice-test.fs 432 Bytes
Newer Older
bernd's avatar
bernd committed
1 2 3 4
\ net2o tests - client side

require net2o.fs
require client-tests.fs
5
require test-keys.fs \ we want the test keys - never use this in production!
bernd's avatar
bernd committed
6 7 8 9

+db stat(
+debug
%droprate
10
script? [IF] debug-task [THEN]
bernd's avatar
bernd committed
11

bernd's avatar
bernd committed
12
i'm alice
bernd's avatar
bernd committed
13

bernd's avatar
bernd committed
14 15 16 17 18 19 20 21 22
init-client

!time

?nextarg [IF] net2o-host $! [THEN]
?nextarg [IF] s>number drop to net2o-port [THEN]

\ ?nextarg [IF] s>number drop [ELSE] 1 [THEN] c:tests

bernd's avatar
bernd committed
23
script? [IF] "bob" nat:connect c:test-rest bye [THEN]