Explorar o código

* win32 only test

peter %!s(int64=23) %!d(string=hai) anos
pai
achega
2e8fb6513c
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  1. 4 1
      tests/webtbs/tw1820.pp

+ 4 - 1
tests/webtbs/tw1820.pp

@@ -3,6 +3,8 @@ unit tw1820;
 
 interface
 
+{$ifdef win32}
+
 {$mode Delphi}
 Uses Windows;
 
@@ -15,7 +17,8 @@ type
 const
   IEnumTasks = IEnumWorkItems;
 
+{$endif}
+
   implementation
 
 end.
-