Критическое обновление LightPT

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "10";
 	public const string Build = "0";
-	public const string Revision = "3544";
+	public const string Revision = "3546";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
 %COREVERSION%=0
-%REVISION%=3544
+%REVISION%=3546
 %MINOR%=10
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.10.0.3544
+3.10.0.3546

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.10.0.3544'
+!define VERSION '3.10.0.3546'

TestSuite/CompilationSamples/LightPT.pas

@@ -298,6 +298,9 @@ procedure CheckInitialIOSeqs(input,output: sequence of System.Type);
 
 procedure CheckOutputAfterInitial(params arr: array of object); // проверить только то, что после исходного вывода
 
+procedure CheckOutputAfterInitial(a: ObjectList);
+
+
 procedure CheckOutputAfterInitialSilent(params arr: array of object); 
 
 /// Проверить последовательность значений при выводе после начального вывода
@@ -666,6 +669,7 @@ type
     constructor (ServerAddr: string);
     begin
       Self.ServerAddr := ServerAddr;
+      System.Net.ServicePointManager.SecurityProtocol := System.Net.SecurityProtocolType(3072);
       client := new HttpClient();
       client.Timeout := TimeSpan.FromSeconds(10);
     end;
@@ -2379,6 +2383,8 @@ begin
   CheckOutputHelper(InitialOutputList.Count,arr);
 end;
 
+procedure CheckOutputAfterInitial(a: ObjectList) := CheckOutputAfterInitialSeq(a);
+
 procedure CheckOutputAfterInitialSilent(params arr: array of object);
 begin
   Silent := True;

TestSuite/CompilationSamples/TasksArr.pas

@@ -109,13 +109,13 @@ begin
      var cnt4 := a.CountOf(4);
      var cnt5 := a.CountOf(5);
      
-     var lst := ObjectList.New; // Можно без списка. Наверное, думал выводить что то еще
-     case cnt4.CompareTo(cnt5) of
-    1: lst.Add('четвёрок больше');
-    0: lst.Add('одинаково');
-    -1: lst.Add('пятёрок больше');
-     end;
-     CheckOutputAfterInitial(lst);
+   var ans: string := '';
+   case cnt4.CompareTo(cnt5) of
+  1: ans := 'четвёрок больше';
+  0: ans := 'одинаково';
+ -1: ans := 'пятёрок больше';
+   end;
+   CheckOutputAfterInitial(ans);
   end;
   'Arr_Replace1': begin 
      FilterOnlyNumbersAndBools;

bin/Lib/LightPT.pas

@@ -298,6 +298,9 @@ procedure CheckInitialIOSeqs(input,output: sequence of System.Type);
 
 procedure CheckOutputAfterInitial(params arr: array of object); // проверить только то, что после исходного вывода
 
+procedure CheckOutputAfterInitial(a: ObjectList);
+
+
 procedure CheckOutputAfterInitialSilent(params arr: array of object); 
 
 /// Проверить последовательность значений при выводе после начального вывода
@@ -666,6 +669,7 @@ type
     constructor (ServerAddr: string);
     begin
       Self.ServerAddr := ServerAddr;
+      System.Net.ServicePointManager.SecurityProtocol := System.Net.SecurityProtocolType(3072);
       client := new HttpClient();
       client.Timeout := TimeSpan.FromSeconds(10);
     end;
@@ -2379,6 +2383,8 @@ begin
   CheckOutputHelper(InitialOutputList.Count,arr);
 end;
 
+procedure CheckOutputAfterInitial(a: ObjectList) := CheckOutputAfterInitialSeq(a);
+
 procedure CheckOutputAfterInitialSilent(params arr: array of object);
 begin
   Silent := True;

bin/Lib/TasksArr.pas

@@ -109,13 +109,13 @@ begin
      var cnt4 := a.CountOf(4);
      var cnt5 := a.CountOf(5);
      
-     var lst := ObjectList.New; // Можно без списка. Наверное, думал выводить что то еще
-     case cnt4.CompareTo(cnt5) of
-    1: lst.Add('четвёрок больше');
-    0: lst.Add('одинаково');
-    -1: lst.Add('пятёрок больше');
-     end;
-     CheckOutputAfterInitial(lst);
+   var ans: string := '';
+   case cnt4.CompareTo(cnt5) of
+  1: ans := 'четвёрок больше';
+  0: ans := 'одинаково';
+ -1: ans := 'пятёрок больше';
+   end;
+   CheckOutputAfterInitial(ans);
   end;
   'Arr_Replace1': begin 
      FilterOnlyNumbersAndBools;