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

fix testrun comparison query error in case of noskipped

Browse Source 
git-svn-id: trunk@6347 -
This commit is contained in:
fpc 2007-02-05 08:17:09 +00:00
parent b08c9c9431
commit 51dd839787
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -732,7 +732,7 @@ begin
S:='SELECT T_NAME as Filename,tr1.TR_SKIP as Run1_Skipped,' S:='SELECT T_NAME as Filename,tr1.TR_SKIP as Run1_Skipped,'
+'tr2.TR_SKIP as Run2_Skipped,tr1.TR_OK as Run1_OK,tr2.TR_OK as Run2_OK ' +'tr2.TR_SKIP as Run2_Skipped,tr1.TR_OK as Run1_OK,tr2.TR_OK as Run2_OK '
+'FROM TESTS, tr2 LEFT JOIN tr1 USING (TR_TEST_FK) ' +'FROM TESTS, tr2 LEFT JOIN tr1 USING (TR_TEST_FK) '
+'WHERE ((tr1.TR_SKIP IS NULL) or (%s(tr1.TR_OK<>tr2.TR_OK))) and (T_ID=tr2.TR_TEST_FK);'; +'WHERE ((tr1.TR_SKIP IS NULL) or (%s(tr1.TR_OK<>tr2.TR_OK))) and (T_ID=tr2.TR_TEST_FK)';
If FNoSkipped then If FNoSkipped then
begin begin
S:=S+' and (tr2.TR_SKIP<>"+")'; S:=S+' and (tr2.TR_SKIP<>"+")';