xref: /openbsd-src/gnu/usr.bin/gcc/gcc/testsuite/objc/execute/nil_method-1.m (revision c87b03e512fc05ed6e0222f6fb0ae86264b1d05b) 
1/* Contributed by Nicola Pero - Fri Aug 30 12:55:37 2002 */
2#include <objc/objc.h>
3#include <objc/Object.h>
4
5/* Test that calling a method of a nil object results in
6   nothing to happen (but not a crash), and nil to be
7   returned.  */
8
9@interface TestClass : Object
10
11- (void) testVoid;
12- (id) testId;
13
14- (void) testVoidWithA: (int)a;
15- (id) testIdWithA: (id)a;
16
17- (void) testVoidWithA: (int)a  andB: (int)b;
18- (id) testIdWithA: (id)g  andB: (id)b;
19
20- (void) voidSum: (int)firstNumber, ...;
21- (id) sum: (int)firstNumber, ...;
22
23@end
24
25int main (void)
26{
27  TestClass *t = nil;
28
29  [t testVoid];
30
31  if ([t testId] != nil)
32    {
33      abort ();
34    }
35
36  [t testVoidWithA: 234];
37
38  if ([t testIdWithA: t] != nil)
39    {
40      abort ();
41    }
42
43  [t testVoidWithA: 12004  andB: -123];
44
45  if ([t testIdWithA: t  andB: nil] != nil)
46    {
47      abort ();
48    }
49
50
51  [t voidSum: 1, -2, 3, -4, 5, -6, 7, -8, 9, -10,
52     11, -12, 13, -14, 15, -16, 17, -18, 19, -20];
53
54  if ([t sum: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
55         11, 12, 13, 14, 15, 16, 17, 18, 19, 20] != nil)
56    {
57      abort ();
58    }
59
60  return 0;
61}
62