[m-dev.] string__format test failing on taifun

[Peter Ross]

On Tue, Sep 05, 2000 at 02:38:57AM +1100, Fergus Henderson wrote:
> Hi,
> 
> tests/general/string_format_test is failing on taifun,
> with the following difference in the output:
> 
> *** string_format_test.exp      Sat Aug 12 01:34:49 2000
> --- string_format_test.out      Mon Sep  4 15:01:24 2000
> ***************
> *** 6,12 ****
>   `In the beginning there was the text, '.
>   
>   Following line should have 3, 4, 1 significant figures.
> ! Strangly, 1.00e-00+  1.000=  2E+00
>   
>   
>   !%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!
> --- 6,12 ----
>   `In the beginning there was the text, '.
>   
>   Following line should have 3, 4, 1 significant figures.
> ! Strangly, 1.00e+00+  1.000=  2E+00
>   
>   
>   !%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!
> 
> 
> The difference is the sign on the zero exponent.
> It looks like the generated output, which has `+', is correct,
> while the .exp file, which has `-', looks wrong to me.
> 
> Pete, could you please check that, and if I'm right, could you please
> fix the .exp file?
> 

===================================================================


Estimated hours taken: 0.25

string_format_test.exp:
string_format_test.exp2:
string_format_test.m:
    Avoid a problem where exponents can be represented by -00 or +00, by
    changing the numbers to have a non-zero exponent.


Index: string_format_test.exp
===================================================================
RCS file: /home/mercury1/repository/tests/general/string_format_test.exp,v
retrieving revision 1.2
diff -u -r1.2 string_format_test.exp
--- string_format_test.exp	2000/08/11 08:24:01	1.2
+++ string_format_test.exp	2000/09/11 12:23:51
@@ -6,7 +6,7 @@
 `In the beginning there was the text, '.
 
 Following line should have 3, 4, 1 significant figures.
-Strangly, 1.00e-00+  1.000=  2E+00
+Strangly, 1.00e+01+  10.000=  2E+01
 
 
 !%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!
Index: string_format_test.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/general/string_format_test.exp2,v
retrieving revision 1.1
diff -u -r1.1 string_format_test.exp2
--- string_format_test.exp2	2000/08/22 09:08:03	1.1
+++ string_format_test.exp2	2000/09/11 12:23:51
@@ -6,7 +6,7 @@
 `In the beginning there was the text, '.
 
 Following line should have 3, 4, 1 significant figures.
-Strangly, 1.00e+00+  1.000=  2E+00
+Strangly, 1.00e+01+  10.000=  2E+01
 
 
 !%0 10.5i!%0+10.5i!%0 -10.5i!%0+-10.5i!
Index: string_format_test.m
===================================================================
RCS file: /home/mercury1/repository/tests/general/string_format_test.m,v
retrieving revision 1.3
diff -u -r1.3 string_format_test.m
--- string_format_test.m	2000/08/11 08:24:02	1.3
+++ string_format_test.m	2000/09/11 12:23:51
@@ -19,7 +19,7 @@
 	{ Numba_2 is Numba_0 + 5 } ,
 	{ Mg_poly = s("In the beginning there was the text, and the text was words, and yea, verily, I say unto you, there was too much of it and it had to be compressed.") } ,
 	[],
-	{ Num_nr_1 = 0.9999 } ,
+	{ Num_nr_1 = 9.9999 } ,
 %	{ builtin_float_times( 2.0, Num_nr_1, Num_nr_2) } ,
 	{ builtin_float_plus( Num_nr_1, Num_nr_1, Num_nr_2) } ,
 	[],

--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------