Quellcode durchsuchen

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

git-svn-id: trunk@48263 -
yury vor 4 Jahren
Ursprung
Commit
d83e1a33ca
1 geänderte Dateien mit 7 neuen und 1 gelöschten Zeilen
  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}