libs-base/Tests/base/NSProcessInfo/general.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

47 lines
1.3 KiB
Objective-C

#import "Testing.h"
#import <Foundation/NSArray.h>
#import <Foundation/NSAutoreleasePool.h>
#import <Foundation/NSProcessInfo.h>
#import <Foundation/NSString.h>
int main()
{
NSAutoreleasePool *arp = [NSAutoreleasePool new];
NSProcessInfo *info = [NSProcessInfo processInfo];
id obj;
unsigned int val;
PASS(info != nil, "NSProcessInfo understands [+processInfo]");
obj = [info arguments];
PASS((info != nil &&
[obj isKindOfClass:[NSArray class]] &&
[obj count] != 0),
"NSProcessInfo has arguments");
obj = [info environment];
PASS((obj != nil &&
[obj isKindOfClass:[NSDictionary class]]),
"NSProcessInfo has environment");
obj = [info processName];
PASS((obj != nil &&
[obj isKindOfClass:[NSString class]] &&
[obj length] > 0),
"-processName is non-nil");
obj = [info globallyUniqueString];
PASS((obj != nil &&
[obj isKindOfClass:[NSString class]] &&
[obj length] > 0),
"-globallyUniqueString works");
obj = [info operatingSystemName];
PASS((obj != nil &&
[obj isKindOfClass:[NSString class]] &&
[obj length] > 0),
"-operatingSystemName works");
val = [info operatingSystem];
PASS(val != 0, "-operatingSystem works");
[arp release]; arp = nil;
return 0;
}