feature: add trackers upload API test

There is an issue that the post routine keep waiting forever.
Upload 3 URL. The test should always return with true.

Author: GerryFerdinandus

source/test/test_newtrackon.pas

@@ -18,12 +18,13 @@   TTestNewTrackon = class(TTestCase)
     procedure SetUp; override;
     procedure TearDown; override;
   published
-    procedure Test_DownloadAPI;
+    procedure Test_API_Download;
+    procedure Test_API_Upload;
   end;
 
 implementation
 
-procedure TTestNewTrackon.Test_DownloadAPI;
+procedure TTestNewTrackon.Test_API_Download;
 begin
   Check(FNewTrackon.DownloadEverything, 'Download the newtrackon API');
 
@@ -46,6 +47,29 @@ procedure TTestNewTrackon.Test_DownloadAPI;
     'TrackerList_Dead should never be empty');
 end;
 
+procedure TTestNewTrackon.Test_API_Upload;
+var
+  TrackerList: TStringList;
+  TrackersSendCount: integer;
+begin
+  TrackerList := TStringList.Create;
+
+  //Add two trackers
+  TrackerList.Add('udp://tracker.leechers-paradise.org:6969/announce');
+  TrackerList.Add('udp://tracker.test.org:6969/announce');//dummy URL
+  TrackerList.Add('wss://tracker.openwebtorrent.com');
+
+  //Test if upload is OK
+  try
+    Check(FNewTrackon.SubmitTrackers(TrackerList, TrackersSendCount),
+      'Upload the newtrackon API');
+    Check(TrackersSendCount <= TrackerList.Count, 'TrackersSendCount have too high value');
+  finally
+    TrackerList.Free;
+  end;
+
+end;
+
 procedure TTestNewTrackon.SetUp;
 begin
   FNewTrackon := TNewTrackon.Create;