Mass typo fixes in comments for tests.

tests/bench/dmisc.pas

@@ -488,7 +488,7 @@ begin
      end
    else
      dir:='';
-   { split the path and the name, there are no more path informtions }
+   { split the path and the name, there are no more path information }
    { if path contains no backslashes                                 }
    while true do
      begin
@@ -743,7 +743,7 @@ begin
    p:=GetEnvironmentStrings;
    hp:=p;
 
-   { retrive the string with the given index }
+   { retrieve the string with the given index }
    for i:=2 to index do
      hp:=hp+strlen(hp)+1;
 

tests/bench/drystone.pas

@@ -38,7 +38,7 @@ PROGRAM Dhrystone( input, output );
  *
  *   The combination of these three aspects is balanced only approximately.
  *
- *   The program does not compute anything meaningfull, but it is
+ *   The program does not compute anything meaningful, but it is
  *   syntactically and semantically correct.
  *
  }

tests/readme.txt

@@ -129,7 +129,7 @@ WPOPASSES..........Number of whole program optimization iterations to perform
         No space between the elements and the comma.
 
 
-Controling testing in more detail
+Controlling testing in more detail
 ---------------------------------
 Calling "make full" will perform tests in a standard manner. To have
 more control of the test process one must distinguish between:
@@ -139,7 +139,7 @@ more control of the test process one must distinguish between:
   OS_TARGET, OPT etc. controls this.
 
 * Test environment:  compiler/rtl etc. to be tested, to be used
-  *in* the tests. Ususal options, prepended with TEST_ , controls
+  *in* the tests. Usual options, prepended with TEST_ , controls
   this. If no such options are given, test and driver environment
   will be the same.
 

tests/tbf/tb0016.pp

@@ -1,6 +1,6 @@
 { %FAIL }
 { Old file: tbf0100.pp }
-{ a unit may only occure once in uses                   OK 0.99.6 (PM) }
+{ a unit may only occur once in uses                   OK 0.99.6 (PM) }
 
 unit tbs0100;
 interface

tests/tbf/tb0017.pp

@@ -1,6 +1,6 @@
 { %FAIL }
 { Old file: tbf0101.pp }
-{ no type checking for routines in interfance and       OK 0.99.1 (CEC) }
+{ no type checking for routines in interface and       OK 0.99.1 (CEC) }
 
 Unit tbs0101;
 

tests/tbf/tb0036.pp

@@ -1,6 +1,6 @@
 { %FAIL }
 { Old file: tbf0173.pp }
-{ secondbugs is parsed as asm, but should be normal pascalcode OK 0.99.9 (PFV) }
+{ secondbugs is parsed as asm, but should be normal pascal code OK 0.99.9 (PFV) }
 
 var
   secondbug : word;

tests/tbf/tb0150.pp

@@ -17,7 +17,7 @@ type
          m_nested_comment,      { nested comments }
          m_tp_procvar,          { tp style procvars (no @ needed) }
          m_repeat_forward,      { repeating forward declarations is needed }
