浏览代码

* tregistry2 test: Use cwstring on unices. Perform the test only on Windows and Linux.

git-svn-id: trunk@48263 -
yury 4 年之前
父节点
当前提交
d83e1a33ca
共有 1 个文件被更改,包括 7 次插入1 次删除
  1. 7 1
      tests/test/packages/fcl-registry/tregistry2.pp

+ 7 - 1
tests/test/packages/fcl-registry/tregistry2.pp

@@ -1,3 +1,5 @@
+{ %TARGET=win32,win64,wince,linux }
+
 {
   This unit tests mostly TRegIniFile to work properly and be Delphi compatible.
   This test also runs on non-Windows platforms where XML registry is used.
@@ -5,7 +7,11 @@
 }
 
 {$ifdef FPC} {$mode delphi}  {$endif}
-uses SysUtils, Classes, registry;
+uses
+{$ifdef unix}
+  cwstring,
+{$endif unix}
+  SysUtils, Classes, registry;
 
 {$ifdef FPC}
   {$WARN implicit_string_cast_loss off}