libs-base/Tests/base/NSHost/create.m
rfm b179b29898 import testsuite
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@32187 72102866-910b-0410-8b05-ffd578937521
2011-02-16 08:21:17 +00:00

37 lines
1 KiB
Objective-C

#import "ObjectTesting.h"
#import <Foundation/NSHost.h>
#import <Foundation/NSAutoreleasePool.h>
#import <Foundation/NSString.h>
int main()
{
NSAutoreleasePool *arp = [NSAutoreleasePool new];
NSHost *current;
NSHost *localh;
NSHost *tmp;
current = [NSHost currentHost];
PASS(current != nil && [current isKindOfClass:[NSHost class]],
"NSHost understands +currentHost");
#if defined(GNUSTEP_BASE_LIBRARY)
localh = [NSHost localHost];
PASS(localh != nil && [localh isKindOfClass:[NSHost class]],
"NSHost understands +localHost");
#else
localh = current;
#endif
tmp = [NSHost hostWithName:[current name]];
PASS([tmp isEqualToHost:current], "NSHost understands +hostWithName:");
tmp = [NSHost hostWithAddress:[current address]];
PASS([tmp isEqualToHost:current], "NSHost understands +hostWithAddress:");
tmp = [NSHost hostWithName:@"127.0.0.1"];
PASS(tmp != nil && [tmp isEqualToHost:localh],
"NSHost understands [+hostWithName: 127.0.0.1]");
[arp release]; arp = nil;
return 0;
}