[m-rev.] trivial diff: fix debugger test case failures

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

tests/debugger/print_goal.{inp,exp}:
	Add `echo on', `register --quiet' and `context none' to
	reduce the variability of the output.

Index: print_goal.inp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/print_goal.inp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- print_goal.inp	8 Jun 2002 17:43:45 -0000	1.1
+++ print_goal.inp	14 Jun 2002 08:18:03 -0000	1.2
@@ -1,3 +1,6 @@
+echo on
+context none
+register --quiet
 b big_data
 b print_goal
 c
Index: print_goal.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/print_goal.exp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- print_goal.exp	8 Jun 2002 17:43:45 -0000	1.1
+++ print_goal.exp	14 Jun 2002 08:18:04 -0000	1.2
@@ -1,16 +1,30 @@
        1:      1  1 CALL pred print_goal:main/2-0 (det) print_goal.m:12
-mdb> Registering debuggable procedures... done.
-There is one debuggable module, with 5 procedures.
+mdb> echo on
+Command echo enabled.
+mdb> context none
+Contexts will not be printed.
+mdb> register --quiet
+mdb> b big_data
  0: + stop  interface pred print_goal:big_data/1-0 (det)
-mdb>  1: + stop  interface pred print_goal:print_goal/8-0 (det)
-mdb>        2:      2  2 CALL pred print_goal:big_data/1-0 (det) print_goal.m:24 (print_goal.m:13)
-mdb> big_data('_')
-mdb>        3:      2  2 EXIT pred print_goal:big_data/1-0 (det) print_goal.m:24 (print_goal.m:13)
-mdb> big_data(big(big(big/3, 2, small), 3, big(big/3, 6, small)))
-mdb> big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big(small, 5, small)), 6, small)).
-       4:      3  2 CALL pred print_goal:print_goal/8-0 (det) print_goal.m:54 (print_goal.m:16)
-mdb> print_goal(100, 101, '_', '_', 102, '_', state('<<c_pointer>>'), '_')
-mdb>        5:      3  2 EXIT pred print_goal:print_goal/8-0 (det) print_goal.m:54 (print_goal.m:16)
-mdb> print_goal(100, 101, 102, 103, 102, 103, _, state(<<c_pointer>>))
-mdb> 103.
+mdb> b print_goal
+ 1: + stop  interface pred print_goal:print_goal/8-0 (det)
+mdb> c
+       2:      2  2 CALL pred print_goal:big_data/1-0 (det)
+mdb> p goal
+big_data('_')
+mdb> finish
+       3:      2  2 EXIT pred print_goal:big_data/1-0 (det)
+mdb> p goal
+big_data(big(big(big/3, 2, small), 3, big(big/3, 6, small)))
+mdb> c
+big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big(small, 5, small)), 6, small)).
+       4:      3  2 CALL pred print_goal:print_goal/8-0 (det)
+mdb> p goal
+print_goal(100, 101, '_', '_', 102, '_', state('<<c_pointer>>'), '_')
+mdb> finish
+       5:      3  2 EXIT pred print_goal:print_goal/8-0 (det)
+mdb> p goal
+print_goal(100, 101, 102, 103, 102, 103, _, state(<<c_pointer>>))
+mdb> c
+103.
 103.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------