gcc/testsuite/objc/execute/class-tests-1.h

   1 /* Contributed by Nicola Pero on Tue Mar  6 23:05:53 CET 2001 */
   2
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include "../../objc-obj-c++-shared/Object1.h"
   6 #include <objc/objc.h>
   7 #include <objc/objc-api.h>
   8
   9 /*
  10  * Standard Tests For Classes and Objects - abort upon failing; return
  11  * normally if all is well.
  12  */
  13
  14 /* Test that `class' is a Class */
  15 static void test_is_class (Class class)
  16 {
  17   if (object_is_class (class) == NO)
  18     {
  19       printf ("test_is_class failed\n");
  20       abort ();
  21     }
  22
  23   if (class_is_class (class) == NO)
  24     {
  25       printf ("test_is_class failed\n");
  26       abort ();
  27     }
  28 }
  29
  30 /* Test that the superclass of `class' is `superclass' */
  31 static void test_superclass (Class class, Class superclass)
  32 {
  33   if (class_get_super_class (class) != superclass)
  34     {
  35       printf ("test_superclass failed\n");
  36       abort ();
  37     }
  38 }
  39
  40 /* Test that the classname of `class' is `classname' */
  41 static void test_class_name (Class class, const char *classname)
  42 {
  43   if (strcmp (class_get_class_name (class), classname))
  44     {
  45       printf ("test_class_name failed\n");
  46       abort ();
  47     }
  48 }
  49
  50 /* Test that we can allocate instances of `class' */
  51 static void test_allocate (Class class)
  52 {
  53   /* The object we create is leaked but who cares, this is only a test */
  54   id object = class_create_instance (class);
  55
  56   if (object == nil)
  57     {
  58       printf ("test_allocate failed\n");
  59       abort ();
  60     }
  61 }
  62
  63 /* Test that instances of `class' are instances and not classes */
  64 static void test_instances (Class class)
  65 {
  66   id object = class_create_instance (class);
  67
  68   if (object_is_class (object) == YES)
  69     {
  70       printf ("test_instances failed\n");
  71       abort ();
  72     }
  73 }
  74
  75 /* Test that we can deallocate instances of `class' */
  76 static void test_deallocate (Class class)
  77 {
  78   id object = class_create_instance (class);
  79
  80   object_dispose (object);
  81 }
  82
  83 /* Test that the object and the class agree on what the class is */
  84 static void test_object_class (Class class)
  85 {
  86   id object = class_create_instance (class);
  87
  88   if (object_get_class (object) != class)
  89     {
  90       printf ("test_object_class failed\n");
  91       abort ();
  92     }
  93 }
  94
  95 /* Test that the object and the class agree on what the superclass is */
  96 static void test_object_super_class (Class class)
  97 {
  98   id object = class_create_instance (class);
  99
 100   if (object_get_super_class (object) != class_get_super_class (class))
 101     {
 102       printf ("test_object_super_class failed\n");
 103       abort ();
 104     }
 105 }
 106
 107 /*
 108  *  Runs all the tests in this file for the specified class
 109  */
 110 void test_class_with_superclass (const char *class_name,
 111                                  const char *superclass_name)
 112 {
 113   Class class;
 114   Class superclass;
 115
 116   /* We need at least a method call before playing with the internals,
 117      so that the runtime will call __objc_resolve_class_links () */
 118   [Object class];
 119
 120   /* class_name must be an existing class */
 121   class = objc_lookup_class (class_name);
 122   test_is_class (class);
 123
 124   /* But superclass_name can be "", which means `Nil' */
 125   superclass = objc_lookup_class (superclass_name);
 126   if (superclass != Nil)
 127     {
 128       test_is_class (superclass);
 129     }
 130
 131   /* Now the tests */
 132   test_superclass (class, superclass);
 133   test_class_name (class, class_name);
 134   test_allocate (class);
 135   test_instances (class);
 136   test_deallocate (class);
 137   test_object_class (class);
 138   test_object_super_class (class);
 139 }