paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 03:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cwstring is unix only

Browse Source 
git-svn-id: trunk@19143 -
This commit is contained in:
florian 2011-09-18 20:41:37 +00:00
parent 85ed1b87d9
commit 030bcd083b
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tstrutils1.pp
View File

@ -6,7 +6,11 @@ program tstrutils1;
{$h+} {$h+}
uses uses
{SysUtils, }cwstring,StrUtils; {SysUtils, }
{$ifdef unix}
cwstring,
{$endif unix}
StrUtils;
var var
ResultCounter: Integer = 0; ResultCounter: Integer = 0;

8
tests/test/tstrutils2.pp
View File

@ -1,13 +1,17 @@
program tstrutils2; program tstrutils2;
// tests MBCS compatibility of strutils ansistartstext and -endstext. // tests MBCS compatibility of strutils ansistartstext and -endstext.
// (case-insensitive) // (case-insensitive)
{$mode objfpc} {$mode objfpc}
{$h+} {$h+}
uses uses
StrUtils,cwstring; StrUtils,
{$ifdef unix}
cwstring
{$endif unix}
;
var var
ResultCounter: Integer = 0; ResultCounter: Integer = 0;