URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [objc/] [execute/] [class-tests-2.h] - Rev 12
Compare with Previous | Blame | View Log
/* Contributed by Nicola Pero on Tue Mar 6 23:05:53 CET 2001 */ #include <objc/objc.h> #include <objc/objc-api.h> #include <stdlib.h> /* * Standard Tests For Methods of Classes and Objects - abort upon * failing; return normally if all is well. */ /* Test that `class' has an instance method for the selector `selector' */ void test_that_class_has_instance_method (const char *class_name, SEL selector) { Class class = objc_lookup_class (class_name); if (class_get_instance_method (class, selector) == NULL) { printf ("test_class_has_instance_method failed\n"); abort (); } } /* Test that `class' has a class method for the selector `selector' */ void test_that_class_has_class_method (const char *class_name, SEL selector) { Class meta_class = objc_get_meta_class (class_name); if (class_get_class_method (meta_class, selector) == NULL) { printf ("test_class_has_class_method failed\n"); abort (); } } /* Test the accessor methods (called -state and -setState:) on the object `object'. */ #ifdef TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD void test_accessor_method (TYPE_OF_OBJECT_WITH_ACCESSOR_METHOD object, int initial_state, int new_state_0, int expected_result_0, int new_state_1, int expected_result_1) { if ([object state] != initial_state) { printf ("test_accessor_method (initial state) failed\n"); abort (); } [object setState: new_state_0]; if ([object state] != expected_result_0) { printf ("test_accessor_method (new_state_0) failed\n"); abort (); } [object setState: new_state_1]; if ([object state] != expected_result_1) { printf ("test_accessor_method (new_state_1) failed\n"); abort (); } } #endif /* CLASS_WITH_ACCESSOR_METHOD */