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

fix in test suite

Browse source
This commit is contained in:
Бондарев Иван 2015-12-30 13:34:39 +01:00
parent e4fae9dad7
commit 4a77b26fa1
5 changed files with 28 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
TestSuite/params2.pas
View file

@ -1,3 +1,4 @@
//winonly
procedure Test(params a : array of ^integer); procedure Test(params a : array of ^integer);
begin begin
assert(a[0]^=1); assert(a[0]^=1);

18
TestSuite/pointers1.pas
View file

@ -90,7 +90,7 @@ var p1 : ^integer;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -100,7 +100,7 @@ i8 := 23; p8 := @i8; assert(p8^=23);
i9 := 23; p9 := @i9; assert(p9^=23); i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -142,7 +142,7 @@ var p1 : ^integer;
procedure Nested; procedure Nested;
begin begin
assert(p1^=333); assert(p1^=333);
assert(p2^=3.14); assert(abs(p2^-3.14) < 0.000001);
assert(p3^='b'); assert(p3^='b');
assert(p4^=23); assert(p4^=23);
assert(p5^=23); assert(p5^=23);
@ -157,7 +157,7 @@ procedure Nested2;
procedure Nested3; procedure Nested3;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -168,7 +168,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -190,7 +190,7 @@ end;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.00001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -201,7 +201,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -242,7 +242,7 @@ var p1 : ^integer;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.00001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -252,7 +252,7 @@ i8 := 23; p8 := @i8; assert(p8^=23);
i9 := 23; p9 := @i9; assert(p9^=23); i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.00001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);

3
TestSuite/pointers2.pas
View file

@ -1,4 +1,5 @@
uses pointers2u; //winonly
uses pointers2u;
begin begin
Start; Start;

14
TestSuite/pointers2u.pas
View file

@ -92,7 +92,7 @@ var p1 : ^integer;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.00001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -102,7 +102,7 @@ i8 := 23; p8 := @i8; assert(p8^=23);
i9 := 23; p9 := @i9; assert(p9^=23); i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -144,7 +144,7 @@ var p1 : ^integer;
procedure Nested; procedure Nested;
begin begin
assert(p1^=333); assert(p1^=333);
assert(p2^=3.14); assert(abs(p2^-3.14) < 0.000001);
assert(p3^='b'); assert(p3^='b');
assert(p4^=23); assert(p4^=23);
assert(p5^=23); assert(p5^=23);
@ -159,7 +159,7 @@ procedure Nested2;
procedure Nested3; procedure Nested3;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -170,7 +170,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.00001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -192,7 +192,7 @@ end;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -203,7 +203,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);

18
TestSuite/units/u_pointers1.pas
View file

@ -91,7 +91,7 @@ var p1 : ^integer;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -101,7 +101,7 @@ i8 := 23; p8 := @i8; assert(p8^=23);
i9 := 23; p9 := @i9; assert(p9^=23); i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -143,7 +143,7 @@ var p1 : ^integer;
procedure Nested; procedure Nested;
begin begin
assert(p1^=333); assert(p1^=333);
assert(p2^=3.14); assert(abs(p2^-3.14) < 0.000001);
assert(p3^='b'); assert(p3^='b');
assert(p4^=23); assert(p4^=23);
assert(p5^=23); assert(p5^=23);
@ -158,7 +158,7 @@ procedure Nested2;
procedure Nested3; procedure Nested3;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.000001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -169,7 +169,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -191,7 +191,7 @@ end;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.00001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -202,7 +202,7 @@ i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
Nested; Nested;
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.000001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);
@ -243,7 +243,7 @@ var p1 : ^integer;
begin begin
i1 := 333; p1 := @i1; assert(p1^=333); i1 := 333; p1 := @i1; assert(p1^=333);
i2 := 3.14; p2 := @i2; assert(p2^=3.14); i2 := 3.14; p2 := @i2; assert(abs(p2^-3.14) < 0.00001);
i3 := 'b'; p3 := @i3; assert(p3^='b'); i3 := 'b'; p3 := @i3; assert(p3^='b');
i4 := 23; p4 := @i4; assert(p4^=23); i4 := 23; p4 := @i4; assert(p4^=23);
i5 := 23; p5 := @i5; assert(p5^=23); i5 := 23; p5 := @i5; assert(p5^=23);
@ -253,7 +253,7 @@ i8 := 23; p8 := @i8; assert(p8^=23);
i9 := 23; p9 := @i9; assert(p9^=23); i9 := 23; p9 := @i9; assert(p9^=23);
i10 := true; p10 := @i10; assert(p10^=true); i10 := true; p10 := @i10; assert(p10^=true);
p1^ := 77; assert(i1=77); p1^ := 77; assert(i1=77);
p2^ := 2.71; assert(i2=2.71); p2^ := 2.71; assert(abs(i2-2.71) < 0.00001);
p3^ := 'k'; assert(i3='k'); p3^ := 'k'; assert(i3='k');
p4^ := 77; assert(i4=77); p4^ := 77; assert(i4=77);
p5^ := 77; assert(i5=77); p5^ := 77; assert(i5=77);