Artifact 3f7eef5d99eebb20b5ca82616043c7c8fa7c9c93:

• File tests/bob-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: 628)

0000: 5c 20 6e 65 74 32 6f 20 74 65 73 74 73 20 2d 20  \ net2o tests - 
0010: 6d 73 67 0a 0a 72 65 71 75 69 72 65 20 2e 2e 2f  msg..require ../
0020: 63 6c 69 65 6e 74 2d 74 65 73 74 73 2e 66 73 0a  client-tests.fs.
0030: 72 65 71 75 69 72 65 20 2e 2e 2f 74 65 73 74 2d  require ../test-
0040: 6b 65 79 73 2e 66 73 20 5c 20 77 65 20 77 61 6e  keys.fs \ we wan
0050: 74 20 74 68 65 20 74 65 73 74 20 6b 65 79 73 20  t the test keys 
0060: 2d 20 6e 65 76 65 72 20 75 73 65 20 74 68 69 73  - never use this
0070: 20 69 6e 20 70 72 6f 64 75 63 74 69 6f 6e 21 0a   in production!.
0080: 0a 2b 64 62 20 73 74 61 74 28 20 5c 20 29 0a 73  .+db stat( \ ).s
0090: 63 72 69 70 74 3f 20 5b 49 46 5d 20 2b 64 65 62  cript? [IF] +deb
00a0: 75 67 20 25 64 72 6f 70 72 61 74 65 20 5b 54 48  ug %droprate [TH
00b0: 45 4e 5d 0a 0a 22 74 65 73 74 22 20 64 68 74 6e  EN].."test" dhtn
00c0: 69 63 6b 20 24 21 0a 0a 69 27 6d 20 62 6f 62 0a  ick $!..i'm bob.
00d0: 0a 69 6e 69 74 2d 63 6c 69 65 6e 74 0a 0a 21 74  .init-client..!t
00e0: 69 6d 65 0a 0a 3f 6e 65 78 74 61 72 67 20 5b 49  ime..?nextarg [I
00f0: 46 5d 20 6e 65 74 32 6f 2d 68 6f 73 74 20 24 21  F] net2o-host $!
0100: 20 5b 54 48 45 4e 5d 0a 3f 6e 65 78 74 61 72 67   [THEN].?nextarg
0110: 20 5b 49 46 5d 20 73 3e 6e 75 6d 62 65 72 20 64   [IF] s>number d
0120: 72 6f 70 20 74 6f 20 6e 65 74 32 6f 2d 70 6f 72  rop to net2o-por
0130: 74 20 5b 54 48 45 4e 5d 0a 0a 3a 20 63 3a 6d 73  t [THEN]..: c:ms
0140: 67 2d 74 65 73 74 20 28 20 2d 2d 20 29 0a 20 20  g-test ( -- ).  
0150: 20 20 5b 3a 20 2e 74 69 6d 65 20 2e 22 20 4d 65    [: .time ." Me
0160: 73 73 61 67 65 20 74 65 73 74 22 20 63 72 20 3b  ssage test" cr ;
0170: 5d 20 24 65 72 72 0a 20 20 20 20 22 48 69 20 41  ] $err.    "Hi A
0180: 6c 69 63 65 21 22 20 22 61 6c 69 63 65 22 20 73  lice!" "alice" s
0190: 65 6e 64 2d 74 65 78 74 2d 74 6f 20 6f 2d 74 69  end-text-to o-ti
01a0: 6d 65 6f 75 74 0a 20 20 20 20 42 45 47 49 4e 20  meout.    BEGIN 
01b0: 20 70 61 64 20 31 30 30 20 61 63 63 65 70 74 20   pad 100 accept 
01c0: 63 72 20 64 75 70 20 57 48 49 4c 45 20 20 70 61  cr dup WHILE  pa
01d0: 64 20 73 77 61 70 20 73 65 6e 64 2d 74 65 78 74  d swap send-text
01e0: 20 20 52 45 50 45 41 54 0a 20 20 20 20 64 72 6f    REPEAT.    dro
01f0: 70 20 5b 27 5d 20 2e 74 69 6d 65 20 24 65 72 72  p ['] .time $err
0200: 20 3b 0a 0a 73 63 72 69 70 74 3f 20 5b 49 46 5d   ;..script? [IF]
0210: 20 61 6e 6e 6f 75 6e 63 65 2d 6d 65 20 2e 22 20   announce-me ." 
0220: 63 6f 6e 6e 65 63 74 20 61 6c 69 63 65 3f 22 20  connect alice?" 
0230: 6b 65 79 20 64 72 6f 70 0a 20 20 20 20 22 61 6c  key drop.    "al
0240: 69 63 65 22 20 6e 61 74 3a 63 6f 6e 6e 65 63 74  ice" nat:connect
0250: 20 63 3a 6d 73 67 2d 74 65 73 74 20 63 3a 64 69   c:msg-test c:di
0260: 73 63 6f 6e 6e 65 63 74 20 62 79 65 20 5b 54 48  sconnect bye [TH
0270: 45 4e 5d 0a                                      EN].