Add fpwidestring and unicodeducet units for go32v2 OS for wide string tests

git-svn-id: trunk@34259 -

tests/webtbs/tw3697.pp

@@ -1,8 +1,19 @@
 { Source provided for Free Pascal Bug Report 3697 }
 { Submitted by "Matthias Hryniszak" on  2005-02-26 }
 { e-mail: [email protected] }
+{$ifdef go32v2}
+  {$define USE_FPWIDESTRING_UNIT}
+  {$define USE_UNICODEDUCET_UNIT}
+{$endif}
 uses
-  {$ifdef unix}{$ifdef darwin}iosxwstr{$else}cwstring{$endif}, {$endif}SysUtils;
+  {$ifdef unix}{$ifdef darwin}iosxwstr{$else}cwstring{$endif}, {$endif}
+{$ifdef USE_FPWIDESTRING_UNIT}
+  fpwidestring,
+{$endif}
+{$ifdef USE_UNICODEDUCET_UNIT}
+  unicodeducet,
+{$endif}
+  SysUtils;
 
 var
   S: WideString;
@@ -11,6 +22,6 @@ begin
   S := WideFormat('Test %s', ['string']);
   if s<>'Test string' then
     halt(1);
-  
+
   writeln('ok');
 end.

tests/webtbs/tw7758.pp

@@ -1,8 +1,18 @@
+{$ifdef go32v2}
+  {$define USE_FPWIDESTRING_UNIT}
+  {$define USE_UNICODEDUCET_UNIT}
+{$endif}
 {$codepage utf8}
 
 uses
 {$ifdef unix}
   {$ifdef darwin}iosxwstr{$else}cwstring{$endif},
+{$endif}
+{$ifdef USE_FPWIDESTRING_UNIT}
+  fpwidestring,
+{$endif}
+{$ifdef USE_UNICODEDUCET_UNIT}
+  unicodeducet,
 {$endif}
   sysutils;
 

tests/webtbs/tw9161.pp

@@ -1,6 +1,16 @@
+{$ifdef go32v2}
+  {$define USE_FPWIDESTRING_UNIT}
+  {$define USE_UNICODEDUCET_UNIT}
+{$endif}
 uses
 {$ifdef unix}
   {$ifdef darwin}iosxwstr{$else}cwstring{$endif},
+{$endif}
+{$ifdef USE_FPWIDESTRING_UNIT}
+  fpwidestring,
+{$endif}
+{$ifdef USE_UNICODEDUCET_UNIT}
+  unicodeducet,
 {$endif}
   variants,sysutils;
 var a:variant;