Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/objc/execute/class-5.m @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ #include <objc/objc.h> /* Tests creating a root class and a subclass with an ivar and accessor methods and a subclass overriding the superclass' implementation */ @interface RootClass { Class isa; } @end @implementation RootClass + initialize { return self; } @end @interface SubClass : RootClass { int state; } - (void) setState: (int)number; - (int) state; @end @implementation SubClass - (void) setState: (int)number { state = number; } - (int) state { return state; } @end @interface SubSubClass : SubClass @end @implementation SubSubClass - (int) state { return state + 1; } @end #include "class-tests-1.h" #define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD SubClass * #include "class-tests-2.h" int main (void) { SubClass *object; SubSubClass *sub_object; test_class_with_superclass ("SubClass", "RootClass"); test_that_class_has_instance_method ("SubClass", @selector (setState:)); test_that_class_has_instance_method ("SubClass", @selector (state)); test_class_with_superclass ("SubSubClass", "SubClass"); test_that_class_has_instance_method ("SubSubClass", @selector (setState:)); test_that_class_has_instance_method ("SubSubClass", @selector (state)); object = class_createInstance (objc_getClass ("SubClass"), 0); test_accessor_method (object, 0, -1, -1, 1, 1); sub_object = class_createInstance (objc_getClass ("SubSubClass"), 0); test_accessor_method (sub_object, 1, -1, 0, 1, 2); return 0; }