Browse Source

--- Merging r19143 into '.':
U tests/test/tstrutils1.pp
U tests/test/tstrutils2.pp

# revisions: 19143
------------------------------------------------------------------------
r19143 | florian | 2011-09-18 22:41:37 +0200 (Sun, 18 Sep 2011) | 2 lines
Changed paths:
M /trunk/tests/test/tstrutils1.pp
M /trunk/tests/test/tstrutils2.pp

* cwstring is unix only

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_6@19158 -

marco 14 years ago
parent
commit
28bae41b97
2 changed files with 11 additions and 3 deletions
  1. 5 1
      tests/test/tstrutils1.pp
  2. 6 2
      tests/test/tstrutils2.pp

+ 5 - 1
tests/test/tstrutils1.pp

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

+ 6 - 2
tests/test/tstrutils2.pp

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