MERCURY_OPTIONS= --deep-random-write=25 --deep-std-name --mdb-disable-progress
gmake[3]: Entering directory '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/tests/hard_coded'
{ echo MCFLAGS += '--grade csharp --options-file /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/Mercury.options --mercury-linkage static -j2 --flags ../TESTS_FLAGS --flags ../WS_FLAGS --use-subdirs '; echo MCFLAGS += ' '; echo CFLAGS += ' '; echo JAVACFLAGS += '-J"-Xmx1024m" '; echo CSCFLAGS += ' '; echo C2INITARGS += '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/library/mer_std.init /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/runtime/mer_rt.init '; echo MLLIBS += ' '; echo MLOBJS += ' '; echo LDFLAGS += ' '; echo LD_LIBFLAGS += ' '; echo EXTRA_LIBRARIES += ''; echo EXTRA_LIB_DIRS += ''; echo LIBGRADES = 'hlc.gc '; echo INSTALL_PREFIX = '/home/mercury/testing/run/install'; echo LINKAGE = 'shared'; echo MERCURY_LINKAGE = 'shared'; } | /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/scripts/mmc --make --options-file - write_xml.depend
gmake[3]: Leaving directory '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/tests/hard_coded'
gmake[3]: Entering directory '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/tests/hard_coded'
{ echo MCFLAGS += '--grade csharp --options-file /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/Mercury.options --mercury-linkage static -j2 --flags ../TESTS_FLAGS --flags ../WS_FLAGS --use-subdirs '; echo MCFLAGS += ' '; echo CFLAGS += ' '; echo JAVACFLAGS += '-J"-Xmx1024m" '; echo CSCFLAGS += ' '; echo C2INITARGS += '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/library/mer_std.init /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/runtime/mer_rt.init '; echo MLLIBS += ' '; echo MLOBJS += ' '; echo LDFLAGS += ' '; echo LD_LIBFLAGS += ' '; echo EXTRA_LIBRARIES += ''; echo EXTRA_LIB_DIRS += ''; echo LIBGRADES = 'hlc.gc '; echo INSTALL_PREFIX = '/home/mercury/testing/run/install'; echo LINKAGE = 'shared'; echo MERCURY_LINKAGE = 'shared'; } | /home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/stage2/scripts/mmc --make --options-file - write_xml
Making Mercury/int3s/write_xml.int3
Making Mercury/ints/write_xml.int
Making Mercury/css/write_xml.cs
Making write_xml.exe
{ test -f write_xml.inp && cat write_xml.inp; } | ./write_xml > write_xml.out 2>&1 || \
{ grep . write_xml.out /dev/null; exit 1; }
Comparing write_xml.out with write_xml.exp*,
results in write_xml.res
** write_xml.out did not match the expected output
** (closest match was write_xml.res2)
--- write_xml.exp2 2020-10-11 14:28:49.000000000 +1100
+++ write_xml.out 2025-03-30 06:40:14.374522807 +1100
@@ -25,7 +25,7 @@
<Int type="int">123456</Int>
<Tuple--2--Tag_-123character-44-32float-125 functor="{}" type="{character, float}" arity="2">
<Char type="character">a</Char>
- <Float type="float">1.2355322522e-97</Float>
+ <Float type="float">1.2355322522E-97</Float>
</Tuple--2--Tag_-123character-44-32float-125>
</Tuple--3--Tag_-123string-44-32int-44-32-123character-44-32float-125-125>
</a_tuple--1--write_xml-46mytype>
@@ -115,19 +115,16 @@
<pred-40int-41 functor="<<predicate>>" type="pred(int)" arity="0" />
</a_pred--1--write_xml-46mytype>
<t--1--write_xml-46mytype functor="t" type="write_xml.mytype" arity="1">
- <type_desc-46type_desc functor="tree234" type="type_desc.type_desc" arity="2">
- <type_desc-46type_desc functor="int" type="type_desc.type_desc" arity="0" />
- <type_desc-46type_desc functor="string" type="type_desc.type_desc" arity="0" />
- </type_desc-46type_desc>
+ <type_desc-46type_desc functor="some_type_desc" type="type_desc.type_desc" arity="0" />
</t--1--write_xml-46mytype>
<ctor--1--write_xml-46mytype functor="ctor" type="write_xml.mytype" arity="1">
- <type_desc-46type_ctor_desc functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
+ <type_desc-46type_ctor_desc functor="some_type_ctor_desc" type="type_desc.type_ctor_desc" arity="0" />
</ctor--1--write_xml-46mytype>
<foreign--1--write_xml-46mytype functor="foreign" type="write_xml.mytype" arity="1">
- <write_xml-46ftype functor="<<foreign(ftype, 0x1)>>" type="write_xml.ftype" arity="0" />
+ <write_xml-46ftype functor="<<foreign(ftype, 1)>>" type="write_xml.ftype" arity="0" />
</foreign--1--write_xml-46mytype>
<pointer--1--write_xml-46mytype functor="pointer" type="write_xml.mytype" arity="1">
- <c_pointer functor="c_pointer(0x0)" type="c_pointer" arity="0" />
+ <c_pointer functor="null" type="c_pointer" arity="0" />
</pointer--1--write_xml-46mytype>
<primitives--10--write_xml-46mytype functor="primitives" type="write_xml.mytype" arity="10">
<Int type="int">1</Int>
@@ -416,7 +413,7 @@
<Int type="int">123456</Int>
<Tuple functor="{}" type="{character, float}" arity="2">
<Char type="character">a</Char>
- <Float type="float">1.2355322522e-97</Float>
+ <Float type="float">1.2355322522E-97</Float>
</Tuple>
</Tuple>
</a_tuple>
@@ -511,22 +508,19 @@
</a_pred>
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
<t functor="t" type="write_xml.mytype" arity="1">
- <Unknown functor="tree234" type="type_desc.type_desc" arity="2">
- <Unknown functor="int" type="type_desc.type_desc" arity="0" />
- <Unknown functor="string" type="type_desc.type_desc" arity="0" />
- </Unknown>
+ <Unknown functor="some_type_desc" type="type_desc.type_desc" arity="0" />
</t>
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
<ctor functor="ctor" type="write_xml.mytype" arity="1">
- <Unknown functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
+ <Unknown functor="some_type_ctor_desc" type="type_desc.type_ctor_desc" arity="0" />
</ctor>
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
<foreign functor="foreign" type="write_xml.mytype" arity="1">
- <Unknown functor="<<foreign(ftype, 0x1)>>" type="write_xml.ftype" arity="0" />
+ <Unknown functor="<<foreign(ftype, 1)>>" type="write_xml.ftype" arity="0" />
</foreign>
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
<pointer functor="pointer" type="write_xml.mytype" arity="1">
- <Unknown functor="c_pointer(0x0)" type="c_pointer" arity="0" />
+ <Unknown functor="null" type="c_pointer" arity="0" />
</pointer>
<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
<primitives functor="primitives" type="write_xml.mytype" arity="10">
@@ -580,4 +574,4 @@
ok
Result 10:
-type_not_ground(tvar513)
+type_not_ground(some_pseudo_type_desc)
gmake[3]: *** [../Mmake.common:132: write_xml.res] Error 1
gmake[3]: Target 'write_xml.runtest' not remade because of errors.
gmake[3]: Leaving directory '/home/mercury/testing/run/build/mercury-srcdist-rotd-2025-03-29/tests/hard_coded'