X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fobjc%2Fexecute%2Fclass-14.m;fp=gcc%2Ftestsuite%2Fobjc%2Fexecute%2Fclass-14.m;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=2827031358cb65941b305e52bafbf32b540a33f7;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/objc/execute/class-14.m b/gcc/testsuite/objc/execute/class-14.m deleted file mode 100644 index 28270313..00000000 --- a/gcc/testsuite/objc/execute/class-14.m +++ /dev/null @@ -1,76 +0,0 @@ -/* Contributed by Nicola Pero - Tue Mar 6 23:05:53 CET 2001 */ -#include -#include - -/* Tests creating a root class and a subclass with a class accessor - methods and a subclass overriding the superclass' implementation, - and using self to call another method of itself */ - -@interface RootClass -{ - Class isa; -} -@end - -@implementation RootClass -@end - -static int class_variable = 0; - -@interface SubClass : RootClass -+ (void) setState: (int)number; -+ (int) state; -@end - -@implementation SubClass -+ (void) setState: (int)number -{ - class_variable = number; -} -+ (int) state -{ - return class_variable; -} -@end - -@interface SubSubClass : SubClass -+ (int) shift; -@end - -@implementation SubSubClass -+ (int) state -{ - return class_variable + [self shift]; -} -+ (int) shift -{ - return 1; -} -@end - -#include "class-tests-1.h" -#define TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD Class -#include "class-tests-2.h" - -int main (void) -{ - Class class, sub_class; - - test_class_with_superclass ("SubClass", "RootClass"); - test_that_class_has_class_method ("SubClass", @selector (setState:)); - test_that_class_has_class_method ("SubClass", @selector (state)); - - test_class_with_superclass ("SubSubClass", "SubClass"); - test_that_class_has_class_method ("SubSubClass", @selector (setState:)); - test_that_class_has_class_method ("SubSubClass", @selector (state)); - test_that_class_has_class_method ("SubSubClass", @selector (shift)); - - class = objc_lookup_class ("SubClass"); - test_accessor_method (class, 0, -1, -1, 1, 1); - - sub_class = objc_lookup_class ("SubSubClass"); - class_variable = 0; - test_accessor_method (sub_class, 1, -1, 0, 1, 2); - - return 0; -}