In gcc/objc/:

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / objc.dg / gnu-api-2-property.m

diff --git a/gcc/testsuite/objc.dg/gnu-api-2-property.m b/gcc/testsuite/objc.dg/gnu-api-2-property.m
index 974ab6c..12c0d8b 100644 (file)
--- a/gcc/testsuite/objc.dg/gnu-api-2-property.m
+++ b/gcc/testsuite/objc.dg/gnu-api-2-property.m
@@ -3,7 +3,7 @@
   This is test 'property', covering all functions starting with 'property'.  */
 
 /* { dg-do run } */
-/* { dg-skip-if "" { *-*-* } { "-fnext-runtime" } { "" } } */
+/* { dg-skip-if "No API#2 pre-Darwin9" { *-*-darwin[5-8]* } { "-fnext-runtime" } { "" } } */
 
 /* To get the modern GNU Objective-C Runtime API, you include
    objc/runtime.h.  */
@@ -16,30 +16,27 @@
 { Class isa; }
 + alloc;
 - init;
++ initialize;
 @end
 
 @implementation MyRootClass
 + alloc { return class_createInstance (self, 0); }
 - init  { return self; }
++ initialize { return self; }
 @end
 
-@protocol MyProtocol
-- (id) variable;
-@end
-
-@protocol MySecondProtocol
-- (id) setVariable: (id)value;
-@end
-
-@interface MySubClass : MyRootClass <MyProtocol>
-{ id variable_ivar; }
-- (void) setVariable: (id)value;
-- (id) variable;
+@interface MySubClass : MyRootClass
+{
+  id propertyA;
+  id propertyB;
+}
+@property (assign, getter=getP, setter=setP:) id propertyA;
+@property (assign, nonatomic) id propertyB;
 @end
 
 @implementation MySubClass
-- (void) setVariable: (id)value { variable_ivar = value; }
-- (id) variable { return variable_ivar; }
+@synthesize propertyA;
+@synthesize propertyB;
 @end
 
 
@@ -47,18 +44,56 @@ int main(int argc, void **args)
 {
   /* Functions are tested in alphabetical order.  */
 
-  /* TODO: Test new ABI (when available).  */
   printf ("Testing property_getAttributes () ...\n");
   {
+    /* The Apple/NeXT runtime seems to crash on the following.  */
+#ifdef __GNU_LIBOBJC__
     if (property_getAttributes (NULL) != NULL)
       abort ();
+#endif
+
+    /* The GNU runtime doesn't support looking up properties at
+       runtime yet.  */
+#ifdef __OBJC2__
+    {
+      objc_property_t property;
+      
+      property = class_getProperty (objc_getClass ("MySubClass"), "propertyA");
+      if (strcmp (property_getAttributes (property),
+                 "T@,GgetP,SsetP:,VpropertyA") != 0)
+       abort ();
+
+      property = class_getProperty (objc_getClass ("MySubClass"), "propertyB");
+      if (strcmp (property_getAttributes (property),
+                 "T@,N,VpropertyB") != 0)
+       abort ();
+    }
+#endif    
   }
 
-  /* TODO: Test new ABI (when available).  */
   printf ("Testing property_getName () ...\n");
   {
+    /* The Apple/NeXT runtime seems to crash on the following.  */
+#ifdef __GNU_LIBOBJC__
     if (property_getName (NULL) != NULL)
       abort ();
+#endif
+
+    /* The GNU runtime doesn't support looking up properties at
+       runtime yet.  */
+#ifdef __OBJC2__
+    {
+      objc_property_t property;
+      
+      property = class_getProperty (objc_getClass ("MySubClass"), "propertyA");
+      if (strcmp (property_getName (property), "propertyA") != 0)
+       abort ();
+
+      property = class_getProperty (objc_getClass ("MySubClass"), "propertyB");
+      if (strcmp (property_getName (property), "propertyB") != 0)
+       abort ();
+    }
+#endif
   }
 
   return 0;