add: Writeln to test setup

Show to the build process that the test is still running.

Author: GerryFerdinandus

source/test/test_newtrackon.pas

@@ -73,11 +73,13 @@ procedure TTestNewTrackon.Test_API_Upload;
 
 procedure TTestNewTrackon.SetUp;
 begin
+  WriteLn('TTestNewTrackon.SetUp');
   FNewTrackon := TNewTrackon.Create;
 end;
 
 procedure TTestNewTrackon.TearDown;
 begin
+  WriteLn('TTestNewTrackon.TearDown');
   FNewTrackon.Free;
 end;
 

source/test/test_ngosang_trackers_list.pas

@@ -61,11 +61,13 @@ procedure TTestNgosangTrackersList.Test_DownloadAPI;
 
 procedure TTestNgosangTrackersList.SetUp;
 begin
+  WriteLn('TTestNgosangTrackersList.SetUp');
   FngosangTrackerList := TngosangTrackerList.Create;
 end;
 
 procedure TTestNgosangTrackersList.TearDown;
 begin
+  WriteLn('TTestNgosangTrackersList.TearDown');
   FngosangTrackerList.Free;
 end;
 

source/test/test_start_up_parameter.pas

@@ -553,6 +553,7 @@ procedure TTestStartUpParameter.
 
 procedure TTestStartUpParameter.SetUp;
 begin
+  WriteLn('TTestStartUpParameter.SetUp');
   //Create all the TStringList items
   FVerifyTrackerResult.TrackerOriginal := TStringList.Create;
   FVerifyTrackerResult.TrackerAdded := TStringList.Create;
@@ -585,6 +586,7 @@ procedure TTestStartUpParameter.SetUp;
 
 procedure TTestStartUpParameter.TearDown;
 begin
+  WriteLn('TTestStartUpParameter.TearDown');
   //Free the TStringList items
   FVerifyTrackerResult.TrackerOriginal.Free;
   FVerifyTrackerResult.TrackerAdded.Free;