add test for base and relative URLs with different schemes

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@36101 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
rfm 2013-02-10 06:20:26 +00:00
parent 56b55f6ce8
commit ea8a9d825c

View file

@ -109,6 +109,13 @@ int main()
PASS_EQUAL([url resourceSpecifier], @"/usr",
"resourceSpecifier of file:///usr is /usr");
url = [NSURL URLWithString: @"http://here.and.there/testing/one.html"];
rel = [NSURL URLWithString: @"https://here.and.there/aaa/bbb/ccc/"
relativeToURL: url];
PASS_EQUAL([rel absoluteString],
@"https://here.and.there/aaa/bbb/ccc/",
"Absolute URL relative to URL works");
url = [NSURL URLWithString: @"http://here.and.there/testing/one.html"];
rel = [NSURL URLWithString: @"aaa/bbb/ccc/" relativeToURL: url];
PASS_EQUAL([rel absoluteString],
@ -308,6 +315,7 @@ GSPathHandling("right");
url = [NSURL URLWithString: @"http://here.and.there/testing/one.html"];
rel = [NSURL URLWithString: @"data:,$2A" relativeToURL: url];
PASS_EQUAL([rel absoluteString], @"data:,$2A", "relative data URL works");
PASS_EQUAL([rel baseURL], nil, "Base URL of relative data URL is nil");
[arp release]; arp = nil;
return 0;