Artifact 46590c97b3f32353d0acc317fd9ba5f518a5c359:
- File tests/alice2-msg.fs — part of check-in [9fa4a33563] at 2016-01-22 23:47:28 on branch trunk — Added forgotten test (user: bernd size: 716)
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 38 35 22 20 .i'm alice..85" 00c0: 6b 51 75 73 4a 7a 41 3b 37 2a 3f 74 3d 75 79 40 kQusJzA;7*?t=uy@ 00d0: 58 7d 31 47 57 72 21 2b 30 71 71 70 5f 43 6e 31 X}1GWr!+0qqp_Cn1 00e0: 37 36 74 34 28 64 51 2a 3b 41 67 3c 21 4a 77 72 76t4(dQ*;Ag<!Jwr 00f0: 68 59 3c 4b 7d 5e 28 34 49 3f 35 53 62 3b 62 31 hY<K}^(4I?5Sb;b1 0100: 51 42 4c 52 72 52 6d 7e 35 38 2b 62 54 6c 6c 57 QBLRrRm~58+bTllW 0110: 22 20 6b 65 79 3a 6e 65 77 20 3e 6f 20 22 62 65 " key:new >o "be 0120: 72 6e 64 22 20 6b 65 2d 6e 69 63 6b 20 24 21 20 rnd" ke-nick $! 0130: 6f 3e 0a 0a 69 6e 69 74 2d 63 6c 69 65 6e 74 0a o>..init-client. 0140: 0a 21 74 69 6d 65 0a 0a 3f 6e 65 78 74 61 72 67 .!time..?nextarg 0150: 20 5b 49 46 5d 20 6e 65 74 32 6f 2d 68 6f 73 74 [IF] net2o-host 0160: 20 24 21 20 5b 54 48 45 4e 5d 0a 3f 6e 65 78 74 $! [THEN].?next 0170: 61 72 67 20 5b 49 46 5d 20 73 3e 6e 75 6d 62 65 arg [IF] s>numbe 0180: 72 20 64 72 6f 70 20 74 6f 20 6e 65 74 32 6f 2d r drop to net2o- 0190: 70 6f 72 74 20 5b 54 48 45 4e 5d 0a 0a 3a 20 63 port [THEN]..: c 01a0: 3a 6d 73 67 2d 74 65 73 74 20 28 20 2d 2d 20 29 :msg-test ( -- ) 01b0: 0a 20 20 20 20 5b 3a 20 2e 74 69 6d 65 20 2e 22 . [: .time ." 01c0: 20 4d 65 73 73 61 67 65 20 74 65 73 74 22 20 63 Message test" c 01d0: 72 20 3b 5d 20 24 65 72 72 0a 20 20 20 20 22 48 r ;] $err. "H 01e0: 69 20 42 6f 62 21 22 20 73 65 6e 64 2d 74 65 78 i Bob!" send-tex 01f0: 74 20 6f 2d 74 69 6d 65 6f 75 74 0a 20 20 20 20 t o-timeout. 0200: 42 45 47 49 4e 20 20 70 61 64 20 31 30 30 20 61 BEGIN pad 100 a 0210: 63 63 65 70 74 20 63 72 20 64 75 70 20 57 48 49 ccept cr dup WHI 0220: 4c 45 20 20 70 61 64 20 73 77 61 70 20 73 65 6e LE pad swap sen 0230: 64 2d 74 65 78 74 20 20 52 45 50 45 41 54 0a 20 d-text REPEAT. 0240: 20 20 20 64 72 6f 70 20 5b 27 5d 20 2e 74 69 6d drop ['] .tim 0250: 65 20 24 65 72 72 20 3b 0a 0a 73 63 72 69 70 74 e $err ;..script 0260: 3f 20 5b 49 46 5d 20 63 3a 61 6e 6e 6f 75 6e 63 ? [IF] c:announc 0270: 65 2d 6d 65 20 2e 22 20 63 6f 6e 6e 65 63 74 20 e-me ." connect 0280: 62 65 72 6e 64 3f 22 20 6b 65 79 20 64 72 6f 70 bernd?" key drop 0290: 0a 20 20 20 20 22 62 65 72 6e 64 22 20 6e 61 74 . "bernd" nat 02a0: 3a 63 6f 6e 6e 65 63 74 20 63 3a 6d 73 67 2d 74 :connect c:msg-t 02b0: 65 73 74 20 63 3a 64 69 73 63 6f 6e 6e 65 63 74 est c:disconnect 02c0: 20 62 79 65 20 5b 54 48 45 4e 5d 0a bye [THEN].