-         m_pointer_2_procedure, { allows the assignement of pointers to
+         m_pointer_2_procedure, { allows the assignment of pointers to
                                   procedure variables                     }
          m_autoderef,           { does auto dereferencing of struct. vars }
          m_initfinal,           { initialization/finalization for units }

tests/tbf/tb0216.pp

@@ -1,7 +1,7 @@
 { %fail }
 
 { Old file: tbs0133.pp }
-{ object type declaration not 100% compatibile with TP7 }
+{ object type declaration not 100% compatible with TP7 }
 
 type
   t=object

tests/tbf/tb0285.pp

@@ -2,7 +2,7 @@
 { %opt=-O4 -Sew }
 
 { This code can generate trouble because
-  uninitialized retrun value in f method
+  uninitialized return value in f method
   can have a pattern that generates a
   floating point exception later.
 

tests/tbs/tb0007.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0009.pp }
-{  tests comperations in function calls a(c<0);        OK 0.9.2 }
+{  tests comparisons in function calls a(c<0);        OK 0.9.2 }
 
 var c:byte;
 

tests/tbs/tb0017.pp

@@ -1,7 +1,7 @@
 { Old file: tbs0021.pp }
-{  tests compatibility of empty sets with other set and the evalution of constant sets                  OK 0.9.3 }
+{  tests compatibility of empty sets with other set and the evaluation of constant sets                  OK 0.9.3 }
 
-{ tests constant set evalution }
+{ tests constant set evaluation }
 
 var
    a : set of byte;

tests/tbs/tb0030.pp

@@ -1,6 +1,6 @@
 { %CPU=i386 }
 { Old file: tbs0034.pp }
-{  shows wrong line numbering when asmbler is parsed in direct mode. }
+{  shows wrong line numbering when assembler is parsed in direct mode. }
 
 { line numbering problem }
 { I don't really know how to test this (PM }

tests/tbs/tb0040.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0045.pp }
-{  shows problem with virtual private methods (might not be a true bugs but more of an incompatiblity?) the compiler warns now if there is a private and virtual method }
+{  shows problem with virtual private methods (might not be a true bugs but more of an incompatibility?) the compiler warns now if there is a private and virtual method }
 
 
 TYPE

tests/tbs/tb0066.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0073.pp }
-{  shows incompatiblity with bp for distance qualifiers OK 0.99.6 (PFV) }
+{  shows incompatibility with bp for distance qualifiers OK 0.99.6 (PFV) }
 
 Unit tb0066;
 

tests/tbs/tb0068.pp

@@ -5,7 +5,7 @@ program bug0076;
 
 {Generates wrong code when compiled with output set to intel asm.
 
- Reported from mailinglist by Vtech Kavan.
+ Reported from mailing list by Vtech Kavan.
 
  15 Januari 1998, Daniel Mantione}
 

tests/tbs/tb0081.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0093.pp }
-{ Two Cardinal type bugss                                0K 0.99.1 (FK/MvC) }
+{ Two Cardinal type bugs                                0K 0.99.1 (FK/MvC) }
 
 { Two cardinal type bugs }
 var

