Artifact 2378b295b0701a5141efe7b8368c8f49f3cbadd4:

• File tests/server-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: 359)

0000: 5c 20 74 65 73 74 20 66 69 6c 65 20 66 6f 72 20  \ test file for 
0010: 6e 65 74 32 6f 20 2d 20 73 65 72 76 65 72 20 73  net2o - server s
0020: 69 64 65 0a 0a 72 65 71 75 69 72 65 20 63 6c 69  ide..require cli
0030: 65 6e 74 2d 74 65 73 74 73 2e 66 73 20 5c 20 74  ent-tests.fs \ t
0040: 65 73 74 20 66 72 61 6d 65 77 6f 72 6b 0a 72 65  est framework.re
0050: 71 75 69 72 65 20 74 65 73 74 2d 6b 65 79 73 2e  quire test-keys.
0060: 66 73 20 5c 20 77 65 20 77 61 6e 74 20 74 68 65  fs \ we want the
0070: 20 74 65 73 74 20 6b 65 79 73 20 2d 20 6e 65 76   test keys - nev
0080: 65 72 20 75 73 65 20 74 68 69 73 20 69 6e 20 70  er use this in p
0090: 72 6f 64 75 63 74 69 6f 6e 21 0a 0a 2b 64 65 62  roduction!..+deb
00a0: 75 67 0a 25 64 72 6f 70 72 61 74 65 0a 5c 20 62  ug.%droprate.\ b
00b0: 67 28 20 29 65 6c 73 65 28 20 64 65 62 75 67 2d  g( )else( debug-
00c0: 74 61 73 6b 20 29 0a 0a 2b 64 62 20 6e 6f 30 6b  task )..+db no0k
00d0: 65 79 28 20 5c 20 29 0a 70 65 72 6d 25 6d 79 73  ey( \ ).perm%mys
00e0: 65 6c 66 20 64 75 70 20 74 6f 20 70 65 72 6d 25  elf dup to perm%
00f0: 75 6e 6b 6e 6f 77 6e 20 74 6f 20 70 65 72 6d 25  unknown to perm%
0100: 64 65 66 61 75 6c 74 0a 0a 63 6d 64 2d 61 72 67  default..cmd-arg
0110: 73 20 3f 6e 65 78 74 61 72 67 20 5b 49 46 5d 20  s ?nextarg [IF] 
0120: 73 3e 6e 75 6d 62 65 72 20 64 72 6f 70 20 74 6f  s>number drop to
0130: 20 6e 65 74 32 6f 2d 70 6f 72 74 20 5b 54 48 45   net2o-port [THE
0140: 4e 5d 0a 0a 69 27 6d 20 74 65 73 74 0a 0a 69 6e  N]..i'm test..in
0150: 69 74 2d 73 65 72 76 65 72 0a 73 65 72 76 65 72  it-server.server
0160: 2d 6c 6f 6f 70 0a 0a                             -loop..