gcc/testsuite/objc.dg/special/unclaimed-category-1.m

   1 /* Contributed by Nicola Pero - Fri Dec 14 08:36:00 GMT 2001 */
   2 /* { dg-do run } */
   3 #include <objc/objc.h>
   4 #include <objc/objc-api.h>
   5 #include <objc/Object.h>
   6
   7 extern void abort (void);
   8
   9 /* Test loading unclaimed categories - categories of a class defined
  10    separately from the class itself.  */
  11
  12
  13 /* unclaimed-category-1.m contains only the class definition but not
  14    the categories.  unclaimed-category-1a.m contains only the
  15    categories of the class, but not the class itself.  We want to
  16    check that the runtime can load the class from one module (file)
  17    and the categories from another module (file).  */
  18
  19 #include "unclaimed-category-1.h"
  20
  21 @implementation TestClass
  22 - (int)D
  23 {
  24   return 4;
  25 }
  26 #ifdef __NEXT_RUNTIME__
  27 + initialize { return self; }
  28 #endif
  29 @end
  30
  31
  32 int main (void)
  33 {
  34   TestClass *test;
  35   Class testClass;
  36
  37   testClass = objc_get_class ("TestClass");
  38   if (testClass == Nil)
  39     {
  40       abort ();
  41     }
  42
  43   test = (TestClass *)(class_create_instance (testClass));
  44   if (test == nil)
  45     {
  46       abort ();
  47     }
  48
  49   if ([test A] != 1)
  50     {
  51       abort ();
  52     }
  53
  54   if ([test B] != 2)
  55     {
  56       abort ();
  57     }
  58
  59   if ([test C] != 3)
  60     {
  61       abort ();
  62     }
  63
  64
  65   if ([test D] != 4)
  66     {
  67       abort ();
  68     }
  69
  70   return 0;
  71 }