#include <Foundation/NSAutoreleasePool.h>
#include <Foundation/NSProcessInfo.h>
#include <Foundation/NSRunLoop.h>
#include <Foundation/NSPortMessage.h>
#include <Foundation/NSPortNameServer.h>
#include <Foundation/NSPort.h>

@class GSTcpPort;
@interface NSPortNameServer (hack)
- (Class) setPortClass: (Class)c;
@end

int
main()
{
  NSRunLoop		*loop;
  GSTcpPort		*local;
  GSTcpPort		*remote;
  NSPortNameServer	*names;
  CREATE_AUTORELEASE_POOL(pool);

  local = [GSTcpPort new];
  loop = [NSRunLoop currentRunLoop];
  [NSPortNameServer setPortClass: [GSTcpPort class]];
  names = [NSPortNameServer systemDefaultPortNameServer];
  remote = [names portForName: @"GSTcpPort"];
  [loop addPort: (NSPort*)local forMode: NSDefaultRunLoopMode];
  [remote sendBeforeDate: [NSDate dateWithTimeIntervalSinceNow: 240]
	      components: [NSMutableArray arrayWithObject:
    [NSData dataWithBytes: "hello" length: 5]]
		    from: local
		reserved: 0];
  [loop run];
  RELEASE(pool);
  exit(0);
}