add: startup parameter -TEST_SSL

Must check if the actual GUI program SSL is working

Author: GerryFerdinandus

source/code/main.pas

@@ -188,6 +188,7 @@   TFormTrackerModify = class(TForm)
     procedure UpdateTrackerInsideFileList;
     procedure UpdateTorrentTrackerList;
     procedure ShowTrackerInsideFileList;
+    function TestConnectionSSL: Boolean;
 
     procedure CheckedOnOffAllTrackers(Value: boolean);
     function CopyUserInputNewTrackersToList(Temporary_SkipAnnounceCheck: boolean =
@@ -203,7 +204,7 @@   TFormTrackerModify = class(TForm)
 
 implementation
 
-uses LCLIntf, lazutf8, LazFileUtils, trackerlist_online;
+uses fphttpclient, LCLIntf, lazutf8, LazFileUtils, trackerlist_online;
 
 const
   RECOMENDED_TRACKERS: array[0..2] of UTF8String =
@@ -225,6 +226,14 @@ implementation
 
 procedure TFormTrackerModify.FormCreate(Sender: TObject);
 begin
+  //Test the working for SSL connection
+  if TestConnectionSSL then
+  begin
+    // shutdown the GUI program
+    Application.terminate;
+    Exit;
+  end;
+
   //Create controler for StringGridTorrentData
   FControlerGridTorrentData := TControlerGridTorrentData.Create(StringGridTorrentData);
 
@@ -1795,4 +1804,23 @@ procedure TFormTrackerModify.ShowHourGlassCursor(HourGlass: boolean);
 
 end;
 
+function TFormTrackerModify.TestConnectionSSL: Boolean;
+begin
+  Result := ParamCount = 1;
+  if Result then
+  begin
+    // Check for the correct parameter.
+    Result := UTF8Trim(ParamStr(1)) = '-TEST_SSL';
+    if Result then
+    begin
+      // Check if there is SLL connection
+      try
+        TFPCustomHTTPClient.SimpleGet('https://raw.githubusercontent.com/gerryferdinandus/bittorrent-tracker-editor/master/.travis.yml');
+      except
+        //No SLL or no internet connection.
+        System.ExitCode := 1;
+      end;
+    end;
+  end;
+end;
 end.

source/project/tracker_editor/trackereditor.lpi

@@ -174,6 +174,7 @@
     </CodeGeneration>
     <Linking>
       <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
         <StripSymbols Value="True"/>
       </Debugging>
       <LinkSmart Value="True"/>

source/project/unit_test/tracker_editor_test.lpi

@@ -148,6 +148,7 @@
     </SearchPaths>
     <Linking>
       <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
         <UseHeaptrc Value="True"/>
       </Debugging>
     </Linking>

source/test/test_start_up_parameter.pas

@@ -79,6 +79,7 @@   TTestStartUpParameter = class(TTestCase)
     procedure SetUp; override;
     procedure TearDown; override;
   published
+    procedure Test_Parameter_TEST_SSL;
     procedure Test_Tracker_UserInput_All_Different_URL;
     procedure Test_Tracker_UserInput_All_Different_URL_And_SAC;
     procedure Test_Create_Empty_Torrent_And_Then_Filled_It_All_List_Order_Mode;
@@ -148,6 +149,15 @@ procedure TTestStartUpParameter.Test_Paramater_U7;
   Test_Paramater_Ux(tloRandomize);
 end;
 
+procedure TTestStartUpParameter.Test_Parameter_TEST_SSL;
+begin
+  // Check if SSL connection is working.
+  FCommandLine := '-TEST_SSL';
+  CallExecutableFile;
+  // Exit code should be zero
+  CheckEquals(0, FExitCode);
+end;
+
 //procedure TTestStartUpParameter.TestParameter(TrackerListOrder: TTrackerListOrder);
 procedure TTestStartUpParameter.TestParameter(const StartupParameter: TStartupParameter);
 begin