gcc/testsuite/obj-c++.dg/gnu-api-2-property.mm

   1 /* Test the Modern GNU Objective-C Runtime API.
   2
   3   This is test 'property', covering all functions starting with 'property'.  */
   4
   5 /* { dg-do run } */
   6
   7 /* To get the modern GNU Objective-C Runtime API, you include
   8    objc/runtime.h.  */
   9 #include <objc/runtime.h>
  10 #include <stdlib.h>
  11 #include <iostream>
  12 #include <cstring>
  13
  14 @interface MyRootClass
  15 { Class isa; }
  16 + alloc;
  17 - init;
  18 + initialize;
  19 @end
  20
  21 @implementation MyRootClass
  22 + alloc { return class_createInstance (self, 0); }
  23 - init  { return self; }
  24 + initialize { return self; }
  25 @end
  26
  27 @protocol MyProtocol
  28 - (id) variable;
  29 @end
  30
  31 @protocol MySecondProtocol
  32 - (id) setVariable: (id)value;
  33 @end
  34
  35 @interface MySubClass : MyRootClass <MyProtocol>
  36 { id variable_ivar; }
  37 - (void) setVariable: (id)value;
  38 - (id) variable;
  39 @end
  40
  41 @implementation MySubClass
  42 - (void) setVariable: (id)value { variable_ivar = value; }
  43 - (id) variable { return variable_ivar; }
  44 @end
  45
  46
  47 int main ()
  48 {
  49   /* Functions are tested in alphabetical order.  */
  50
  51   /* TODO: Test new ABI (when available).  */
  52   std::cout << "Testing property_getAttributes () ...\n";
  53   {
  54     /* The Apple/NeXT runtime seems to crash on the following.  */
  55 #ifdef __GNU_LIBOBJC__
  56     if (property_getAttributes (NULL) != NULL)
  57       abort ();
  58 #endif
  59   }
  60
  61   /* TODO: Test new ABI (when available).  */
  62   std::cout << "Testing property_getName () ...\n";
  63   {
  64     /* The Apple/NeXT runtime seems to crash on the following.  */
  65 #ifdef __GNU_LIBOBJC__
  66
  67     if (property_getName (NULL) != NULL)
  68       abort ();
  69 #endif
  70   }
  71
  72   return (0);
  73 }