paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 06:39:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

test suite: fixed detecting changes by proctestsuitediff

Browse Source 
git-svn-id: trunk@16418 -
This commit is contained in:
vincents 2008-09-04 20:10:50 +00:00
parent 08b2573645
commit 42d9edefb2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/testresult-db/proctestsuitediff.pp
View File

@ -108,7 +108,7 @@ begin
begin
if (length(curr.line) <> 0) and (length(prev.line) <> 0) then
begin
if prev.failset = curr.failset then
if prev.dbfail = curr.dbfail then
begin
failstr := curr.fail;
addlist(nochangelist, failstr, curr.data, construct_results_url(curr.runid));
@ -173,8 +173,8 @@ begin
readln(header[1]);
readln(header[2]);
if ParamCount >= 3 then
todaydate := EncodeDate(StrToInt(ParamStrUTF8(1)), StrToInt(ParamStrUTF8(2)),
StrToInt(ParamStrUTF8(3)))
todaydate := EncodeDate(StrToInt(ParamStr(1)), StrToInt(ParamStr(2)),
StrToInt(ParamStr(3)))
else
todaydate := Now;
twodaysago := FormatDateTime('YYYY-mm-dd', todaydate-2);