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)

0000: 5c 20 6e 65 74 32 6f 20 74 65 73 74 73 20 2d 20  \ net2o tests - 
0010: 63 6c 69 65 6e 74 20 73 69 64 65 0a 0a 72 65 71  client side..req
0020: 75 69 72 65 20 63 6c 69 65 6e 74 2d 74 65 73 74  uire client-test
0030: 73 2e 66 73 0a 72 65 71 75 69 72 65 20 74 65 73  s.fs.require tes
0040: 74 2d 6b 65 79 73 2e 66 73 20 5c 20 77 65 20 77  t-keys.fs \ we w
0050: 61 6e 74 20 74 68 65 20 74 65 73 74 20 6b 65 79  ant the test key
0060: 73 20 2d 20 6e 65 76 65 72 20 75 73 65 20 74 68  s - never use th
0070: 69 73 20 69 6e 20 70 72 6f 64 75 63 74 69 6f 6e  is in production
0080: 21 0a 0a 2b 64 62 20 73 74 61 74 28 0a 2b 64 65  !..+db stat(.+de
0090: 62 75 67 0a 25 64 72 6f 70 72 61 74 65 0a 64 65  bug.%droprate.de
00a0: 62 75 67 2d 74 61 73 6b 0a 0a 69 27 6d 20 62 6f  bug-task..i'm bo
00b0: 62 0a 0a 69 6e 69 74 2d 63 6c 69 65 6e 74 0a 0a  b..init-client..
00c0: 21 74 69 6d 65 0a 0a 3f 6e 65 78 74 61 72 67 20  !time..?nextarg 
00d0: 5b 49 46 5d 20 6e 65 74 32 6f 2d 68 6f 73 74 20  [IF] net2o-host 
00e0: 24 21 20 5b 54 48 45 4e 5d 0a 3f 6e 65 78 74 61  $! [THEN].?nexta
00f0: 72 67 20 5b 49 46 5d 20 73 3e 6e 75 6d 62 65 72  rg [IF] s>number
0100: 20 64 72 6f 70 20 74 6f 20 6e 65 74 32 6f 2d 70   drop to net2o-p
0110: 6f 72 74 20 5b 54 48 45 4e 5d 0a 0a 3a 20 63 3a  ort [THEN]..: c:
0120: 72 65 76 6f 6b 65 2d 62 6f 62 20 28 20 2d 2d 20  revoke-bob ( -- 
0130: 29 0a 20 20 20 20 6e 6f 77 3e 6e 65 76 65 72 0a  ).    now>never.
0140: 20 20 20 20 78 22 20 44 38 32 41 46 34 41 45 37      x" D82AF4AE7
0150: 43 44 33 44 41 37 33 31 36 43 45 36 46 32 36 42  CD3DA7316CE6F26B
0160: 43 35 37 39 32 46 34 46 35 45 36 42 33 36 42 34  C5792F4F5E6B36B4
0170: 43 31 34 46 37 44 36 30 43 34 39 42 34 32 31 41  C14F7D60C49B421A
0180: 45 31 44 35 34 36 38 22 0a 20 20 20 20 72 65 76  E1D5468".    rev
0190: 6f 6b 65 2d 6d 65 20 3b 0a 0a 3a 20 63 3a 62 6f  oke-me ;..: c:bo
01a0: 62 20 28 20 2d 2d 20 29 20 0a 20 20 20 20 24 32  b ( -- ) .    $2
01b0: 30 30 30 20 24 31 30 30 30 30 20 22 22 20 69 6e  000 $10000 "" in
01c0: 73 2d 69 70 20 64 75 70 20 61 64 64 2d 62 65 61  s-ip dup add-bea
01d0: 63 6f 6e 20 63 3a 63 6f 6e 6e 65 63 74 0a 20 20  con c:connect.  
01e0: 20 20 2e 22 20 42 6f 62 20 63 6f 6e 6e 65 63 74    ." Bob connect
01f0: 65 64 20 77 69 74 68 3a 20 22 20 70 6b 63 20 24  ed with: " pkc $
0200: 32 30 20 38 35 74 79 70 65 20 63 72 0a 20 20 20  20 85type cr.   
0210: 20 63 3a 72 65 76 6f 6b 65 2d 62 6f 62 0a 20 20   c:revoke-bob.  
0220: 20 20 2e 22 20 42 6f 62 20 72 65 76 6f 6b 65 64    ." Bob revoked
0230: 3a 20 22 20 70 6b 63 20 24 32 30 20 38 35 74 79  : " pkc $20 85ty
0240: 70 65 20 20 63 72 0a 20 20 20 20 72 65 70 6c 61  pe  cr.    repla
0250: 63 65 2d 6d 65 0a 20 20 20 20 2e 22 20 42 6f 62  ce-me.    ." Bob
0260: 20 72 65 70 6c 61 63 65 64 3a 20 22 20 70 6b 63   replaced: " pkc
0270: 20 24 32 30 20 38 35 74 79 70 65 20 20 63 72 0a   $20 85type  cr.
0280: 20 20 20 20 64 69 73 63 6f 6e 6e 65 63 74 2d 6d      disconnect-m
0290: 65 20 3b 0a 0a 63 3a 62 6f 62 20 73 65 72 76 65  e ;..c:bob serve
02a0: 72 2d 6c 6f 6f 70 0a 5c 20 3f 6e 65 78 74 61 72  r-loop.\ ?nextar
02b0: 67 20 5b 49 46 5d 20 73 3e 6e 75 6d 62 65 72 20  g [IF] s>number 
02c0: 64 72 6f 70 20 5b 45 4c 53 45 5d 20 31 20 5b 54  drop [ELSE] 1 [T
02d0: 48 45 4e 5d 20 63 3a 74 65 73 74 73 0a 0a 73 63  HEN] c:tests..sc
02e0: 72 69 70 74 3f 20 5b 49 46 5d 20 62 79 65 20 5b  ript? [IF] bye [
02f0: 54 48 45 4e 5d 0a                                THEN].