[m-rev.] trivial diff: workaround the failure of the field_names test

Julien Fischer juliensf at cs.mu.OZ.AU
Tue Apr 5 14:02:52 AEST 2005


Estimated hours taken: 0.1
Branches: release

tests/debugger/field_names.exp2:
	Add a new expected output for this test case that
	matches the output when compiled in the .decldebug grades.
	The reason for the difference in output between the .debug
	and .decldebug grades has been fixed on the main branch
	but not on the release branch.

Julien.

Index: field_names.exp2
===================================================================
RCS file: field_names.exp2
diff -N field_names.exp2
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ field_names.exp2	5 Apr 2005 03:53:31 -0000
@@ -0,0 +1,358 @@
+       1:      1  1 CALL pred field_names.main/2-0 (det) field_names.m:60
+mdb> echo on
+Command echo enabled.
+mdb> context none
+Contexts will not be printed.
+mdb> step
+       2:      2  2 CALL pred field_names.make_t1f1/5-0 (det)
+mdb> finish
+       3:      2  2 EXIT pred field_names.make_t1f1/5-0 (det)
+mdb> p 5
+       HeadVar__5             	t1f1(41, 42, 43, 44)
+mdb> p 5^1x
+mdb: bad component selector.
+mdb> p 5^1^x
+mdb: the path x does not exist.
+mdb> p 5^x
+mdb: the path x does not exist.
+mdb> p 5^1
+       HeadVar__5             	41
+mdb> p 5^2
+       HeadVar__5             	42
+mdb> p 5^3
+       HeadVar__5             	43
+mdb> p 5^4
+       HeadVar__5             	44
+mdb> p 5^t1a
+       HeadVar__5             	41
+mdb> p 5^t1b
+       HeadVar__5             	42
+mdb> p 5^t1c
+mdb: the path t1c does not exist.
+mdb> p 5^t1d
+       HeadVar__5             	44
+mdb> p 5^t1e
+mdb: the path t1e does not exist.
+mdb> browse 5
+browser> ^1x
+error: in subdir 1: there is no subterm x
+browser> ^1
+browser> p
+41
+browser> ^..^t1a
+browser> p
+41
+browser> ^..^t1b
+browser> p
+42
+browser> ^..^t1c
+error: there is no subterm t1c
+browser> ^..^t1d
+browser> p
+44
+browser> ^..^t1e
+error: there is no subterm t1e
+browser> p
+44
+browser> quit
+mdb> browse
+browser> ^x
+error: there is no subterm x
+browser> ^8
+error: there is no subterm 8
+browser> ^5^x
+error: in subdir 5: there is no subterm x
+browser> quit
+mdb> step
+       4:      3  2 CALL pred field_names.make_t1f2/4-0 (det)
+mdb> finish
+       5:      3  2 EXIT pred field_names.make_t1f2/4-0 (det)
+mdb> p 4
+       HeadVar__4             	t1f2(51, 52, 53)
+mdb> p 4^1
+       HeadVar__4             	51
+mdb> p 4^2
+       HeadVar__4             	52
+mdb> p 4^3
+       HeadVar__4             	53
+mdb> p 4^t1a
+mdb: the path t1a does not exist.
+mdb> p 4^t1e
+       HeadVar__4             	51
+mdb> p 4^t1f
+mdb: the path t1f does not exist.
+mdb> p 4^t1g
+       HeadVar__4             	53
+mdb> browse 4
+browser> ^t1a
+error: there is no subterm t1a
+browser> ^t1e
+browser> p
+51
+browser> ^..^t1f
+error: there is no subterm t1f
+browser> ^..^t1g
+browser> p
+53
+browser> quit
+mdb> step
+       6:      4  2 CALL pred field_names.make_t2/5-0 (det)
+mdb> finish
+       7:      4  2 EXIT pred field_names.make_t2/5-0 (det)
+mdb> p 5
+       HeadVar__5             	t2f(0.600000000000000, 61, t1f1(41, 42, 43, 44), t1f2(51, 52, 53))
+mdb> p 5^1
+       HeadVar__5             	0.600000000000000
+mdb> p 5^2
+       HeadVar__5             	61
+mdb> p 5^3
+       HeadVar__5             	t1f1(41, 42, 43, 44)
+mdb> p 5^3^t1a
+       HeadVar__5             	41
+mdb> p 5^3^t1b
+       HeadVar__5             	42
+mdb> p 5^3^t1c
+mdb: the path t1c does not exist.
+mdb> p 5^3^t1d
+       HeadVar__5             	44
+mdb> p 5^3^t1e
+mdb: the path t1e does not exist.
+mdb> p 5^4
+       HeadVar__5             	t1f2(51, 52, 53)
+mdb> p 5^4^t1a
+mdb: the path t1a does not exist.
+mdb> p 5^4^t1e
+       HeadVar__5             	51
+mdb> p 5^4^t1f
+mdb: the path t1f does not exist.
+mdb> p 5^4^t1g
+       HeadVar__5             	53
+mdb> p 5^t2a
+       HeadVar__5             	0.600000000000000
+mdb> p 5^t2b
+       HeadVar__5             	t1f1(41, 42, 43, 44)
+mdb> p 5^t2b^t1a
+       HeadVar__5             	41
+mdb> p 5^t2b^t1b
+       HeadVar__5             	42
+mdb> p 5^t2b^t1c
+mdb: the path t1c does not exist.
+mdb> p 5^t2b^t1d
+       HeadVar__5             	44
+mdb> p 5^t2b^t1e
+mdb: the path t1e does not exist.
+mdb> p 5^t2c
+       HeadVar__5             	t1f2(51, 52, 53)
+mdb> p 5^t2c^t1a
+mdb: the path t1a does not exist.
+mdb> p 5^t2c^t1e
+       HeadVar__5             	51
+mdb> p 5^t2c^t1f
+mdb: the path t1f does not exist.
+mdb> p 5^t2c^t1g
+       HeadVar__5             	53
+mdb> browse 5
+browser> ^3^t1a
+browser> p
+41
+browser> ^..^..^3^t1b
+browser> p
+42
+browser> quit
+mdb> browse 5
+browser> ^t2b
+browser> p
+t1f1(41, 42, 43, 44)
+browser> ^t1a
+browser> p
+41
+browser> ^..^..^t2c^t1e
+browser> p
+51
+browser> quit
+mdb> step
+       8:      5  2 CALL pred field_names.make_t3/4-0 (det)
+mdb> finish
+       9:      5  2 EXIT pred field_names.make_t3/4-0 (det)
+mdb> p 4
+       HeadVar__4             	t3f(t1f2(51, 52, 53), 72, "xyzzy", t1f1(41, 42, 43, 44))
+mdb> p 4^1
+       HeadVar__4             	t1f2(51, 52, 53)
+mdb> p 4^1^1
+       HeadVar__4             	51
+mdb> p 4^1^t1a
+mdb: the path t1a does not exist.
+mdb> p 4^1^t1e
+       HeadVar__4             	51
+mdb> p 4^1^t1g
+       HeadVar__4             	53
+mdb> p 4^2
+       HeadVar__4             	72
+mdb> p 4^3
+       HeadVar__4             	"xyzzy"
+mdb> p 4^3^1
+mdb: the path 1 does not exist.
+mdb> p 4^3^t1a
+mdb: the path t1a does not exist.
+mdb> p 4^4
+       HeadVar__4             	t1f1(41, 42, 43, 44)
+mdb> p 4^4^t1a
+       HeadVar__4             	41
+mdb> p 4^4^t1b
+       HeadVar__4             	42
+mdb> p 4^4^t1c
+mdb: the path t1c does not exist.
+mdb> p 4^4^t1d
+       HeadVar__4             	44
+mdb> p 4^4^t1e
+mdb: the path t1e does not exist.
+mdb> p 4^t3a
+       HeadVar__4             	t1f2(51, 52, 53)
+mdb> p 4^t3a^1
+       HeadVar__4             	51
+mdb> p 4^t3a^t1a
+mdb: the path t1a does not exist.
+mdb> p 4^t3a^t1e
+       HeadVar__4             	51
+mdb> p 4^t3a^t1g
+       HeadVar__4             	53
+mdb> p 4^t3b
+       HeadVar__4             	72
+mdb> p 4^t3c
+       HeadVar__4             	"xyzzy"
+mdb> p 4^t3d
+       HeadVar__4             	t1f1(41, 42, 43, 44)
+mdb> p 4^t3d^t1a
+       HeadVar__4             	41
+mdb> p 4^t3d^t1b
+       HeadVar__4             	42
+mdb> p 4^t3d^t1c
+mdb: the path t1c does not exist.
+mdb> p 4^t3d^t1d
+       HeadVar__4             	44
+mdb> p 4^t3d^t1e
+mdb: the path t1e does not exist.
+mdb> p 4^t3e^t1a
+mdb: the path t3e^t1a does not exist.
+mdb> step
+      10:      6  2 CALL pred field_names.make_t4/2-0 (det)
+mdb> finish
+      11:      6  2 EXIT pred field_names.make_t4/2-0 (det)
+mdb> p 2
+       A(1) (arg 2)           	t2f(0.600000000000000, 61, t1f1(41, 42, 43, 44), t1f2(51, 52, 53))
+mdb> p 2^1
+       A(1) (arg 2)           	0.600000000000000
+mdb> p 2^2
+       A(1) (arg 2)           	61
+mdb> p 2^3^t1a
+       A(1) (arg 2)           	41
+mdb> p 2^3^t1b
+       A(1) (arg 2)           	42
+mdb> p 2^3^t1c
+mdb: the path t1c does not exist.
+mdb> p 2^3^t1d
+       A(1) (arg 2)           	44
+mdb> p 2^3^t1e
+mdb: the path t1e does not exist.
+mdb> p 2^4
+       A(1) (arg 2)           	t1f2(51, 52, 53)
+mdb> p 2^4^t1a
+mdb: the path t1a does not exist.
+mdb> p 2^4^t1e
+       A(1) (arg 2)           	51
+mdb> p 2^4^t1f
+mdb: the path t1f does not exist.
+mdb> p 2^4^t1g
+       A(1) (arg 2)           	53
+mdb> p 2^t2a
+       A(1) (arg 2)           	0.600000000000000
+mdb> p 2^t2b
+       A(1) (arg 2)           	t1f1(41, 42, 43, 44)
+mdb> p 2^t2b^t1a
+       A(1) (arg 2)           	41
+mdb> p 2^t2b^t1b
+       A(1) (arg 2)           	42
+mdb> p 2^t2b^t1c
+mdb: the path t1c does not exist.
+mdb> p 2^t2b^t1d
+       A(1) (arg 2)           	44
+mdb> p 2^t2b^t1e
+mdb: the path t1e does not exist.
+mdb> p 2^t2c
+       A(1) (arg 2)           	t1f2(51, 52, 53)
+mdb> p 2^t2c^t1a
+mdb: the path t1a does not exist.
+mdb> p 2^t2c^t1e
+       A(1) (arg 2)           	51
+mdb> p 2^t2c^t1f
+mdb: the path t1f does not exist.
+mdb> p 2^t2c^t1g
+       A(1) (arg 2)           	53
+mdb> step
+      12:      7  2 CALL pred field_names.make_t5/2-0 (det)
+mdb> finish
+      13:      7  2 EXIT pred field_names.make_t5/2-0 (det)
+mdb> p 2
+       HeadVar__2             	t5f(t1f1(41, 42, 43, 44))
+mdb> p 2/1
+       HeadVar__2             	t1f1(41, 42, 43, 44)
+mdb> p 2/1/1
+       HeadVar__2             	41
+mdb> p 2/1/t1a
+       HeadVar__2             	41
+mdb> p 2/t5a
+       HeadVar__2             	t1f1(41, 42, 43, 44)
+mdb> p 2/t5a/1
+       HeadVar__2             	41
+mdb> p 2/t5a/t1a
+       HeadVar__2             	41
+mdb> p 2/t6a
+mdb: the path t6a does not exist.
+mdb> step
+      14:      8  2 CALL pred field_names.make_t6/2-0 (det)
+mdb> finish
+      15:      8  2 EXIT pred field_names.make_t6/2-0 (det)
+mdb> p 2
+       HeadVar__2             	t6f(0.900000000000000)
+mdb> p 2/1
+       HeadVar__2             	0.900000000000000
+mdb> p 2/t5a
+mdb: the path t5a does not exist.
+mdb> p 2/t6a
+mdb: the path t6a does not exist.
+mdb> browse 2
+browser> p
+t6f(0.900000000000000)
+browser> ^badname
+error: there is no subterm badname
+browser> quit
+mdb> step
+      16:      9  2 CALL pred field_names.make_t7/3-0 (det)
+mdb> finish
+      17:      9  2 EXIT pred field_names.make_t7/3-0 (det)
+mdb> browse 3
+browser> p
+t7f(0.900000000000000, 77)
+browser> ^badname
+error: there is no subterm badname
+browser> quit
+mdb> step
+      18:     10  2 CALL pred field_names.make_t8/1-0 (det)
+mdb> finish
+      19:     10  2 EXIT pred field_names.make_t8/1-0 (det)
+mdb> browse 1
+browser> p
+t8a
+browser> ^badname
+error: there is no subterm badname
+browser> quit
+mdb> continue -S
+t1f1(41, 42, 43, 44)
+t1f2(51, 52, 53)
+t2f(0.600000000000000, 61, t1f1(41, 42, 43, 44), t1f2(51, 52, 53))
+t3f(t1f2(51, 52, 53), 72, "xyzzy", t1f1(41, 42, 43, 44))
+t2f(0.600000000000000, 61, t1f1(41, 42, 43, 44), t1f2(51, 52, 53))
+t5f(t1f1(41, 42, 43, 44))
+t6f(0.900000000000000)
+t7f(0.900000000000000, 77)
+t8a

--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list