]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/objc/execute/formal_protocol-3.m
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / objc / execute / formal_protocol-3.m
diff --git a/gcc/testsuite/objc/execute/formal_protocol-3.m b/gcc/testsuite/objc/execute/formal_protocol-3.m
deleted file mode 100644 (file)
index 9fc2a76..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-/* Contributed by Nicola Pero - Fri Mar  9 21:35:47 CET 2001 */
-#include <objc/objc.h>
-#include <objc/Object.h>
-
-/* Test defining two protocol, a class adopting both of them, 
-   and using an object of type `id <Protocol1, Protocol2>' */ 
-
-@protocol Enabling
-- (BOOL) isEnabled;
-- (void) setEnabled: (BOOL)flag;
-@end
-
-@protocol Evaluating
-- (int) importance;
-@end
-
-@interface Feature : Object <Enabling, Evaluating>
-{
-  const char *name;
-  BOOL isEnabled;
-}
-@end
-
-@implementation Feature
-- (BOOL) isEnabled
-{
-  return isEnabled;
-}
-- (void) setEnabled: (BOOL)flag
-{
-  isEnabled = flag;
-}
-- (int) importance
-{
-  return 1000;
-}
-@end
-
-int main (void)
-{
-  id <Enabling, Evaluating> object;
-
-  object = [Feature new];
-
-  [object setEnabled: YES];
-  if (![object isEnabled])
-    {
-      abort ();
-    }
-
-  if ([object importance] != 1000)
-    {
-      abort ();
-    }
-
-  return 0;
-}
-