mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 00:11:04 +00:00
3fba03ba55
being confusing. They now both take a simple C-string argument which names the set, and the macros check that each end matches a start of the same name. Since tis means that a START_SET no longer takes an argument sayng whether or notthe set is to be skipped, we now have a SKIP macro to be used inside a set to skip to the end of it. This is actually more versatile as we can have multiple SKIP macros in the same set, each providing a different reason for the set being skipped. Also removed a few obsolete/unused functions and macros. git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@32355 72102866-910b-0410-8b05-ffd578937521
49 lines
1.4 KiB
Objective-C
49 lines
1.4 KiB
Objective-C
#import <Foundation/Foundation.h>
|
|
#import "Testing.h"
|
|
#import "ObjectTesting.h"
|
|
|
|
@interface DummyHandle : NSURLHandle
|
|
@end
|
|
@implementation DummyHandle
|
|
@end
|
|
|
|
int main()
|
|
{
|
|
NSAutoreleasePool *arp = [NSAutoreleasePool new];
|
|
Class cls;
|
|
NSURL *httpURL, *foobarURL;
|
|
id handle1, handle2;
|
|
|
|
|
|
httpURL = [NSURL URLWithString: @"http://www.gnustep.org"];
|
|
foobarURL = [NSURL URLWithString: @"foobar://localhost/madeupscheme"];
|
|
|
|
TEST_FOR_CLASS(@"NSURLHandle", [NSURLHandle alloc],
|
|
"NSURLHandle +alloc returns an NSURLHandle");
|
|
|
|
PASS_EXCEPTION([DummyHandle cachedHandleForURL: httpURL];,
|
|
NSInvalidArgumentException,
|
|
"NSURLHandle subclass must implement +cachedHandleForURL:");
|
|
|
|
cls = [NSURLHandle URLHandleClassForURL: httpURL];
|
|
|
|
PASS([cls canInitWithURL: httpURL] == YES,
|
|
"Appropriate subclass found for +URLHandleClassForURL:");
|
|
handle1 = [[cls alloc] initWithURL: httpURL cached: YES];
|
|
handle2 = [NSURLHandle cachedHandleForURL: httpURL];
|
|
|
|
PASS(handle2 != nil, "Available handle returned from cache");
|
|
|
|
[handle1 autorelease];
|
|
[cls autorelease];
|
|
|
|
#if !defined(GNUSTEP_BASE_LIBRARY)
|
|
PASS(NO, "URLHandleClassForURL: seems to hang on MacOS-X when given an unknown URL scheme ... you may want to check to see if it has been fixed");
|
|
#else
|
|
cls = [NSURLHandle URLHandleClassForURL: foobarURL];
|
|
PASS(cls == Nil, "Nil class returned for unknown URL scheme");
|
|
#endif
|
|
|
|
[arp release]; arp = nil;
|
|
return 0;
|
|
}
|