mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-28 19:20:51 +00:00
44 lines
1.4 KiB
Mathematica
44 lines
1.4 KiB
Mathematica
|
#import <Foundation/Foundation.h>
|
||
|
|
#import <Foundation/NSKeyedArchiver.h>
|
||
|
|
#import <Foundation/NSPropertyList.h>
|
||
|
|
#include <Testing.h>
|
||
|
|
int main()
|
||
|
|
{
|
||
|
|
NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
|
||
|
|
NSMutableData *m = [NSMutableData dataWithCapacity: 1024];
|
||
|
|
NSPropertyListFormat aFormat;
|
||
|
|
NSString *aString;
|
||
|
|
id pl;
|
||
|
|
NSKeyedArchiver *a;
|
||
|
|
NSKeyedUnarchiver *u;
|
||
|
|
NSMutableIndexSet *original;
|
||
|
|
NSIndexSet *decoded;
|
||
|
|
|
||
|
|
a = [[NSKeyedArchiver alloc] initForWritingWithMutableData: m];
|
||
|
|
[a setOutputFormat: NSPropertyListXMLFormat_v1_0];
|
||
|
|
|
||
|
|
original = [NSMutableIndexSet indexSetWithIndexesInRange: NSMakeRange(2,3)];
|
||
|
|
[original addIndex: 7];
|
||
|
|
[original addIndex: 557];
|
||
|
|
[original addIndex: 947];
|
||
|
|
[a encodeObject: original forKey: @"outer1"];
|
||
|
|
[a finishEncoding];
|
||
|
|
|
||
|
|
pl = [NSPropertyListSerialization propertyListFromData: m
|
||
|
|
mutabilityOption: 0
|
||
|
|
format: &aFormat
|
||
|
|
errorDescription: &aString];
|
||
|
|
pl = [(NSDictionary*)[[(NSDictionary*)pl objectForKey: @"$objects"]
|
||
|
|
objectAtIndex: 2] objectForKey: @"NS.data"];
|
||
|
|
// FIXME ... maybe check encoded data format
|
||
|
|
|
||
|
|
[a release];
|
||
|
|
|
||
|
|
u = [[NSKeyedUnarchiver alloc] initForReadingWithData: m];
|
||
|
|
decoded = [u decodeObjectForKey: @"outer1"];
|
||
|
|
PASS([decoded isEqual: original], "decoded value equals encoded");
|
||
|
|
[u release];
|
||
|
|
[pool release];
|
||
|
|
return 0;
|
||
|
|
}
|