File: throwstr.m

package info (click to toggle)
gnustep-base 1.31.1-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 26,580 kB
  • sloc: objc: 239,446; ansic: 36,519; cpp: 122; sh: 112; makefile: 100; xml: 32
file content (24 lines) | stat: -rw-r--r-- 523 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#import "Testing.h"
#import <Foundation/Foundation.h>

int main(void)
{
  START_SET("String throwing")
#if defined(BASE_NATIVE_OBJC_EXCEPTIONS) && BASE_NATIVE_OBJC_EXCEPTIONS == 1
    id caught = nil;
    id thrown = @"thrown";
    @try
      {
	@throw thrown;
      }
    @catch (id str)
      {
	caught = str;
      }
    PASS((caught == thrown), "Throwing an NSConstantString instance before the class is initialised");
#else
    SKIP("Native exceptions not supported")
#endif
  END_SET("String throwing")
  return 0;
}