paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 10:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@34259 -
This commit is contained in:
pierre 2016-08-10 06:24:20 +00:00
parent b2467eae3b
commit 5abbe42115
3 changed files with 33 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/webtbs/tw3697.pp
View File

@ -1,8 +1,19 @@
{ Source provided for Free Pascal Bug Report 3697 }
{ Submitted by "Matthias Hryniszak" on 2005-02-26 }
{ e-mail: matthias@hryniszak.de }
{$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.

10
tests/webtbs/tw7758.pp
View File

@ -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;

10
tests/webtbs/tw9161.pp
View File

@ -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;