tests/tbs/tb0082.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0095.pp }
-{ case with ranges starting with #0 bugss                OK 0.99.1 (FK) }
+{ case with ranges starting with #0 bugs                OK 0.99.1 (FK) }
 
 var
   ch : char;

tests/tbs/tb0115.pp

@@ -1,8 +1,8 @@
 { Old file: tbs0134.pp }
-{ 'continue' keyword is bugsgy.                          OK 0.99.6 (FK) }
+{ 'continue' keyword is buggy.                          OK 0.99.6 (FK) }
 
 {
-In this simple examply, the even loop is wrong.  When continue; is called,
+In this simple example, the even loop is wrong.  When continue; is called,
 it should go back to the top and check the loop conditions and exit when i =
 4, but continue skips checking the loop conditions and does i=5 too, then it
 is odd, doesn't run the continue, and the loop terminates properly.

tests/tbs/tb0131.pp

@@ -14,7 +14,7 @@ PROCEDURE LGrow(VAR S : String;C:CHAR;Count:WORD);
  VAR  I,J :WORD;
 
 BEGIN
-  I:=ORD(S[0]);           { Keeping length in local data eases optimalisations}
+  I:=ORD(S[0]);           { Keeping length in local data eases optimizations}
   IF I<Count THEN
      BEGIN
      Move(S[1],S[Count-I+1],I);

tests/tbs/tb0154.pp

@@ -15,14 +15,14 @@ Begin
   BSet := BSet + [b];  {creates a big, empty set}
   BSet := BSet + [c];  {creates another one}
   BSet := BSet + [3];  {creates a big set with element three set}
-  BSet := BSet + [3];  {and antoher one}
+  BSet := BSet + [3];  {and another one}
 
   SSet := SSet + [5];  {creates a small set containing 5}
   SSet := SSet + [s];  {creates a small, empty set}
   SSet := SSet + [5];  {creates another small set containing 5}
   SSet := SSet + [s];  {creates another small, empty set}
 
-{BTW: small constant sets don't have to be stored seperately in the
+{BTW: small constant sets don't have to be stored separately in the
  executable, as they're simple 32 bit constants, like longints!}
 
 End.

tests/tbs/tb0158.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0189.pp }
-{ cant compare adresses of function variables !! As tbs0188 FPC syntax problem see source (PM) }
+{ cant compare addresses of function variables !! As tbs0188 FPC syntax problem see source (PM) }
 
 var m: procedure;
 

tests/tbs/tb0182.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0215.pp }
-{ more bugss with static methods                        OK 0.99.11 (PM) }
+{ more bugs with static methods                        OK 0.99.11 (PM) }
 
 { allow static keyword }
 { submitted by Andrew Wilson }

tests/tbs/tb0189.pp

@@ -8,7 +8,7 @@ uses
 var a:string;
 
 begin
-  writeln('B:'='B:');            { debbuger evaluates this to FALSE }
+  writeln('B:'='B:');            { debugger evaluates this to FALSE }
   if 'B:'='B:' then
     writeln('OK')
   else

tests/tbs/tb0202.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0238.pp }
-{ Internal error 432645 (from Frank MCCormick, mailinglist 24/2) OK 0.99.11 (PM) }
+{ Internal error 432645 (from Frank MCCormick, mailing list 24/2) OK 0.99.11 (PM) }
 
 program test1;
 

tests/tbs/tb0209.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0247.pp }
-{ var with initial value not supprted (Delphi var x : integer = 5;) allowed in -Sd mode OK 0.99.11 (PM) }
+{ var with initial value not supported (Delphi var x : integer = 5;) allowed in -Sd mode OK 0.99.11 (PM) }
 
 {$mode delphi}
 

tests/tbs/tb0217.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0256.pp }
-{ problem with conditionnals in TP mode                OK 0.99.11 (PM) }
+{ problem with conditionals in TP mode                OK 0.99.11 (PM) }
 
 {$mode tp}
 

tests/tbs/tb0219a.pp

@@ -1,4 +1,4 @@
 { %OPT=-O2 }
-{ Additional test with -O2 since higher optimizaton levels are
+{ Additional test with -O2 since higher optimization levels are
   smart enough to completely remove the test code }
 {$I tb0219.pp}

tests/tbs/tb0226.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0264.pp }
-{ methodpointer bugss                                   OK 0.99.12b (FK) }
+{ methodpointer bugs                                   OK 0.99.12b (FK) }
 
 {$MODE DELPHI}
 

tests/tbs/tb0251.pp

@@ -1,5 +1,5 @@
 { Old file: tbs0291.pp }
-{ @procvar in tp mode bugss                             OK 0.99.13 (PFV) }
+{ @procvar in tp mode bugs                             OK 0.99.13 (PFV) }
 
 {$ifdef fpc}{$mode tp}{$endif}
 {$F+}

tests/tbs/tb0269.pp

@@ -18,7 +18,7 @@
      pfadd MM0,[EDI]
      movq [EDX],MM0
     { Now the correct way would be something like: }
-     movd MM0,[EBX+8]  // [movd reg??,mem?? - invalid combination of opcod
+     movd MM0,[EBX+8]  // [movd reg??,mem?? - invalid combination of opcode
      movd MM1,[EDI+8]  // and here, too
      pfadd MM0,MM1
      movd [EDX+8],MM0  // and here

tests/tbs/tb0331.pp

@@ -1,6 +1,6 @@
 {$mode objfpc}
 
-{ tests assignements and compare }
+{ tests assignments and compare }
 
 var
    o1,o2 : tobject;

tests/tbs/tb0548a.pp

