From 0a7a4face25f4015f7da8ce3ccbb0b97ce2d1413 Mon Sep 17 00:00:00 2001
From: Nicola Pero <nicola@gcc.gnu.org>
Date: Mon, 16 Jul 2001 11:37:23 +0000
Subject: [PATCH] New tests

From-SVN: r44040
---
 gcc/testsuite/objc/execute/object_is_class.m  | 42 +++++++++++++++++++
 .../objc/execute/object_is_meta_class.m       | 41 ++++++++++++++++++
 2 files changed, 83 insertions(+)
 create mode 100644 gcc/testsuite/objc/execute/object_is_class.m
 create mode 100644 gcc/testsuite/objc/execute/object_is_meta_class.m

diff --git a/gcc/testsuite/objc/execute/object_is_class.m b/gcc/testsuite/objc/execute/object_is_class.m
new file mode 100644
index 00000000000..a053434fb14
--- /dev/null
+++ b/gcc/testsuite/objc/execute/object_is_class.m
@@ -0,0 +1,42 @@
+/* Contributed by Nicola Pero - Tue Jul  3 10:55:21 BST 2001 */
+#include <objc/objc.h>
+#include <objc/objc-api.h>
+#include <objc/Object.h>
+
+/* This test demonstrate a failure in object_is_class which was fixed */
+
+/* Create a class whose instance variables mirror the struct used for
+   Class structures in the runtime ... yes we're feeling evil today */
+@interface EvilClass : Object
+{
+  Class super_class;
+  const char* name;
+  long version;
+  unsigned long info;    
+}
+@end
+
+@implementation EvilClass
+- (id) init
+{
+  self = [super init];
+  /* The following one is used in the runtime to mark classes */
+  info = 0x1L;
+  return self;
+}
+@end
+
+int main (void)
+{
+  /* Create an object of our EvilClass */
+  EvilClass *evilObject = [EvilClass new];
+  
+  /* Now check that the object is not a class object */
+  if (object_is_class (evilObject))
+    {
+      printf ("object_is_class failed\n");
+      abort ();
+    }
+
+  return 0;
+}
diff --git a/gcc/testsuite/objc/execute/object_is_meta_class.m b/gcc/testsuite/objc/execute/object_is_meta_class.m
new file mode 100644
index 00000000000..90cd3a962f0
--- /dev/null
+++ b/gcc/testsuite/objc/execute/object_is_meta_class.m
@@ -0,0 +1,41 @@
+/* Contributed by Nicola Pero - Tue Jul  3 10:55:21 BST 2001 */
+#include <objc/objc.h>
+#include <objc/objc-api.h>
+#include <objc/Object.h>
+
+/* This test demonstrate a failure in object_is_meta_class which was fixed */
+
+@interface EvilClass : Object
+{
+  Class super_class;
+  const char* name;
+  long version;
+  unsigned long info;    
+}
+@end
+
+@implementation EvilClass
+- (id) init
+{
+  self = [super init];
+  /* The following one is used in the runtime to mark meta classes */
+  info = 0x2L;
+  return self;
+}
+@end
+
+int main (void)
+{
+  /* Create an object of our EvilClass */
+  EvilClass *evilObject = [EvilClass new];
+  
+  /* Now check that the object is not a meta class object */
+  if (object_is_meta_class (evilObject))
+    {
+      printf ("object_is_meta_class failed\n");
+      abort ();
+    }
+
+  return 0;
+}
+
-- 
2.30.2