Artifact d55e0475de9b02d23460933b277f0195e058c92a:

• File tests/alice-msg.fs — part of check-in [1117e9e17f] at 2015-04-07 23:32:56 on branch trunk — Change dhtnick to 'test' for testing purposes (user: bernd size: 622)

\ net2o tests - msg

require ../client-tests.fs

+db stat( \ )
script? [IF] +debug %droprate [THEN]
require ../test-keys.fs \ we want the test keys - never use this in production!

"test" dhtnick $!

i'm alice

init-client

!time

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

: c:msg-test ( -- )
    [: .time ." Message test" cr ;] $err
    "Hi Bob!" "bob" send-text-to o-timeout
    BEGIN  pad 100 accept cr dup WHILE  pad swap send-text  REPEAT
    drop ['] .time $err ;

script? [IF] announce-me ." connect bob?" key drop
    "bob" nat:connect c:msg-test c:disconnect bye [THEN]