mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-25 01:31:08 +00:00
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@37804 72102866-910b-0410-8b05-ffd578937521
50 lines
1.5 KiB
Objective-C
50 lines
1.5 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");
|
|
NSLog(@"operatingSystemName %@", obj);
|
|
val = [info operatingSystem];
|
|
PASS(val != 0, "-operatingSystem works");
|
|
obj = [info hostName];
|
|
PASS((obj != nil && [obj isKindOfClass:[NSString class]] && [obj length] > 0),
|
|
"-hostName works");
|
|
NSLog(@"hostName %@", obj);
|
|
[arp release]; arp = nil;
|
|
return 0;
|
|
}
|