@@ -1,4 +1,4 @@
 { %OPT=-O2 }
-{ Additional test with -O2 since higher optimizaton levels are
+{ Additional test with -O2 since higher optimization levels are
   smart enough to completely remove the test code }
 {$I tb0548.pp}

tests/tbs/tb0627b.pp

@@ -6,7 +6,7 @@ program tb0627b;
 
 { we allow some expressions with side effects to be removed at the -O4
   optimization level, but we still disallow removing them for some of
-  the simplificationss. This test checks that behaviour. }
+  the simplifications. This test checks that behaviour. }
 
 {$mode objfpc}
 

tests/test/alglib/u_conv.pp

@@ -87,7 +87,7 @@ For given A/B returns conv(A,B) (non-circular). Subroutine can automatically
 choose between three implementations: straightforward O(M*N)  formula  for
 very small N (or M), overlap-add algorithm for  cases  where  max(M,N)  is
 significantly larger than min(M,N), but O(M*N) algorithm is too slow,  and
-general FFT-based formula for cases where two previois algorithms are  too
+general FFT-based formula for cases where two previous algorithms are  too
 slow.
 
 Algorithm has max(M,N)*log(max(M,N)) complexity for any M/N.

tests/test/alglib/u_corr.pp

@@ -63,7 +63,7 @@ INPUT PARAMETERS
                 signal containing pattern
     N       -   problem size
     Pattern -   array[0..M-1] - complex function to be transformed,
-                pattern to search withing signal
+                pattern to search within signal
     M       -   problem size
 
 OUTPUT PARAMETERS
@@ -135,7 +135,7 @@ INPUT PARAMETERS
                 periodic signal containing pattern
     N       -   problem size
     Pattern -   array[0..M-1] - complex function to be transformed,
-                non-periodic pattern to search withing signal
+                non-periodic pattern to search within signal
     M       -   problem size
 
 OUTPUT PARAMETERS
@@ -238,7 +238,7 @@ INPUT PARAMETERS
                 signal containing pattern
     N       -   problem size
     Pattern -   array[0..M-1] - real function to be transformed,
-                pattern to search withing signal
+                pattern to search within signal
     M       -   problem size
 
 OUTPUT PARAMETERS
@@ -300,7 +300,7 @@ INPUT PARAMETERS
                 periodic signal containing pattern
     N       -   problem size
     Pattern -   array[0..M-1] - real function to be transformed,
-                non-periodic pattern to search withing signal
+                non-periodic pattern to search within signal
     M       -   problem size
 
 OUTPUT PARAMETERS

tests/test/alglib/u_fft.pp

@@ -85,7 +85,7 @@ begin
     end;
 
     //
-    // convert input array to the more convinient format
+    // convert input array to the more convenient format
     //
     SetLength(Buf, 2*N);
     I:=0;
@@ -184,7 +184,7 @@ OUTPUT PARAMETERS
 
 NOTE:
     F[] satisfies symmetry property F[k] = conj(F[N-k]),  so just one half
-of  array  is  usually needed. But for convinience subroutine returns full
+of  array  is  usually needed. But for convenience subroutine returns full
 complex array (with frequencies above N/2), so its result may be  used  by
 other FFT-related subroutines.
 

tests/test/alglib/u_testconvunit.pp

@@ -290,7 +290,7 @@ begin
         begin
 
             //
-            // Complex circilar and non-circular
+            // Complex circular and non-circular
             //
             SetLength(CA, M);
             I:=0;
@@ -330,7 +330,7 @@ begin
             end;
 
             //
-            // Real circilar and non-circular
+            // Real circular and non-circular
             //
             SetLength(RA, M);
             I:=0;

tests/test/cg/cdecl/taoc3.pp

@@ -1,7 +1,7 @@
 { %FAIL }
 { second simple array of const test }
 { there is no way know how many args
-  are psuhed for a cdecl'ared araay of const
+  are psuhed for a cdecl'ared array of const
   the compiler should complain here }
 
 {$mode objfpc}

