fix in test suite

pascalabcnet · Dec 30, 2015 · 4a77b26 · 4a77b26
1 parent e4fae9d
commit 4a77b26
Show file tree

Hide file tree

Showing 5 changed files with 28 additions and 26 deletions.
diff --git a/TestSuite/params2.pas b/TestSuite/params2.pas
@@ -1,3 +1,4 @@
+//winonly
 procedure Test(params a : array of ^integer);
 begin
 assert(a[0]^=1);

diff --git a/TestSuite/pointers1.pas b/TestSuite/pointers1.pas
@@ -90,7 +90,7 @@ procedure Pointers;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -100,7 +100,7 @@ procedure Pointers;
 i9 := 23; p9 := @i9; assert(p9^=23);
 i10 := true; p10 := @i10; assert(p10^=true);
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -142,7 +142,7 @@ procedure PointersNested;
 procedure Nested;
 begin
  assert(p1^=333);
- assert(p2^=3.14);
+ assert(abs(p2^-3.14) < 0.000001);
 assert(p3^='b');
  assert(p4^=23);
  assert(p5^=23);
@@ -157,7 +157,7 @@ procedure Nested2;
 procedure Nested3;
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -168,7 +168,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -190,7 +190,7 @@ procedure Nested3;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -201,7 +201,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -242,7 +242,7 @@ procedure Nested3;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -252,7 +252,7 @@ procedure Nested3;
 i9 := 23; p9 := @i9; assert(p9^=23);
 i10 := true; p10 := @i10; assert(p10^=true);
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);

diff --git a/TestSuite/pointers2.pas b/TestSuite/pointers2.pas
@@ -1,4 +1,5 @@
-uses pointers2u;
+//winonly
+uses pointers2u;
 
 begin
 Start;

diff --git a/TestSuite/pointers2u.pas b/TestSuite/pointers2u.pas
@@ -92,7 +92,7 @@ procedure Pointers;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -102,7 +102,7 @@ procedure Pointers;
 i9 := 23; p9 := @i9; assert(p9^=23);
 i10 := true; p10 := @i10; assert(p10^=true);
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -144,7 +144,7 @@ procedure PointersNested;
 procedure Nested;
 begin
  assert(p1^=333);
- assert(p2^=3.14);
+ assert(abs(p2^-3.14) < 0.000001);
 assert(p3^='b');
  assert(p4^=23);
  assert(p5^=23);
@@ -159,7 +159,7 @@ procedure Nested2;
 procedure Nested3;
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -170,7 +170,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -192,7 +192,7 @@ procedure Nested3;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -203,7 +203,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);

diff --git a/TestSuite/units/u_pointers1.pas b/TestSuite/units/u_pointers1.pas
@@ -91,7 +91,7 @@ procedure Pointers;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -101,7 +101,7 @@ procedure Pointers;
 i9 := 23; p9 := @i9; assert(p9^=23);
 i10 := true; p10 := @i10; assert(p10^=true);
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -143,7 +143,7 @@ procedure PointersNested;
 procedure Nested;
 begin
  assert(p1^=333);
- assert(p2^=3.14);
+ assert(abs(p2^-3.14) < 0.000001);
 assert(p3^='b');
  assert(p4^=23);
  assert(p5^=23);
@@ -158,7 +158,7 @@ procedure Nested2;
 procedure Nested3;
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -169,7 +169,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -191,7 +191,7 @@ procedure Nested3;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -202,7 +202,7 @@ procedure Nested3;
 i10 := true; p10 := @i10; assert(p10^=true);
 Nested;
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);
@@ -243,7 +243,7 @@ procedure Nested3;
 
 begin
 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');
 i4 := 23; p4 := @i4; assert(p4^=23);
 i5 := 23; p5 := @i5; assert(p5^=23);
@@ -253,7 +253,7 @@ procedure Nested3;
 i9 := 23; p9 := @i9; assert(p9^=23);
 i10 := true; p10 := @i10; assert(p10^=true);
 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');
 p4^ := 77; assert(i4=77);
 p5^ := 77; assert(i5=77);