Move GetTestRunHistoryID and AddTestHistoryEntry to dbtests unit

git-svn-id: trunk@26211 -

tests/utils/dbconfig.pp

@@ -631,12 +631,6 @@ procedure UpdateTestRun;
       FreeQueryResult(Res);
   end;
 
-function GetTestRunHistoryID(TestRunID : Integer) : Integer;
-begin
-  GetTestRunHistoryID:=IDQuery(
-    format('SELECT TH_PREVIOUS_FK FROM TESTRUNHISTORY WHERE TH_ID_FK=%d',[TestRunID]));
-end;
-
 function GetTestRunFieldID(const name : string; TestRunID : Integer) : Integer;
 begin
   GetTestRunFieldID:=IDQuery(
@@ -670,22 +664,6 @@ begin
 end;
 
 
-function AddTestHistoryEntry(TestRunID,TestPreviousID : Integer) : boolean;
-var
-  qry : string;
-  res : TQueryResult;
-begin
-  qry:=format('INSERT INTO TESTRUNHISTORY (TH_ID_FK,TH_PREVIOUS_FK) '+
-              ' VALUES (%d,%d)',[TestRunID,TestPreviousID]);
-  If RunQuery(qry,res) then
-    begin
-      FreeQueryResult(res);
-      AddTestHistoryEntry:=true;
-    end
-  else
-    AddTestHistoryEntry:=false;
-end;
-
 function GetTestConfigId(TestRunID : Integer) : Integer;
 var
   qry : string;

tests/utils/dbtests.pp

@@ -26,6 +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 AddTestHistoryEntry(TestRunID,TestPreviousID : Integer) : boolean;
 
 { ---------------------------------------------------------------------
     Low-level DB access.
@@ -509,6 +511,28 @@ begin
   FreeQueryResult(Res);
 end;
 
+function GetTestRunHistoryID(TestRunID : Integer) : Integer;
+begin
+  GetTestRunHistoryID:=IDQuery(
+    format('SELECT TH_PREVIOUS_FK FROM TESTRUNHISTORY WHERE TH_ID_FK=%d',[TestRunID]));
+end;
+
+function AddTestHistoryEntry(TestRunID,TestPreviousID : Integer) : boolean;
+var
+  qry : string;
+  res : TQueryResult;
+begin
+  qry:=format('INSERT INTO TESTRUNHISTORY (TH_ID_FK,TH_PREVIOUS_FK) '+
+              ' VALUES (%d,%d)',[TestRunID,TestPreviousID]);
+  If RunQuery(qry,res) then
+    begin
+      FreeQueryResult(res);
+      AddTestHistoryEntry:=true;
+    end
+  else
+    AddTestHistoryEntry:=false;
+end;
+
 begin
   initialisemysql;
 end.