浏览代码

tests: fix test for unixes

git-svn-id: trunk@19511 -
paul 13 年之前
父节点
当前提交
f5d2c3a446
共有 1 个文件被更改,包括 6 次插入0 次删除
  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}