gcc/testsuite/objc/execute/class_self-2.m

   1 /* Contributed by Nicola Pero - Fri Oct 26 22:39:32 BST 2001 */
   2 #include <objc/objc.h>
   3
   4 /* Test calling a class method on self where self has been redefined
   5    to be another class - the call requires a cast */
   6
   7
   8 /* The first class */
   9 struct d
  10 {
  11   int a;
  12 };
  13
  14 @interface ClassA
  15 {
  16   Class isa;
  17 }
  18 + (Class) class;
  19 + (struct d) method;
  20 @end
  21
  22 @implementation ClassA
  23 + (Class) class
  24 {
  25   return self;
  26 }
  27
  28 + (struct d) method
  29 {
  30   struct d u;
  31   u.a = 5;
  32
  33   return u;
  34 }
  35 @end
  36
  37 /* The second class */
  38 @interface TestClass
  39 {
  40   Class isa;
  41 }
  42 + (void) test;
  43 @end
  44
  45 @implementation TestClass
  46 + (void) test
  47 {
  48   self = [ClassA class];
  49
  50
  51   if ([(Class)self method].a != 5)
  52     {
  53       abort ();
  54     }
  55 }
  56
  57 @end
  58
  59
  60 int main (void)
  61 {
  62   [TestClass test];
  63
  64   return 0;
  65 }