paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 22:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove GetTestRunHistoryID, replaced by GetTestNextRunHistoryID and GetTestPreviousHistoryID

Browse Source 
git-svn-id: trunk@26381 -
This commit is contained in:
pierre 2014-01-04 21:11:23 +00:00
parent 166ab46317
commit 7adeb480e1
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/utils/dbtests.pp
View File

@ -26,7 +26,8 @@ Function AddTestResult(TestID,RunID,TestRes : Integer;
Log : String;var is_new : boolean) : Integer;
Function RequireTestID(Name : String): Integer;
Function CleanTestRun(ID : Integer) : Boolean;
function GetTestRunHistoryID(TestRunID : Integer) : Integer;
function GetTestPreviousRunHistoryID(TestRunID : Integer) : Integer;
function GetTestNextRunHistoryID(TestRunID : Integer) : Integer;
function AddTestHistoryEntry(TestRunID,TestPreviousID : Integer) : boolean;
{ ---------------------------------------------------------------------
@ -511,12 +512,18 @@ begin
FreeQueryResult(Res);
end;
function GetTestRunHistoryID(TestRunID : Integer) : Integer;
function GetTestPreviousRunHistoryID(TestRunID : Integer) : Integer;
begin
GetTestRunHistoryID:=IDQuery(
GetTestPreviousRunHistoryID:=IDQuery(
format('SELECT TH_PREVIOUS_FK FROM TESTRUNHISTORY WHERE TH_ID_FK=%d',[TestRunID]));
end;
function GetTestNextRunHistoryID(TestRunID : Integer) : Integer;
begin
GetTestNextRunHistoryID:=IDQuery(
format('SELECT TH_ID_FK FROM TESTRUNHISTORY WHERE TH_PREVIOUS_FK=%d',[TestRunID]));
end;
function AddTestHistoryEntry(TestRunID,TestPreviousID : Integer) : boolean;
var
qry : string;