From 470bc34309b213b5e5be638d8ed3749057c48eea Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= Date: Wed, 30 Dec 2015 12:02:01 +0100 Subject: [PATCH] excludes some tests in test suite (for mono only) --- TestSuite/copyarr1.pas | 8 +++----- TestSuite/units/u_copyarr1.pas | 4 +--- TestSuite/usesunits/use_copyarr1.pas | 1 + 3 files changed, 5 insertions(+), 8 deletions(-) diff --git a/TestSuite/copyarr1.pas b/TestSuite/copyarr1.pas index 89670b11b..fe90faf10 100644 --- a/TestSuite/copyarr1.pas +++ b/TestSuite/copyarr1.pas @@ -1,3 +1,4 @@ +//winonly var arr : array of integer := (1,2,3); arr2 : array of integer; arr3 : array[,] of integer := ((1,2),(3,4)); @@ -17,10 +18,7 @@ arr4 := Copy(arr3); assert(arr4[1,0]=3); arr4[1,0] := 7; assert(arr3[1,0]=3); -if (System.Environment.OSVersion.Platform <> System.PlatformID.Unix) and (System.Environment.OSVersion.Platform <> System.PlatformID.MacOSX) then -begin - arr6 := Copy(arr5); - assert(arr6[0]=@i); -end; +arr6 := Copy(arr5); +assert(arr6[0]=@i); end. \ No newline at end of file diff --git a/TestSuite/units/u_copyarr1.pas b/TestSuite/units/u_copyarr1.pas index a6457f185..30998d490 100644 --- a/TestSuite/units/u_copyarr1.pas +++ b/TestSuite/units/u_copyarr1.pas @@ -1,3 +1,4 @@ +//winonly unit u_copyarr1; var arr : array of integer := (1,2,3); arr2 : array of integer; @@ -18,9 +19,6 @@ arr4 := Copy(arr3); assert(arr4[1,0]=3); arr4[1,0] := 7; assert(arr3[1,0]=3); -if (System.Environment.OSVersion.Platform <> System.PlatformID.Unix) and (System.Environment.OSVersion.Platform <> System.PlatformID.MacOSX) then -begin arr6 := Copy(arr5); assert(arr6[0]=@i); -end; end. \ No newline at end of file diff --git a/TestSuite/usesunits/use_copyarr1.pas b/TestSuite/usesunits/use_copyarr1.pas index afd393b7a..b9b50b7bd 100644 --- a/TestSuite/usesunits/use_copyarr1.pas +++ b/TestSuite/usesunits/use_copyarr1.pas @@ -1 +1,2 @@ +//winonly uses u_copyarr1; begin end. \ No newline at end of file