31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
-
+
-
-
-
-
+
+
+
-
-
-
+
+
+
|
static OFString *module = @"OFTCPSocket";
@implementation TestsAppDelegate (OFTCPSocketTests)
- (void)TCPSocketTests
{
OFAutoreleasePool *pool = [[OFAutoreleasePool alloc] init];
OFTCPSocket *server, *client = nil, *accepted;
OFString *service, *msg;
OFString *msg;
uint16_t port;
char buf[6];
srand(time(NULL));
port = (uint16_t)rand();
if (port < 1024)
port += 1024;
service = [OFString stringWithFormat: @"%d", port];
TEST(@"+[socket]", (server = [OFTCPSocket socket]) &&
(client = [OFTCPSocket socket]))
msg = [OFString stringWithFormat:
@"-[bindService:onNode:] (port %d)", port];
TEST(msg, R([server bindService: service
onNode: @"127.0.0.1"]))
@"-[bindToPort:onHost:] (port " @PRIu16 @")", port];
TEST(msg, R([server bindToPort: port
onHost: @"127.0.0.1"]))
TEST(@"-[listen]", R([server listen]))
TEST(@"-[connectToService:onNode:]",
R([client connectToService: service
onNode: @"127.0.0.1"]))
TEST(@"-[connectToHost:onPort:]",
R([client connectToHost: @"127.0.0.1"
onPort: port]))
TEST(@"-[accept]", (accepted = [server accept]))
TEST(@"-[remoteAddress]",
[[accepted remoteAddress] isEqual: @"127.0.0.1"])
TEST(@"-[writeString:]", [client writeString: @"Hello!"])
|