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

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

Revision: 571
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=571&view=rev
Author:   agraef
Date:     2008-08-22 12:38:42 +0000 (Fri, 22 Aug 2008)

Log Message:
-----------
Round results to 4 digits, to prevent failing tests due to small rounding discrepancies.

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

Modified: pure/trunk/test/test020.pure
===================================================================
--- pure/trunk/test/test020.pure	2008-08-22 12:32:31 UTC (rev 570)
+++ pure/trunk/test/test020.pure	2008-08-22 12:38:42 UTC (rev 571)
@@ -23,7 +23,7 @@
 
 /* This will print out each operation, arguments and result as a single
    line. Exceptions are flagged with '__error__', evaluation failures with
-   '__failed__'. Floating point values are rounded in the output to 6
+   '__failed__'. Floating point values are rounded in the output to 4
    significant digits, to prevent 'make check' from failing due to small
    rounding discrepancies. */
 
@@ -36,7 +36,7 @@
 format (f,x,y,z) = str f+","+show x+","+show y+","+show z;
 format (f,x,z) = str f+","+show x+","+show z;
 
-show x::double = sprintf "%#0.6g" x;
+show x::double = sprintf "%#0.4g" x;
 show (x+:y) = show x+"+:"+show y;
 show (x<:y) = show x+"<:"+show y;
 show x = str x otherwise;


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