tests/test/cg/obj/readme.txt

@@ -51,7 +51,7 @@ OS/2 (os2-i386): original EMX port of GCC (GCC 2.8.1) except for tcext6.c which
       cannot be compiled using version 2.8.1 and thus GCC 3.0.4 was used for
       compiling it (but FPC doesn't pass this test under OS/2 yet anyway)
 
-Data retieved from .comment or similar section:
+Data retrieved from .comment or similar section:
 beos-i386 : GCC: (GNU) 2.95v.3-beos-060710
 android-arm-eabi : GCC: (GNU) 4.7.A*
 solaris-sparc : GCC: (GNU) 5.5.0

tests/test/cg/tassign1.pp

@@ -8,7 +8,7 @@
 {            FPC     = Target is FreePascal compiler             }
 {****************************************************************}
 { REMARKS : Tested with Delphi 3 as reference implementation     }
-{           Tests the sortstring assignment.                     }
+{           Tests the shortstring assignment.                    }
 {****************************************************************}
 program tassign1;
 

tests/test/cg/tcalcla1.pp

@@ -382,7 +382,7 @@ class   procedure tnovmtclass.method_private_static_u8(x: byte);
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj1.pp

@@ -346,7 +346,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj2.pp

@@ -346,7 +346,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj3.pp

@@ -346,7 +346,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj4.pp

@@ -347,7 +347,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj6.pp

@@ -346,7 +346,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalobj7.pp

@@ -346,7 +346,7 @@ type
 
   {
     complex testing, nested field access, with parameters and
-    comple return value.
+    compile return value.
 
     On exit : global_u8bit := x;
               global_u16bit := object_u16bit (from func_getu16bit);

tests/test/cg/tcalvar4.pp

@@ -513,7 +513,7 @@ begin
   proc_var_openstring(value_smallstring);
   if (value_smallstring <> RESULT_SMALLSTRING) or
      { high is not passed to cdecl'ared functions thus
-       value_smallstring should be 255 on retyurn PM }
+       value_smallstring should be 255 on return PM }
      (global_u8bit <> {high(value_smallstring)}255) then
     failed := true;
 
@@ -664,7 +664,7 @@ begin
   proc_var_openstring_mixed(RESULT_U8BIT, value_smallstring, RESULT_U8BIT);
   if (value_smallstring <> RESULT_SMALLSTRING) or
      { high is not passed to cdecl'ared functions thus
-       value_smallstring should be 255 on retyurn PM }
+       value_smallstring should be 255 on return PM }
      (global_u8bit <> {high(value_smallstring)}255) then
     failed := true;
   if value_u8bit <> RESULT_U8BIT then

tests/test/cg/testcompo.pp

@@ -7,7 +7,7 @@
   corresponding to a temporary partial copy of the reference record
   for the part that is put on stack at $sp+16
   when a_load_ref_stack is called,
-  but the temp is never copied back to coorect location $sp+16
+  but the temp is never copied back to correct location $sp+16
 .Lj518:
 # Temp 192,56 allocated
 	# Register a0 allocated

tests/test/cg/tpara4.pp

@@ -1,7 +1,7 @@
 { This test ensures that a "const TVarData" parameter is passed as a reference.
   This is required for Delphi compatibility as implementers of IVarInvokable or
   inheritors of TInvokableVariantType need to modify the variant data by using
-  a pointer to the TVarData because it's passed as const and thus not modifyable
+  a pointer to the TVarData because it's passed as const and thus not modifiable
   by itself.
   This behavior is documented in so far as the C++ builder documentation shows
   that the same parameter is implemented as "const&". }

tests/test/cg/tstr.pp

@@ -74,7 +74,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);
@@ -258,7 +258,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);
@@ -442,7 +442,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);

tests/test/jvm/tstr.pp

