[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