/*
* Copyright (c) 2008, 2009, 2010, 2011
* Jonathan Schleifer <js@webkeks.org>
*
* All rights reserved.
*
* This file is part of ObjFW. It may be distributed under the terms of the
* Q Public License 1.0, which can be found in the file LICENSE.QPL included in
* the packaging of this file.
*
* Alternatively, it may be distributed under the terms of the GNU General
* Public License, either version 2 or 3, which can be found in the file
* LICENSE.GPLv2 or LICENSE.GPLv3 respectively included in the packaging of this
* file.
*/
#include "config.h"
#include <stdlib.h>
#include <string.h>
#include <time.h>
#import "OFTCPSocket.h"
#import "OFString.h"
#import "OFAutoreleasePool.h"
#import "OFExceptions.h"
#import "macros.h"
#import "TestsAppDelegate.h"
static OFString *module = @"OFTCPSocket";
@implementation TestsAppDelegate (OFTCPSocketTests)
- (void)TCPSocketTests
{
OFAutoreleasePool *pool = [[OFAutoreleasePool alloc] init];
OFTCPSocket *server, *client = nil, *accepted;
OFString *msg;
uint16_t port;
char buf[6];
srand(time(NULL));
port = (uint16_t)rand();
if (port < 1024)
port += 1024;
TEST(@"+[socket]", (server = [OFTCPSocket socket]) &&
(client = [OFTCPSocket socket]))
msg = [OFString stringWithFormat:
@"-[bindToPort:onHost:] (port %" @PRIu16 @")", port];
TEST(msg, R([server bindToPort: port
onHost: @"127.0.0.1"]))
TEST(@"-[listen]", R([server listen]))
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!"])
TEST(@"-[readNBytes:intoBuffer:]", [accepted readNBytes: 6
intoBuffer: buf] &&
!memcmp(buf, "Hello!", 6))
[pool drain];
}
@end