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)

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: 0a 2b 64 62 20 73 74 61 74 28 20 5c 20 29 0a 73  .+db stat( \ ).s
0040: 63 72 69 70 74 3f 20 5b 49 46 5d 20 2b 64 65 62  cript? [IF] +deb
0050: 75 67 20 25 64 72 6f 70 72 61 74 65 20 5b 54 48  ug %droprate [TH
0060: 45 4e 5d 0a 72 65 71 75 69 72 65 20 2e 2e 2f 74  EN].require ../t
0070: 65 73 74 2d 6b 65 79 73 2e 66 73 20 5c 20 77 65  est-keys.fs \ we
0080: 20 77 61 6e 74 20 74 68 65 20 74 65 73 74 20 6b   want the test k
0090: 65 79 73 20 2d 20 6e 65 76 65 72 20 75 73 65 20  eys - never use 
00a0: 74 68 69 73 20 69 6e 20 70 72 6f 64 75 63 74 69  this in producti
00b0: 6f 6e 21 0a 0a 22 74 65 73 74 22 20 64 68 74 6e  on!.."test" dhtn
00c0: 69 63 6b 20 24 21 0a 0a 69 27 6d 20 61 6c 69 63  ick $!..i'm alic
00d0: 65 0a 0a 69 6e 69 74 2d 63 6c 69 65 6e 74 0a 0a  e..init-client..
00e0: 21 74 69 6d 65 0a 0a 3f 6e 65 78 74 61 72 67 20  !time..?nextarg 
00f0: 5b 49 46 5d 20 6e 65 74 32 6f 2d 68 6f 73 74 20  [IF] net2o-host 
0100: 24 21 20 5b 54 48 45 4e 5d 0a 3f 6e 65 78 74 61  $! [THEN].?nexta
0110: 72 67 20 5b 49 46 5d 20 73 3e 6e 75 6d 62 65 72  rg [IF] s>number
0120: 20 64 72 6f 70 20 74 6f 20 6e 65 74 32 6f 2d 70   drop to net2o-p
0130: 6f 72 74 20 5b 54 48 45 4e 5d 0a 0a 3a 20 63 3a  ort [THEN]..: c:
0140: 6d 73 67 2d 74 65 73 74 20 28 20 2d 2d 20 29 0a  msg-test ( -- ).
0150: 20 20 20 20 5b 3a 20 2e 74 69 6d 65 20 2e 22 20      [: .time ." 
0160: 4d 65 73 73 61 67 65 20 74 65 73 74 22 20 63 72  Message test" cr
0170: 20 3b 5d 20 24 65 72 72 0a 20 20 20 20 22 48 69   ;] $err.    "Hi
0180: 20 42 6f 62 21 22 20 22 62 6f 62 22 20 73 65 6e   Bob!" "bob" sen
0190: 64 2d 74 65 78 74 2d 74 6f 20 6f 2d 74 69 6d 65  d-text-to o-time
01a0: 6f 75 74 0a 20 20 20 20 42 45 47 49 4e 20 20 70  out.    BEGIN  p
01b0: 61 64 20 31 30 30 20 61 63 63 65 70 74 20 63 72  ad 100 accept cr
01c0: 20 64 75 70 20 57 48 49 4c 45 20 20 70 61 64 20   dup WHILE  pad 
01d0: 73 77 61 70 20 73 65 6e 64 2d 74 65 78 74 20 20  swap send-text  
01e0: 52 45 50 45 41 54 0a 20 20 20 20 64 72 6f 70 20  REPEAT.    drop 
01f0: 5b 27 5d 20 2e 74 69 6d 65 20 24 65 72 72 20 3b  ['] .time $err ;
0200: 0a 0a 73 63 72 69 70 74 3f 20 5b 49 46 5d 20 61  ..script? [IF] a
0210: 6e 6e 6f 75 6e 63 65 2d 6d 65 20 2e 22 20 63 6f  nnounce-me ." co
0220: 6e 6e 65 63 74 20 62 6f 62 3f 22 20 6b 65 79 20  nnect bob?" key 
0230: 64 72 6f 70 0a 20 20 20 20 22 62 6f 62 22 20 6e  drop.    "bob" n
0240: 61 74 3a 63 6f 6e 6e 65 63 74 20 63 3a 6d 73 67  at:connect c:msg
0250: 2d 74 65 73 74 20 63 3a 64 69 73 63 6f 6e 6e 65  -test c:disconne
0260: 63 74 20 62 79 65 20 5b 54 48 45 4e 5d 0a        ct bye [THEN].