mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-26 10:11:03 +00:00
33 lines
656 B
Mathematica
33 lines
656 B
Mathematica
|
#import <Foundation/Foundation.h>
|
||
|
|
#import "Testing.h"
|
||
|
|
|
||
|
|
static NSString *desc = @"[MyObject]";
|
||
|
|
|
||
|
|
static NSString *
|
||
|
|
myObjectDescription(id self, SEL _cmd)
|
||
|
|
{
|
||
|
|
return desc;
|
||
|
|
}
|
||
|
|
|
||
|
|
int
|
||
|
|
main(void)
|
||
|
|
{
|
||
|
|
id obj;
|
||
|
|
Class cls;
|
||
|
|
NSAutoreleasePool *pool;
|
||
|
|
|
||
|
|
pool = [NSAutoreleasePool new];
|
||
|
|
cls = (Class)objc_allocateClassPair([NSObject class], "MyObject", 0);
|
||
|
|
if (cls != Nil)
|
||
|
|
{
|
||
|
|
objc_registerClassPair(cls);
|
||
|
|
class_addMethod(cls, @selector(description),
|
||
|
|
(IMP)myObjectDescription, "@@:");
|
||
|
|
obj = [cls new];
|
||
|
|
pass([obj description] == desc, "New class's description method is called correctly");
|
||
|
|
[obj release];
|
||
|
|
}
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|