Explorar o código

tests: fix test for unixes

git-svn-id: trunk@19511 -
paul %!s(int64=14) %!d(string=hai) anos
pai
achega
f5d2c3a446
Modificáronse 1 ficheiros con 6 adicións e 0 borrados
  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}