Parcourir la source

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

git-svn-id: trunk@48263 -
(cherry picked from commit d83e1a33ca66fb1ae5d6927aceecdf1686cfda37)
yury il y a 4 ans
Parent
commit
794c4a3b0e
1 fichiers modifiés avec 7 ajouts et 1 suppressions
  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 unit tests mostly TRegIniFile to work properly and be Delphi compatible.
   This test also runs on non-Windows platforms where XML registry is used.
   This test also runs on non-Windows platforms where XML registry is used.
@@ -5,7 +7,11 @@
 }
 }
 
 
 {$ifdef FPC} {$mode delphi}  {$endif}
 {$ifdef FPC} {$mode delphi}  {$endif}
-uses SysUtils, Classes, registry;
+uses
+{$ifdef unix}
+  cwstring,
+{$endif unix}
+  SysUtils, Classes, registry;
 
 
 {$ifdef FPC}
 {$ifdef FPC}
   {$WARN implicit_string_cast_loss off}
   {$WARN implicit_string_cast_loss off}