浏览代码

* fixed test

florian 20 年之前
父节点
当前提交
a091c27609
共有 1 个文件被更改,包括 2 次插入2 次删除
  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