paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-12 12:30:42 +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; CellEnd;
RowNext; RowNext;
CellStart; CellStart;
Write('No skipped tests'); Write('Hide skipped tests');
CellNext; CellNext;
EmitCheckBox('noskipped','1',FNoSkipped); EmitCheckBox('noskipped','1',FNoSkipped);
CellEnd; CellEnd;
@ -555,7 +555,7 @@ begin
TableEnd; TableEnd;
ParagraphStart; ParagraphStart;
EmitCheckBox('noskipped','1',FNoSkipped); EmitCheckBox('noskipped','1',FNoSkipped);
Write(' No skipped tests'); Write(' Hide skipped tests');
ParagraphEnd; ParagraphEnd;
ParaGraphStart; ParaGraphStart;
EmitSubmitButton('','Show/Compare'); EmitSubmitButton('','Show/Compare');
@ -613,14 +613,14 @@ begin
begin begin
FL:=''; FL:='';
If FOnlyFailed then If FOnlyFailed then
FL:='failed'; FL:='successful';
if FNoSkipped then if FNoSkipped then
begin begin
If (FL<>'') then If (FL<>'') then
FL:=FL+','; FL:=FL+' and ';
FL:=FL+'not skipped'; FL:=FL+'skipped';
end; end;
Write(' (only '+FL+' tests are shown)'); Write(' ('+FL+' tests are hidden)');
end; end;
HeaderEnd(2); HeaderEnd(2);
ParaGraphStart; ParaGraphStart;
@ -709,14 +709,14 @@ begin
begin begin
FL:=''; FL:='';
If FOnlyFailed then If FOnlyFailed then
FL:='failed'; FL:='successful';
if FNoSkipped then if FNoSkipped then
begin begin
If (FL<>'') then If (FL<>'') then
FL:=FL+','; FL:=FL+' and ';
FL:=FL+'not skipped'; FL:=FL+'skipped';
end; end;
Write(' (only '+FL+' tests are shown)'); Write(' ('+FL+' tests are hidden)');
end; end;
HeaderEnd(2); HeaderEnd(2);
ParaGraphStart; ParaGraphStart;
@ -839,7 +839,7 @@ Var
begin begin
P:=(Sender as TTableProducer); P:=(Sender as TTableProducer);
S:=Format(SDetailsURL,[P.DataSet.FieldByName('ID').AsString]); 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]); CellData:=Format('<A HREF="%s">%s</A>',[S,CellData]);
end; end;