paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Provide distinct error messages.

Browse Source 
git-svn-id: trunk@27121 -
This commit is contained in:
sergei 2014-03-13 00:28:33 +00:00
parent 3a55c4301e
commit 7cc9e5c18c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/fcl-xml/tests/domunit.pp
View File

@ -272,25 +272,25 @@ procedure TDOMTestBase.assertURIEquals(const id: string; scheme, path,
var var
URI: TURI; URI: TURI;
begin begin
AssertTrue(id, Actual <> ''); AssertTrue(id+'#0', Actual <> '');
URI := ParseURI(utf8Encode(Actual)); URI := ParseURI(utf8Encode(Actual));
if fragment <> nil then if fragment <> nil then
AssertEquals(id, string(fragment), URI.Bookmark); AssertEquals(id+'#1', string(fragment), URI.Bookmark);
if query <> nil then if query <> nil then
AssertEquals(id, string(query), URI.Params); AssertEquals(id+'#2', string(query), URI.Params);
if scheme <> nil then if scheme <> nil then
AssertEquals(id, string(scheme), URI.Protocol); AssertEquals(id+'#3', string(scheme), URI.Protocol);
if host <> nil then if host <> nil then
begin begin
AssertTrue(id, URI.HasAuthority); AssertTrue(id+'#4', URI.HasAuthority);
AssertEquals(id, string(host), URI.Host); AssertEquals(id+'#5', string(host), URI.Host);
end; end;
if path <> nil then if path <> nil then
AssertEquals(id, string(path), '//' + Uri.Host + URI.Path + URI.Document); AssertEquals(id+'#6', string(path), '//' + Uri.Host + URI.Path + URI.Document);
if file_ <> nil then if file_ <> nil then
AssertEquals(id, string(file_), URI.Document); AssertEquals(id+'#7', string(file_), URI.Document);
if name <> nil then if name <> nil then
AssertEquals(id, string(name), ChangeFileExt(URI.Document, '')); AssertEquals(id+'#8', string(name), ChangeFileExt(URI.Document, ''));
end; end;
function TDOMTestBase.bad_condition(const TagName: XMLString): Boolean; function TDOMTestBase.bad_condition(const TagName: XMLString): Boolean;