[panotools-cvs] SF.net SVN: panotools:[1270] trunk/Panotools-Script

[<bru...@us...>]

Revision: 1270
          http://panotools.svn.sourceforge.net/panotools/?rev=1270&view=rev
Author:   brunopostle
Date:     2010-04-18 19:37:49 +0000 (Sun, 18 Apr 2010)

Log Message:
-----------
Apparently on darwin 0.0 is actually 2.37159346180998e-06

Modified Paths:
--------------
    trunk/Panotools-Script/Changes
    trunk/Panotools-Script/t/033.points.t

Modified: trunk/Panotools-Script/Changes
===================================================================
--- trunk/Panotools-Script/Changes	2010-04-16 21:43:45 UTC (rev 1269)
+++ trunk/Panotools-Script/Changes	2010-04-18 19:37:49 UTC (rev 1270)
@@ -2,6 +2,7 @@
 
 0.26
     - Panotools::Makefile fixes for irix/solaris
+    - tests: workaround math on Darwin
 
 0.25
     - Image Radius() method and Panotools::Script OptimalWidth() method

Modified: trunk/Panotools-Script/t/033.points.t
===================================================================
--- trunk/Panotools-Script/t/033.points.t	2010-04-16 21:43:45 UTC (rev 1269)
+++ trunk/Panotools-Script/t/033.points.t	2010-04-18 19:37:49 UTC (rev 1270)
@@ -24,7 +24,7 @@
 $p->Control->[1] = new Panotools::Script::Line::Control;
 $p->Control->[1]->Set (N => 0, n => 1, X => 50, Y => 50, x => 50, y => 50);
 
-is ($p->Control->[0]->Distance ($p), 0, 'points are 0 pixel distance');
+ok ($p->Control->[0]->Distance ($p) < 0.00001, 'points are 0 pixel distance');
 is ($p->Control->[1]->Distance ($p), 250, 'points are 250 pixel distance');
 
 $p->Transform (10,20,30);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.