Artifact Content
Not logged in

Artifact 39ec2d44f1b65bbf6355dc9e6364116ad6c8a192:


\ net2o tests - client side

require client-tests.fs
require test-keys.fs \ we want the test keys - never use this in production!

+db stat(
+debug
%droprate
debug-task

i'm bob

init-client

!time

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

: c:revoke-bob ( -- )
    now>never
    x" D82AF4AE7CD3DA7316CE6F26BC5792F4F5E6B36B4C14F7D60C49B421AE1D5468"
    revoke-me ;

: c:bob ( -- ) 
    $2000 $10000 "" ins-ip dup add-beacon c:connect
    ." Bob connected with: " pkc $20 85type cr
    c:revoke-bob
    ." Bob revoked: " pkc $20 85type  cr
    replace-me
    ." Bob replaced: " pkc $20 85type  cr
    disconnect-me ;

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

script? [IF] bye [THEN]