[pure-lang-svn] SF.net SVN: pure-lang:[598] pure/trunk/test

[<ag...@us...>]

Revision: 598
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=598&view=rev
Author:   agraef
Date:     2008-08-24 02:09:25 +0000 (Sun, 24 Aug 2008)

Log Message:
-----------
Comment changes.

Modified Paths:
--------------
    pure/trunk/test/test020.pure
    pure/trunk/test/test021.pure

Modified: pure/trunk/test/test020.pure
===================================================================
--- pure/trunk/test/test020.pure	2008-08-24 01:31:00 UTC (rev 597)
+++ pure/trunk/test/test020.pure	2008-08-24 02:09:25 UTC (rev 598)
@@ -1,5 +1,9 @@
 // math.pure tests by Eddie Rucker
 
+/* CAVEAT: This test may fail on some systems (most notably, Windows) which
+   lack a POSIX-conformant implementation of the mathematical functions in the
+   C library. */
+
 using math;
 
 // unary operations
@@ -43,8 +47,10 @@
 format (f,x,z) = str f+","+show x+","+show z;
 
 show x::double
-= str x if infp x || nanp x; // fix Windoze quirks
-= sprintf double_format 0.0 if x==0.0; // work around +/-0.0 issues
+= str x if infp x || nanp x; // Windoze compatibility
+// Kludge: Some systems have -0.0, some don't, on some it's broken. Simply
+// ignore the sign of floating point zeros for now.
+= sprintf double_format 0.0 if x==0.0;
 = sprintf double_format x otherwise;
 
 show (x+:y) = show x+"+:"+show y;

Modified: pure/trunk/test/test021.pure
===================================================================
--- pure/trunk/test/test021.pure	2008-08-24 01:31:00 UTC (rev 597)
+++ pure/trunk/test/test021.pure	2008-08-24 02:09:25 UTC (rev 598)
@@ -22,8 +22,10 @@
 format (f,x,z) = str f+","+show x+","+show z;
 
 show x::double
-= str x if infp x || nanp x; // fix Windoze quirks
-= sprintf double_format 0.0 if x==0.0; // work around +/-0.0 issues
+= str x if infp x || nanp x; // Windoze compatibility
+// Kludge: Some systems have -0.0, some don't, on some it's broken. Simply
+// ignore the sign of floating point zeros for now.
+= sprintf double_format 0.0 if x==0.0;
 = sprintf double_format x otherwise;
 
 show (x+:y) = show x+"+:"+show y;


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