[m-dev.] trivial diff: fix .exp files for mdb variable renumbering
Fergus Henderson
fjh at cs.mu.OZ.AU
Mon Jun 28 15:32:58 AEST 1999
Estimated hours taken: 0.1
tests/debugger/queens.exp:
tests/debugger/browser_test.exp:
tests/debugger/interpreter.exp:
tests/debugger/interpreter.exp2:
Update the expected output for these test cases to reflect the
renumbering of mdb variables starting from 1 rather than from 0.
Workspace: /home/mercury0/fjh/mercury-other
Index: tests/debugger/browser_test.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/browser_test.exp,v
retrieving revision 1.2
diff -u -r1.2 browser_test.exp
--- browser_test.exp 1999/05/27 01:01:26 1.2
+++ browser_test.exp 1999/06/28 05:25:51
@@ -5,7 +5,7 @@
3: 2 2 EXIT pred browser_test:big_data/1-0 (det)
mdb> print *
HeadVar__1 big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
-mdb> browse 0
+mdb> browse 1
browser> print
big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
browser> quit
Index: tests/debugger/interpreter.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/interpreter.exp,v
retrieving revision 1.9
diff -u -r1.9 interpreter.exp
--- interpreter.exp 1999/05/27 01:01:27 1.9
+++ interpreter.exp 1999/06/28 05:29:14
@@ -8,9 +8,9 @@
Consulting file `interpreter.m'...
11: 6 5 SWTC pred interpreter:consult_until_eof_2/5-0 (det) s3;
mdb> vars
- 0 HeadVar__1
- 1 HeadVar__2
- 2 HeadVar__4
+ 1 HeadVar__1
+ 2 HeadVar__2
+ 3 HeadVar__4
mdb> print *
HeadVar__1 term(varset(var_supply(0), empty, empty), functor(atom(":-"), .(functor/3, []), context("interpreter.m", 22)))
HeadVar__2 []
Index: tests/debugger/interpreter.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/interpreter.exp2,v
retrieving revision 1.5
diff -u -r1.5 interpreter.exp2
--- interpreter.exp2 1999/04/08 16:03:51 1.5
+++ interpreter.exp2 1999/06/28 05:29:23
@@ -7,9 +7,9 @@
11: 6 3 CALL pred interpreter:consult/5-0 (det)
mdb> vars
- 0 HeadVar__1
- 1 HeadVar__2
- 2 HeadVar__4
+ 1 HeadVar__1
+ 2 HeadVar__2
+ 3 HeadVar__4
mdb> print *
HeadVar__1 "interpreter.m"
HeadVar__2 []
Index: tests/debugger/queens.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/queens.exp,v
retrieving revision 1.11.2.1
diff -u -r1.11.2.1 queens.exp
--- queens.exp 1999/06/15 15:54:49 1.11.2.1
+++ queens.exp 1999/06/28 05:27:31
@@ -42,7 +42,7 @@
2 4 3 2 pred queens:queen/2-0 (nondet)
Ancestor level set to 2.
mdb> vars
- 0 HeadVar__1
+ 1 HeadVar__1
mdb> print *
HeadVar__1 [1, 2, 3, 4, 5]
mdb>
--
Fergus Henderson <fjh at cs.mu.oz.au> | "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh> | of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3 | -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------
More information about the developers
mailing list