@@ -83,7 +83,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);
@@ -267,7 +267,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);
@@ -451,7 +451,7 @@ begin
   else
     check('error, not yet implemented!!!!');
 {$endif}
-  { the number of exponents depends on the maaping of the real type }
+  { the number of exponents depends on the mapping of the real type }
   if sizeof(real) = 8 then
     begin
       str(f:0,s);

tests/test/lcpref.inc

@@ -12,7 +12,7 @@
 {$endif}
 
 { From i_bsd.pas, all i386 but freebsd seem to have underscore prefixes }
-{ This is not true anyore at least for OpenBSD 4.9 PM 2011-10-10 }
+{ This is not true anymore at least for OpenBSD 4.9 PM 2011-10-10 }
 { Also false for new NetBSD targets PM 2012-02-12 }
 {$ifdef bsd}
   {$ifdef cpui386}

tests/test/library/tlib3d.pp

@@ -4,7 +4,7 @@
 { %neededafter }
 
 { On targets that support dll overloading, no
-  warning should be generated, and the resulting code sholud work correctly. }
+  warning should be generated, and the resulting code should work correctly. }
 program tlib3b;
 
   procedure p_proc(var a : dword); external 'tlib3a' name 'p';

tests/test/library/ttdllexe.pp

@@ -3,7 +3,7 @@
 {
 
   Win32 DLL usage example. It needs testdll2.pp
-  This test checksq the windows abality to
+  This test checksq the windows ability to
   export a function in an executable.
 
   Here procedure TestExeProc is exported

tests/test/packages/win-base/tdispvar1.pp

@@ -56,7 +56,7 @@ begin
 	AutoObject.createObject(PropertyValue);
 
 	PropertyValue.Name := 'ReadOnly'; 	// "Arg cant be assigned" and
-        PropertyValue.Value := true;		//	"Incompatimle types: const string, untyped expected"
+        PropertyValue.Value := true;		//	"Incompatible types: const string, untyped expected"
 
         LoadParams[0] := PropertyValue;
    end

tests/test/tanonfunc22.pp

@@ -1,6 +1,6 @@
 program tanonfunc22;
 
-{ test accessing references across impementation/interface boundaries }
+{ test accessing references across implementation/interface boundaries }
 
 uses uanonfunc22;
 

tests/test/tanonfunc70.pp

@@ -8,7 +8,7 @@ program tanonfunc70;
 
 { test calling into overloaded routines and creating anonymous methods in them.
 
-  Similar to tanonfunc61 but with additonal calls to func ref before and after
+  Similar to tanonfunc61 but with additional calls to func ref before and after
   anonfunc use of func ref.  With func ref inside an anon method, the func
   references outside the anon method will also error out.
 }

tests/test/tcase12.pp

@@ -1,4 +1,4 @@
-{ test for simple comparsion }
+{ test for simple comparison }
 
 {$H+}
 

tests/test/tcase14.pp

@@ -1,4 +1,4 @@
-{ comparsion with empty string as bound of 'needed' range }
+{ comparison with empty string as bound of 'needed' range }
 
 {$H+}
 var

tests/test/tcase15.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings as ranges and single cases }
+{ comparison of one-symbol strings as ranges and single cases }
 
 {$H+}
 var

tests/test/tcase16.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings as ranges and single cases }
+{ comparison of one-symbol strings as ranges and single cases }
 
 {$H+}
 var

tests/test/tcase17.pp

@@ -1,4 +1,4 @@
-{ comparsion of empty string }
+{ comparison of empty string }
 
 {$H+}
 var

tests/test/tcase18.pp

@@ -1,4 +1,4 @@
-{ comparsion of empty string }
+{ comparison of empty string }
 
 {$H+}
 var

tests/test/tcase21.pp

@@ -1,6 +1,6 @@
 {%FAIL}
 
-{ left bound is greater; comparsion with empty string. Fails }
+{ left bound is greater; comparison with empty string. Fails }
 
 {$H+}
 var

