* update string tests to define USE_INTERNAL_UNICODE also for the WASI platform

  (previously it was only for go32v2). This makes them use the fpwidestring unit
  for Unicode support.

tests/test/talign2.pp

@@ -8,7 +8,7 @@ program talign2;
 {$ifdef fpc}
 {$mode objfpc}
 {$define haswidestring}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr1.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr13.pp

@@ -2,7 +2,7 @@ program tcpstr13;
 
 // check that copy operation converts from 866 to DefaultSystemCodePage encoding
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr17.pp

@@ -1,6 +1,6 @@
 // to have correct test result with delphi set codepage option to 65001
 program tcpstr17;
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr18.pp

@@ -6,7 +6,7 @@ program tcpstr18;
   {$codepage cp866}
 {$endif}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr19.pp

@@ -6,7 +6,7 @@ program tcpstr19;
 // this test can be only run with the compiler built right now on the
 // same system
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr27.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstr9.pp

@@ -1,5 +1,5 @@
 { %skiptarget=android }
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistr2shortstring.pp

@@ -1,5 +1,5 @@
 {$apptype console}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistr2widechararray.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistr2widechararray2.pp

@@ -4,7 +4,7 @@
   DefaultSystemCodePage before calling widestringmanager.ansi2widemoveproc
 }
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistrcompare.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistrcompareequal.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstransistrcopy.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrchar2ansistr.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrconcat.pp

@@ -1,5 +1,5 @@
 {$APPTYPE CONSOLE}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrconcat2.pp

@@ -1,5 +1,5 @@
 {$APPTYPE CONSOLE}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrconcat3.pp

@@ -1,5 +1,5 @@
 {$APPTYPE CONSOLE}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrconcatmulti.pp

@@ -1,6 +1,6 @@
 {$APPTYPE CONSOLE}
 // test "fpc_AnsiStr_Concat_multi" with a same type(same encoding) 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrconcatmulti2.pp

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

tests/test/tcpstrpchar2ansistr.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrsetlength.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrsetlength2.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tcpstrshortstr2ansistr.pp

@@ -1,5 +1,5 @@
 {$mode objfpc} {$H+}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tunistr1.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tunistr2.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tunistr4.pp

@@ -3,7 +3,7 @@
 {$mode objfpc}
 {$endif fpc}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tunistr6.pp

@@ -1,6 +1,6 @@
 {%skiptarget=wince}
 {$codepage utf-8}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/tunistr7.pp

@@ -1,6 +1,6 @@
 {$codepage utf-8}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide1.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide2.pp

@@ -1,4 +1,4 @@
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide3.pp

@@ -5,7 +5,7 @@
 {$codepage utf-8}
 
 {$mode objfpc}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide4.pp

@@ -3,7 +3,7 @@
 {$mode objfpc}
 {$endif fpc}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide6.pp

@@ -1,7 +1,7 @@
 {%skiptarget=wince}
 {$codepage utf-8}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twide7.pp

@@ -1,6 +1,6 @@
 {$codepage utf-8}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/twrstr9.pp

@@ -1,6 +1,6 @@
 {$codepage utf8}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/strutils/tstrutils1.pp

@@ -4,7 +4,7 @@ program tstrutils1;
 
 {$mode objfpc}
 {$h+}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/strutils/tstrutils2.pp

@@ -1,7 +1,7 @@
 {$codepage utf8}
 program tstrutils2;
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/system/tdir2.pp

@@ -13,7 +13,7 @@ Program tdir;
 {$codepage utf-8}
 {$I-}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/system/tfiledir.pp

@@ -1,7 +1,7 @@
 {$codepage utf8}
 {$mode objfpc}{$h+}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tastrcmp.pp

@@ -24,7 +24,7 @@
 {$mode delphi}
 {$endif fpc}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tfexpand2.pp

@@ -22,7 +22,7 @@ program TFExpand;
 {$DEFINE DEBUG}
 (* Defining DEBUG causes all the source and target strings *)
 (* to be written to the console to make debugging easier.  *)
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tffirst.pp

@@ -2,7 +2,7 @@
 
 {$codepage utf8}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tlocale.pp

@@ -1,6 +1,6 @@
 { %interactive }
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tstrcmp.pp

@@ -23,7 +23,7 @@
 {$ifdef fpc}
 {$mode delphi}
 {$endif fpc}
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/tunifile.pp

@@ -1,7 +1,7 @@
 {$codepage utf8}
 {$mode objfpc}{$h+}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}
 

tests/test/units/sysutils/twstrcmp.pp

@@ -25,7 +25,7 @@
 {$modeswitch unicodestrings}
 {$endif fpc}
 
-{$ifdef go32v2}
+{$if defined(go32v2) or defined(wasi)}
   {$define USE_INTERNAL_UNICODE}
 {$endif}