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

test suite fix

Browse source
This commit is contained in:
Бондарев Иван 2015-12-30 11:41:43 +01:00
parent 6c06a603de
commit 367adcaa94
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
TestSuite/copyarr1.pas
View file

@ -17,6 +17,10 @@ arr4 := Copy(arr3);
assert(arr4[1,0]=3);
arr4[1,0] := 7;
assert(arr3[1,0]=3);
arr6 := Copy(arr5);
assert(arr6[0]=@i);
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.

3
TestSuite/units/u_copyarr1.pas
View file

@ -18,6 +18,9 @@ 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.