paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-10 20:37:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix testsuite.cgi failed test links to ignore skipped tests, improve english text

Browse Source 
git-svn-id: trunk@6218 -
This commit is contained in:
fpc 2007-01-26 22:57:15 +00:00
parent 1d2e01d26d
commit cf759d9c5c
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/utils/testsuite/utests.pp
View File

@ -287,7 +287,7 @@ begin
CellEnd;
RowNext;
CellStart;
Write('No skipped tests');
Write('Hide skipped tests');
CellNext;
EmitCheckBox('noskipped','1',FNoSkipped);
CellEnd;
@ -555,7 +555,7 @@ begin
TableEnd;
ParagraphStart;
EmitCheckBox('noskipped','1',FNoSkipped);
Write(' No skipped tests');
Write(' Hide skipped tests');
ParagraphEnd;
ParaGraphStart;
EmitSubmitButton('','Show/Compare');
@ -613,14 +613,14 @@ begin
begin
FL:='';
If FOnlyFailed then
FL:='failed';
FL:='successful';
if FNoSkipped then
begin
If (FL<>'') then
FL:=FL+',';
FL:=FL+'not skipped';
FL:=FL+' and ';
FL:=FL+'skipped';
end;
Write(' (only '+FL+' tests are shown)');
Write(' ('+FL+' tests are hidden)');
end;
HeaderEnd(2);
ParaGraphStart;
@ -709,14 +709,14 @@ begin
begin
FL:='';
If FOnlyFailed then
FL:='failed';
FL:='successful';
if FNoSkipped then
begin
If (FL<>'') then
FL:=FL+',';
FL:=FL+'not skipped';
FL:=FL+' and ';
FL:=FL+'skipped';
end;
Write(' (only '+FL+' tests are shown)');
Write(' ('+FL+' tests are hidden)');
end;
HeaderEnd(2);
ParaGraphStart;
@ -839,7 +839,7 @@ Var
begin
P:=(Sender as TTableProducer);
S:=Format(SDetailsURL,[P.DataSet.FieldByName('ID').AsString]);
S:=S+'&failedonly=1&noksipped=1';
S:=S+'&failedonly=1&noskipped=1';
CellData:=Format('<A HREF="%s">%s</A>',[S,CellData]);
end;