tests/test/tcase22.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings in ranges }
+{ comparison of one-symbol strings in ranges }
 
 {$H+}
 var

tests/test/tcase28.pp

@@ -1,4 +1,4 @@
-{ test for simple comparsion }
+{ test for simple comparison }
 
 {$H-}
 

tests/test/tcase30.pp

@@ -1,4 +1,4 @@
-{ comparsion with empty string as bound of 'needed' range }
+{ comparison with empty string as bound of 'needed' range }
 
 {$H-}
 var

tests/test/tcase31.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings as ranges and single cases }
+{ comparison of one-symbol strings as ranges and single cases }
 
 {$H-}
 var

tests/test/tcase32.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings as ranges and single cases }
+{ comparison of one-symbol strings as ranges and single cases }
 
 {$H-}
 var

tests/test/tcase33.pp

@@ -1,4 +1,4 @@
-{ comparsion of empty string }
+{ comparison of empty string }
 
 {$H-}
 var

tests/test/tcase34.pp

@@ -1,4 +1,4 @@
-{ comparsion of empty string }
+{ comparison of empty string }
 
 {$H-}
 var

tests/test/tcase37.pp

@@ -1,6 +1,6 @@
 {%FAIL}
 
-{ left bound is greater; comparsion with empty string. Fails }
+{ left bound is greater; comparison with empty string. Fails }
 
 {$H-}
 var

tests/test/tcase38.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings in ranges }
+{ comparison of one-symbol strings in ranges }
 
 {$H-}
 var

tests/test/tcase4.pp

@@ -1,6 +1,6 @@
 {%FAIL}
 
-{ left bound is greater; comparsion with empty string. Fails }
+{ left bound is greater; comparison with empty string. Fails }
 
 {$H+}
 var

tests/test/tcase5.pp

@@ -1,4 +1,4 @@
-{ comparsion of one-symbol strings in ranges }
+{ comparison of one-symbol strings in ranges }
 
 {$H+}
 var

tests/test/tchlp8.pp

