[m-rev.] trivial diff: fix failing test cases in hl* grades

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

Fix failing test cases in hlc grades.

tests/hard_coded/deconstruct_arg.exp2:
tests/hard_coded/write_reg1.exp3:
tests/hard_coded/write_xml.exp2:
 	Conform to the new way in which floats are printed.

Julien.

Index: deconstruct_arg.exp2
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/hard_coded/deconstruct_arg.exp2,v
retrieving revision 1.4
diff -u -r1.4 deconstruct_arg.exp2
--- deconstruct_arg.exp2	22 Mar 2006 02:56:29 -0000	1.4
+++ deconstruct_arg.exp2	22 Feb 2007 05:24:32 -0000
@@ -17,22 +17,22 @@
  functor apple arity 1 [[9, 5, 1]]

  deconstruct functor: zop/2
-deconstruct argument 0 of zop(3.30000000000000, 2.03000000000000) is 3.30000000000000
-deconstruct argument 1 of zop(3.30000000000000, 2.03000000000000) is 2.03000000000000
-deconstruct argument 2 of zop(3.30000000000000, 2.03000000000000) doesn't exist
+deconstruct argument 0 of zop(3.3, 2.03) is 3.3
+deconstruct argument 1 of zop(3.3, 2.03) is 2.03
+deconstruct argument 2 of zop(3.3, 2.03) doesn't exist
  deconstruct deconstruct: functor zop arity 2
-[3.30000000000000, 2.03000000000000]
-deconstruct limited deconstruct 3 of zop(3.30000000000000, 2.03000000000000)
-functor zop arity 2 [3.30000000000000, 2.03000000000000]
+[3.3, 2.03]
+deconstruct limited deconstruct 3 of zop(3.3, 2.03)
+functor zop arity 2 [3.3, 2.03]

  deconstruct functor: zap/3
-deconstruct argument 0 of zap(50, 51.0000000000000, 52) is 50
-deconstruct argument 1 of zap(50, 51.0000000000000, 52) is 51.0000000000000
-deconstruct argument 2 of zap(50, 51.0000000000000, 52) is 52
+deconstruct argument 0 of zap(50, 51.0, 52) is 50
+deconstruct argument 1 of zap(50, 51.0, 52) is 51.0
+deconstruct argument 2 of zap(50, 51.0, 52) is 52
  deconstruct deconstruct: functor zap arity 3
-[50, 51.0000000000000, 52]
-deconstruct limited deconstruct 3 of zap(50, 51.0000000000000, 52)
-functor zap arity 3 [50, 51.0000000000000, 52]
+[50, 51.0, 52]
+deconstruct limited deconstruct 3 of zap(50, 51.0, 52)
+functor zap arity 3 [50, 51.0, 52]

  deconstruct functor: zip/4
  deconstruct argument 0 of zip(50, 51, 52, 53) is 50
Index: write_reg1.exp3
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/hard_coded/write_reg1.exp3,v
retrieving revision 1.1
diff -u -r1.1 write_reg1.exp3
--- write_reg1.exp3	26 Feb 2002 02:36:49 -0000	1.1
+++ write_reg1.exp3	22 Feb 2007 05:28:46 -0000
@@ -4,16 +4,16 @@
  three
  apple([9, 5, 1])
  banana([three, one, two])
-zop(3.30000000000000, 2.03000000000000)
+zop(3.3, 2.03)
  zip(3, 2)
-zap(3, -2.11100000000000)
+zap(3, -2.111)
  wombat
  foo

  TESTING POLYMORPHISM
-poly_one([2399.30000000000])
+poly_one([2399.3])
  poly_two(3)
-poly_three(3.33000000000000, 4, poly_one(9.11000000000000))
+poly_three(3.33, 4, poly_one(9.11))

  TESTING BUILTINS
  ""
@@ -22,7 +22,7 @@
  "\""
  'a'
  '&'
-3.14159000000000
+3.14159
  1.12832498300000e-21
  2.23954899000000e+23
  -65
Index: write_xml.exp2
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/hard_coded/write_xml.exp2,v
retrieving revision 1.3
diff -u -r1.3 write_xml.exp2
--- write_xml.exp2	22 Aug 2006 02:33:54 -0000	1.3
+++ write_xml.exp2	22 Feb 2007 05:31:51 -0000
@@ -16,7 +16,7 @@
  is a <string>&</String>
  		<Int type="int" field="Field<2>">-123</Int>
  		<Char type="character"><</Char>
-		<Float type="float" field="another field">1.12300000000000</Float>
+		<Float type="float" field="another field">1.123</Float>
  		<yes--0--bool-46bool functor="yes" type="bool.bool" arity="0" />
  	</hello--5--write_xml-46mytype>
  	<a_tuple--1--write_xml-46mytype functor="a_tuple" type="write_xml.mytype" arity="1">
@@ -394,7 +394,7 @@
  is a <string>&</String>
  				<Int type="int" field="Field<2>">-123</Int>
  				<Char type="character"><</Char>
-				<Float type="float" field="another field">1.12300000000000</Float>
+				<Float type="float" field="another field">1.123</Float>
  				<yes functor="yes" type="bool.bool" arity="0" />
  			</hello>
  			<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------