Artifact 39ec2d44f1b65bbf6355dc9e6364116ad6c8a192:

• File bob-test.fs — part of check-in [5c6815f6e6] at 2016-04-05 00:53:25 on branch trunk — Use connection refused throw code for unknown key; remove strict-key flag, as permission system is a better way to express it (user: bernd size: 758)
• File tests/bob-test.fs — part of check-in [f0ab8e93ea] at 2016-05-01 20:52:28 on branch trunk — Move tests to where they belong (user: bernd size: 758)

\ 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]