gcc/testsuite/objc.dg/gnu-api-2-object.m

   1 /* Test the Modern GNU Objective-C Runtime API.
   2
   3   This is test 'object', covering all functions starting with 'object'.  */
   4
   5 /* { dg-do run } */
   6 /* { dg-skip-if "No API#2 pre-Darwin9" { *-*-darwin[5-8]* } { "-fnext-runtime" } { "" } } */
   7 /* { dg-xfail-run-if "Needs OBJC2 ABI" { *-*-darwin* && { lp64 && { ! objc2 } } } { "-fnext-runtime" } { "" } } */
   8
   9 /* To get the modern GNU Objective-C Runtime API, you include
  10    objc/runtime.h.  */
  11 #include <objc/runtime.h>
  12 #include <stdlib.h>
  13 #include <stdio.h>
  14 #include <string.h>
  15
  16 @interface MyRootClass
  17 { Class isa; }
  18 + alloc;
  19 - init;
  20 + initialize;
  21 @end
  22
  23 @implementation MyRootClass
  24 + alloc { return class_createInstance (self, 0); }
  25 - init  { return self; }
  26 + initialize { return self; }
  27 @end
  28
  29 @protocol MyProtocol
  30 - (id) variable;
  31 @end
  32
  33 @protocol MySecondProtocol
  34 - (id) setVariable: (id)value;
  35 @end
  36
  37 @interface MySubClass : MyRootClass <MyProtocol>
  38 { id variable_ivar; }
  39 - (void) setVariable: (id)value;
  40 - (id) variable;
  41 @end
  42
  43 @implementation MySubClass
  44 - (void) setVariable: (id)value { variable_ivar = value; }
  45 - (id) variable { return variable_ivar; }
  46 @end
  47
  48 @interface MySubSubClass : MySubClass
  49 - (id) test;
  50 @end
  51
  52 @implementation MySubSubClass
  53 - (id) test { return self; }
  54 @end
  55
  56
  57
  58 int main(int argc, void **args)
  59 {
  60   /* Functions are tested in alphabetical order.  */
  61
  62   printf ("Testing object_copy () ...\n");
  63   {
  64     MySubClass *object_a = [[MySubClass alloc] init];
  65     MySubClass *object_b = object_copy (object_a, 0);
  66
  67     [object_b setVariable: object_a];
  68     if ([object_b variable] != object_a)
  69       abort ();
  70   }
  71
  72   printf ("Testing object_dispose () ...\n");
  73   {
  74     MySubClass *object = [[MySubClass alloc] init];
  75
  76     object_dispose (object);
  77   }
  78
  79   printf ("Testing object_getClass () ...\n");
  80   {
  81     MyRootClass *o = [[MySubClass alloc] init];
  82
  83     if (object_getClass (o) != objc_getClass ("MySubClass"))
  84       abort ();
  85   }
  86
  87   printf ("Testing object_getClassName () ...\n");
  88   {
  89     MyRootClass *o = [[MyRootClass alloc] init];
  90
  91     if (strcmp (object_getClassName (o), "MyRootClass") != 0)
  92       abort ();
  93   }
  94
  95   printf ("Testing object_getIndexedIvars () ...\n");
  96   {
  97     if (object_getIndexedIvars ([[MyRootClass alloc] init]) == NULL)
  98       abort ();
  99   }
 100
 101   printf ("Testing object_getInstanceVariable () ...\n");
 102   {
 103     MySubClass *o = [[MySubClass alloc] init];
 104     id value;
 105
 106     [o setVariable: o];
 107
 108     if (object_getInstanceVariable (o, "variable_ivar", (void **)&value) == NULL)
 109       abort ();
 110
 111     if (value != o)
 112       abort ();
 113   }
 114
 115   printf ("Testing object_getIvar () ...\n");
 116   {
 117     MySubClass *o = [[MySubClass alloc] init];
 118     Ivar ivar = class_getInstanceVariable (objc_getClass ("MySubClass"), "variable_ivar");
 119
 120     [o setVariable: o];
 121
 122     if (object_getIvar (o, ivar) != o)
 123       abort ();
 124   }
 125
 126   printf ("Testing object_setClass () ...\n");
 127   {
 128     MySubClass *o = [[MySubClass alloc] init];
 129
 130     object_setClass (o, objc_getClass ("MySubSubClass"));
 131
 132     if ([(MySubSubClass *)o test] != o)
 133       abort ();
 134   }
 135
 136   printf ("Testing object_setInstanceVariable () ...\n");
 137   {
 138     MySubClass *o = [[MySubClass alloc] init];
 139
 140     [o setVariable: nil];
 141
 142     if (object_setInstanceVariable (o, "variable_ivar", (void *)o) == NULL)
 143       abort ();
 144
 145     if ([o variable] != o)
 146       abort ();
 147   }
 148
 149   printf ("Testing object_setIvar () ...\n");
 150   {
 151     MySubClass *o = [[MySubClass alloc] init];
 152     MySubClass *value = [[MySubClass alloc] init];
 153     Ivar ivar = class_getInstanceVariable (objc_getClass ("MySubClass"), "variable_ivar");
 154
 155     [o setVariable: o];
 156
 157     object_setIvar (o, ivar, value);
 158
 159     if ([o variable] != value)
 160       abort ();
 161   }
 162
 163   return 0;
 164 }