@@ -1,5 +1,5 @@
 { helpers may introduce new default properties (includes default properties
-  introudced by the helper's parent) }
+  introduced by the helper's parent) }
 program tchlp8;
 
 {$ifdef fpc}

tests/test/tcpstr1.pp

@@ -24,7 +24,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstr13.pp

@@ -30,7 +30,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstr17.pp

@@ -33,7 +33,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstr18.pp

@@ -32,7 +32,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstr27.pp

@@ -25,7 +25,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstr9.pp

@@ -28,7 +28,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif def USE_INTERNAL_UNICODE}

tests/test/tcpstransistr2widechararray2.pp

@@ -28,7 +28,7 @@ uses
   cpall,
  {$endif}
  { The unit strings is not really used here,
-   but simpifies the conditional construction
+   but simplifies the conditional construction
    for fpwidestring and unicodeducet use }
   strings;
 {$endif}

tests/test/tcpstrconcatmulti2.pp

@@ -1,5 +1,5 @@
 {$APPTYPE CONSOLE}
-// test "fpc_AnsiStr_Concat_multi" with a differant types(encodings)
+// test "fpc_AnsiStr_Concat_multi" with a different types(encodings)
 {$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}

tests/test/tcustomattr10.pp

@@ -13,7 +13,7 @@ type
   end;
 
 type
-  // The attribute should be also accessable without the Attribute suffix.
+  // The attribute should be also accessible without the Attribute suffix.
   [TMyAttr]
   TMyObject = class(TObject)
   end;

tests/test/tenum4.pp

@@ -1,7 +1,7 @@
 { %fail}
 { %norun}
 
-// test checks that enumeration memebers are not present in the global/local symtables
+// test checks that enumeration members are not present in the global/local symtables
 // if enumeration is defined with scopedenums directive
 
 program tenum4;

tests/test/tforin10.pp

@@ -1,6 +1,6 @@
 { %FAIL}
 
-// test that it is imposible to use non-valid enumerator operator
+// test that it is impossible to use non-valid enumerator operator
 
 program tforin10;
 

tests/test/tforin7.pp

@@ -1,6 +1,6 @@
 program tforin7;
 
-// test 'enumerator MoveNext' and 'enumrator Current' directives
+// test 'enumerator MoveNext' and 'enumerator Current' directives
 
 {$mode objfpc}{$H+}
 {$APPTYPE CONSOLE}

tests/test/tfuncref53.pp

@@ -1,4 +1,4 @@
-// Test to determine that anonymus functions are enabled in mode delphi
+// Test to determine that anonymous functions are enabled in mode delphi
 {$mode delphi}
 {%NORUN}
 program tfuncref52;

tests/test/tgenconst2.pp

@@ -1,7 +1,7 @@
 { %NORUN }
 {$mode objfpc}
 {
-  test lists of types/contants
+  test lists of types/constants
 }
 program tgenconst2;
 

tests/test/tgeneric27.pp

@@ -1,6 +1,6 @@
 program tgeneric27;
 
-{ check that specialization does not add enum members to the static symtable and reuses the generic enum definintion }
+{ check that specialization does not add enum members to the static symtable and reuses the generic enum definition }
 
 {$mode objfpc}{$H+}
 type

tests/test/timpfuncspez13.pp

@@ -2,7 +2,7 @@
 {$mode objfpc}
 {$modeswitch implicitfunctionspecialization}
 {
-  Test specializing proc vars by infering parameters from callback function
+  Test specializing proc vars by inferring parameters from callback function
 }
 
 program timpfuncspez13;

tests/test/timpfuncspez14.pp

@@ -2,7 +2,7 @@
 {$mode objfpc}
 {$modeswitch implicitfunctionspecialization}
 {
-  Test specializing proc vars by infering parameters from callback function
+  Test specializing proc vars by inferring parameters from callback function
 }
 
 program timpfuncspez14;

tests/test/tint641.pp

@@ -44,7 +44,7 @@ begin
    q:=q-q;
    q:=q-(q*q);
    q:=(q*q)-(q*q);
-   { first test the comparisation }
+   { first test the comparison }
    i:=f2;
    if q<>q then
      begin

tests/test/tint642.pp

@@ -226,7 +226,7 @@ procedure testlogqword;
      assignqword($a0a0a0a0,0,q6);
 
      { here we don't need to test all cases of locations, }
-     { this is already done by the addtion test           }
+     { this is already done by the addition test          }
      if (q2 or q3)<>q1 then
        do_error(1400);
      if (q5 or q6)<>q4 then

tests/test/tmaclocalprocparam4.pp

@@ -14,6 +14,6 @@ var
 begin
   { passing global procvars to nested procedures is not allowed to
     ensure that they can also be implemented using compile-time
-    generated trampolines if necesarry }
+    generated trampolines if necessary }
   test(pp);
 end.

tests/test/tmaclocalprocparam4a.pp

@@ -12,6 +12,6 @@ var
 begin
   { passing global procvars to nested procedures is not allowed to
     ensure that they can also be implemented using compile-time
-    generated trampolines if necesarry }
+    generated trampolines if necessary }
   pn:=pp;
 end.

tests/test/tmacpas1.pp

@@ -28,7 +28,7 @@ uses
 {$ENDC}
 
 {$IFC UNDEFINED UMACPAS_PRE_IMPL_COMP_VAR }
-{$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is defined, while it shoud not}
+{$ERRORC UMACPAS_PRE_IMPL_COMP_VAR is defined, while it should not}
 {$ENDC}
 
 

tests/test/tmultilinestring15.pp

@@ -16,7 +16,7 @@ const Y = `
 
 `;
 
-{ Test some wacky concatentation }
+{ Test some wacky concatenation }
 
 begin
   Write(X + Y);