import testsuite

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@32187 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
rfm 2011-02-16 08:21:17 +00:00
parent 48cc36811f
commit b179b29898
374 changed files with 20864 additions and 0 deletions

View file

@ -0,0 +1,49 @@
#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");
TEST_EXCEPTION([DummyHandle cachedHandleForURL: httpURL];,
NSInvalidArgumentException, YES,
"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;
}