Browse Source

* fixed test

florian 20 years ago
parent
commit
a091c27609
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/test/units/math/ttrig1.pp

+ 2 - 2
tests/test/units/math/ttrig1.pp

@@ -68,9 +68,9 @@ for i:=1 to dim do
 writeln('Testing TAN');
 for i:=1 to dim do
   begin
-    if i=9 then Ref := MaxFloat
+{    if i=9 then Ref := MaxFloat
     else if i=27 then Ref := -Maxfloat
-    else Ref:=sin(i*10/180*pi)/cos(i*10/180*pi);
+    else } Ref:=sin(i*10/180*pi)/cos(i*10/180*pi);
     Value := tan(i*10/180*pi);
     Delta := Value - Ref;
     if Abs(Delta) > 1E-15 then