mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-28 11:10:51 +00:00
46 lines
1.6 KiB
Mathematica
46 lines
1.6 KiB
Mathematica
|
#import <Foundation/NSString.h>
|
||
|
#import <Foundation/NSAttributedString.h>
|
||
|
#import <Foundation/NSAutoreleasePool.h>
|
||
|
#import "ObjectTesting.h"
|
||
|
|
||
|
int main()
|
||
|
{
|
||
|
NSAutoreleasePool *arp = [NSAutoreleasePool new];
|
||
|
NSString *key1, *val1, *str1;
|
||
|
NSRange r = NSMakeRange(0,6);
|
||
|
NSAttributedString *astr1, *astr2;
|
||
|
NSDictionary *dict1;
|
||
|
NSRange range = NSMakeRange(0,0);
|
||
|
id obj;
|
||
|
|
||
|
key1 = @"Helvetica 12-point";
|
||
|
val1 = @"NSFontAttributeName";
|
||
|
str1 = @"Attributed string test";
|
||
|
dict1 = [NSDictionary dictionaryWithObject:val1 forKey:key1];
|
||
|
|
||
|
astr1 = [[NSAttributedString alloc] initWithString:str1 attributes:dict1];
|
||
|
PASS(astr1 != nil && [astr1 isKindOfClass:[NSAttributedString class]] &&
|
||
|
[[astr1 string] isEqual: str1],"-initWithString:attributes: works");
|
||
|
|
||
|
obj = [astr1 attributesAtIndex:0 effectiveRange:&range];
|
||
|
PASS(obj != nil && [obj isKindOfClass:[NSDictionary class]] &&
|
||
|
[obj count] == 1 && range.length != 0,
|
||
|
"-attributesAtIndex:effectiveRange: works");
|
||
|
|
||
|
obj = [astr1 attribute:key1 atIndex:0 effectiveRange:&range];
|
||
|
PASS(obj != nil && [obj isEqual:val1] && range.length != 0,
|
||
|
"-attribute:atIndex:effectiveRange: works");
|
||
|
obj = [astr1 attributedSubstringFromRange:r];
|
||
|
PASS(obj != nil && [obj isKindOfClass:[NSAttributedString class]] &&
|
||
|
[obj length] == r.length,"-attributedSubstringFromRange works");
|
||
|
|
||
|
r = NSMakeRange(0,[astr1 length]);
|
||
|
astr2 = [astr1 attributedSubstringFromRange:r];
|
||
|
PASS(astr2 != nil && [astr1 isEqualToAttributedString:astr2],
|
||
|
"extract and compare using -isEqualToAttributedString works");
|
||
|
|
||
|
[arp release]; arp = nil;
|
||
|
return 0;
|
||
|
}
|
||
|
|