develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35691 - trunk/t/pmc

From:
bernhard
Date:
January 17, 2009 06:57
Subject:
[svn:parrot] r35691 - trunk/t/pmc
Message ID:
20090117145658.B0E6CCB9AE@x12.develooper.com
Author: bernhard
Date: Sat Jan 17 06:56:57 2009
New Revision: 35691

Modified:
   trunk/t/pmc/float.t

Log:
fix test:  acos 0.0 is pi/2

Modified: trunk/t/pmc/float.t
==============================================================================
--- trunk/t/pmc/float.t	(original)
+++ trunk/t/pmc/float.t	Sat Jan 17 06:56:57 2009
@@ -1138,12 +1138,12 @@
     $P0 = new ['Float']
     $P0 = 0.0
     $P1 = $P0.'acos'()
-    .fp_eq($P1, 0.0, OK1)
+    .fp_eq($P1, 1.57079632, OK1)
     print 'got '
     print $P1
     print ' but '
   OK1:
-    say 'result should be 0.0'
+    say 'result should be 1.57079632'
 
     $P2 = new ['Float']
     $P2 = 0.5



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About