administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

excludes some tests in test suite (for mono only)

Browse source
This commit is contained in:
Бондарев Иван 2015-12-30 12:02:01 +01:00
parent 367adcaa94
commit 470bc34309
3 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
TestSuite/copyarr1.pas
View file

@ -1,3 +1,4 @@
//winonly
var arr : array of integer := (1,2,3); var arr : array of integer := (1,2,3);
arr2 : array of integer; arr2 : array of integer;
arr3 : array[,] of integer := ((1,2),(3,4)); arr3 : array[,] of integer := ((1,2),(3,4));
@ -17,10 +18,7 @@ arr4 := Copy(arr3);
assert(arr4[1,0]=3); assert(arr4[1,0]=3);
arr4[1,0] := 7; arr4[1,0] := 7;
assert(arr3[1,0]=3); assert(arr3[1,0]=3);
if (System.Environment.OSVersion.Platform <> System.PlatformID.Unix) and (System.Environment.OSVersion.Platform <> System.PlatformID.MacOSX) then arr6 := Copy(arr5);
begin assert(arr6[0]=@i);
arr6 := Copy(arr5);
assert(arr6[0]=@i);
end;
end. end.

4
TestSuite/units/u_copyarr1.pas
View file

@ -1,3 +1,4 @@
//winonly
unit u_copyarr1; unit u_copyarr1;
var arr : array of integer := (1,2,3); var arr : array of integer := (1,2,3);
arr2 : array of integer; arr2 : array of integer;
@ -18,9 +19,6 @@ arr4 := Copy(arr3);
assert(arr4[1,0]=3); assert(arr4[1,0]=3);
arr4[1,0] := 7; arr4[1,0] := 7;
assert(arr3[1,0]=3); 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); arr6 := Copy(arr5);
assert(arr6[0]=@i); assert(arr6[0]=@i);
end;
end. end.

1
TestSuite/usesunits/use_copyarr1.pas
View file

@ -1 +1,2 @@
//winonly
uses u_copyarr1; begin end. uses u_copyarr1; begin end.