Artifact 5ab265eebe77ce2539d2b15c2722a9dc47806c94:
- File tests/client-test.fs — part of check-in [ad3b70a512] at 2016-05-01 21:41:59 on branch trunk — Move tests (need to make them run again) (user: bernd size: 402)
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 20 5c 20 29 !..+db stat( \ ) 0090: 0a 2b 64 65 62 75 67 0a 25 64 72 6f 70 72 61 74 .+debug.%droprat 00a0: 65 0a 64 65 62 75 67 2d 74 61 73 6b 0a 0a 69 27 e.debug-task..i' 00b0: 6d 20 61 6e 6f 6e 79 6d 6f 75 73 0a 0a 69 6e 69 m anonymous..ini 00c0: 74 2d 63 6c 69 65 6e 74 0a 0a 22 74 65 73 74 22 t-client.."test" 00d0: 20 63 6f 6e 6e 65 63 74 2d 6e 69 63 6b 20 24 21 connect-nick $! 00e0: 0a 0a 21 74 69 6d 65 0a 63 6d 64 2d 61 72 67 73 ..!time.cmd-args 00f0: 0a 3f 6e 65 78 74 61 72 67 20 5b 49 46 5d 20 6e .?nextarg [IF] n 0100: 65 74 32 6f 2d 68 6f 73 74 20 24 21 20 5b 54 48 et2o-host $! [TH 0110: 45 4e 5d 0a 3f 6e 65 78 74 61 72 67 20 5b 49 46 EN].?nextarg [IF 0120: 5d 20 73 3e 6e 75 6d 62 65 72 20 64 72 6f 70 20 ] s>number drop 0130: 74 6f 20 6e 65 74 32 6f 2d 70 6f 72 74 20 5b 54 to net2o-port [T 0140: 48 45 4e 5d 0a 3f 6e 65 78 74 61 72 67 20 5b 49 HEN].?nextarg [I 0150: 46 5d 20 73 3e 6e 75 6d 62 65 72 20 64 72 6f 70 F] s>number drop 0160: 20 5b 45 4c 53 45 5d 20 31 20 5b 54 48 45 4e 5d [ELSE] 1 [THEN] 0170: 20 63 3a 74 65 73 74 73 0a 0a 73 63 72 69 70 74 c:tests..script 0180: 3f 20 5b 49 46 5d 20 62 79 65 20 5b 54 48 45 4e ? [IF] bye [THEN 0190: 5d 0a ].