Hex Artifact Content
Not logged in

Artifact 6fd7704108ff4731f5ed432030bfda4a76df93d4:


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 2e 2e 2f 63 6c 69 65 6e 74 2d 74  uire ../client-t
0030: 65 73 74 73 2e 66 73 0a 72 65 71 75 69 72 65 20  ests.fs.require 
0040: 2e 2e 2f 74 65 73 74 2d 6b 65 79 73 2e 66 73 20  ../test-keys.fs 
0050: 5c 20 77 65 20 77 61 6e 74 20 74 68 65 20 74 65  \ we want the te
0060: 73 74 20 6b 65 79 73 20 2d 20 6e 65 76 65 72 20  st keys - never 
0070: 75 73 65 20 74 68 69 73 20 69 6e 20 70 72 6f 64  use this in prod
0080: 75 63 74 69 6f 6e 21 0a 0a 2b 64 62 20 73 74 61  uction!..+db sta
0090: 74 28 20 5c 20 29 0a 2b 64 65 62 75 67 0a 2b 64  t( \ ).+debug.+d
00a0: 62 20 64 68 74 28 20 5c 20 29 0a 0a 22 61 6e 6f  b dht( \ ).."ano
00b0: 6e 79 6d 6f 75 73 22 20 3e 6b 65 79 20 5c 20 67  nymous" >key \ g
00c0: 65 74 20 6f 75 72 20 61 6e 6f 6e 79 6d 6f 75 73  et our anonymous
00d0: 20 6b 65 79 0a 0a 69 6e 69 74 2d 63 6c 69 65 6e   key..init-clien
00e0: 74 0a 0a 21 74 69 6d 65 0a 0a 3f 6e 65 78 74 61  t..!time..?nexta
00f0: 72 67 20 5b 49 46 5d 20 6e 65 74 32 6f 2d 68 6f  rg [IF] net2o-ho
0100: 73 74 20 24 21 20 5b 54 48 45 4e 5d 0a 3f 6e 65  st $! [THEN].?ne
0110: 78 74 61 72 67 20 5b 49 46 5d 20 73 3e 6e 75 6d  xtarg [IF] s>num
0120: 62 65 72 20 64 72 6f 70 20 74 6f 20 6e 65 74 32  ber drop to net2
0130: 6f 2d 70 6f 72 74 20 5b 54 48 45 4e 5d 0a 0a 73  o-port [THEN]..s
0140: 63 72 69 70 74 3f 20 5b 49 46 5d 20 31 20 63 3a  cript? [IF] 1 c:
0150: 64 68 74 20 62 79 65 20 5b 54 48 45 4e 5d 0a     dht bye [THEN].