Artifact 6671b74708e955073cb829e133b5f0517dbfdb69:

• File tests/msg.fs — part of check-in [c1487ab6c3] at 2015-03-11 21:31:04 on branch trunk — Messages based on nest-sig (user: bernd size: 577)

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 0a 73 63 72 69 70  .+db stat(.scrip
0090: 74 3f 20 5b 49 46 5d 20 2b 64 65 62 75 67 20 25  t? [IF] +debug %
00a0: 64 72 6f 70 72 61 74 65 20 5b 54 48 45 4e 5d 0a  droprate [THEN].
00b0: 0a 69 27 6d 20 61 6c 69 63 65 0a 0a 69 6e 69 74  .i'm alice..init
00c0: 2d 63 6c 69 65 6e 74 0a 0a 21 74 69 6d 65 0a 0a  -client..!time..
00d0: 3f 6e 65 78 74 61 72 67 20 5b 49 46 5d 20 6e 65  ?nextarg [IF] ne
00e0: 74 32 6f 2d 68 6f 73 74 20 24 21 20 5b 54 48 45  t2o-host $! [THE
00f0: 4e 5d 0a 3f 6e 65 78 74 61 72 67 20 5b 49 46 5d  N].?nextarg [IF]
0100: 20 73 3e 6e 75 6d 62 65 72 20 64 72 6f 70 20 74   s>number drop t
0110: 6f 20 6e 65 74 32 6f 2d 70 6f 72 74 20 5b 54 48  o net2o-port [TH
0120: 45 4e 5d 0a 0a 3a 20 63 3a 6d 73 67 2d 74 65 73  EN]..: c:msg-tes
0130: 74 20 28 20 2d 2d 20 29 0a 20 20 20 20 5b 3a 20  t ( -- ).    [: 
0140: 2e 74 69 6d 65 20 2e 22 20 4d 65 73 73 61 67 65  .time ." Message
0150: 20 74 65 73 74 22 20 63 72 20 3b 5d 20 24 65 72   test" cr ;] $er
0160: 72 0a 20 20 20 20 22 54 68 69 73 20 69 73 20 61  r.    "This is a
0170: 20 74 65 73 74 20 6d 65 73 73 61 67 65 22 20 73   test message" s
0180: 65 6e 64 2d 74 65 78 74 0a 20 20 20 20 22 54 68  end-text.    "Th
0190: 69 73 20 69 73 20 61 20 73 65 63 6f 6e 64 20 74  is is a second t
01a0: 65 73 74 20 6d 65 73 73 61 67 65 22 20 73 65 6e  est message" sen
01b0: 64 2d 74 65 78 74 0a 20 20 20 20 70 61 64 20 31  d-text.    pad 1
01c0: 30 30 20 61 63 63 65 70 74 20 70 61 64 20 73 77  00 accept pad sw
01d0: 61 70 20 73 65 6e 64 2d 74 65 78 74 0a 20 20 20  ap send-text.   
01e0: 20 5b 27 5d 20 2e 74 69 6d 65 20 24 65 72 72 20   ['] .time $err 
01f0: 3b 0a 0a 73 63 72 69 70 74 3f 20 5b 49 46 5d 20  ;..script? [IF] 
0200: 24 61 20 24 65 20 22 74 65 73 74 22 20 69 6e 73  $a $e "test" ins
0210: 2d 69 70 20 63 3a 63 6f 6e 6e 65 63 74 20 63 3a  -ip c:connect c:
0220: 6d 73 67 2d 74 65 73 74 20 63 3a 64 69 73 63 6f  msg-test c:disco
0230: 6e 6e 65 63 74 20 62 79 65 20 5b 54 48 45 4e 5d  nnect bye [THEN]
0240: 0a                                               .