mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-29 11:31:11 +00:00
31 lines
1.1 KiB
Mathematica
31 lines
1.1 KiB
Mathematica
|
#import "ObjectTesting.h"
|
||
|
#import <Foundation/NSAutoreleasePool.h>
|
||
|
#import <Foundation/NSString.h>
|
||
|
|
||
|
int main()
|
||
|
{
|
||
|
NSAutoreleasePool *arp = [NSAutoreleasePool new];
|
||
|
double d;
|
||
|
|
||
|
PASS([@"12" intValue] == 12, "simple intValue works");
|
||
|
PASS([@"-12" intValue] == -12, "negative intValue works");
|
||
|
PASS([@"+12" intValue] == 12, "positive intValue works");
|
||
|
PASS([@"1.6" intValue] == 1, "intValue ignores trailing data");
|
||
|
PASS([@" 12" intValue] == 12,
|
||
|
"intValue with leading space works");
|
||
|
|
||
|
d = [@"1.2" doubleValue];
|
||
|
pass(d > 1.199999 && d < 1.200001, "simple doubleValue works");
|
||
|
d = [@"-1.2" doubleValue];
|
||
|
pass(d < -1.199999 && d > -1.200001, "negative doubleValue works");
|
||
|
d = [@"+1.2" doubleValue];
|
||
|
pass(d > 1.199999 && d < 1.200001, "positive doubleValue works");
|
||
|
d = [@"+1.2 x" doubleValue];
|
||
|
pass(d > 1.199999 && d < 1.200001, "doubleValue ignores trailing data");
|
||
|
d = [@" 1.2" doubleValue];
|
||
|
pass(d > 1.199999 && d < 1.200001, "doubleValue with leading space works");
|
||
|
|
||
|
[arp release]; arp = nil;
|
||
|
return 0;
|
||
|
}
|