Parcourir la source

tests: fix test for unixes

git-svn-id: trunk@19511 -
paul il y a 14 ans
Parent
commit
f5d2c3a446
1 fichiers modifiés avec 6 ajouts et 0 suppressions
  1. 6 0
      tests/test/tcpstr17.pp

+ 6 - 0
tests/test/tcpstr17.pp

@@ -5,6 +5,12 @@ program tcpstr17;
   {$codepage utf8}
 {$endif}
 {$apptype console}
+
+{$ifdef unix}
+uses
+  cwstring;
+{$endif}
+
 type
   TOEMStr = type AnsiString(866);
 {$ifndef FPC}