[m-rev.] diff: fix some test cases

Zoltan Somogyi zs at cs.mu.OZ.AU
Fri Apr 7 11:18:23 AEST 2006


tests/debugger/interpreter.m:
tests/debugger/retry.m:
	Fix the program for Julien's last change.

tests/debugger/declarative/find_origin.exp:
	Fix the expected output for my last change.

The first is for the main branch, the second for both branches.

Zoltan.

cvs diff: Diffing .
Index: interpreter.m
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/debugger/interpreter.m,v
retrieving revision 1.1
diff -u -b -r1.1 interpreter.m
--- interpreter.m	8 Apr 1998 11:35:15 -0000	1.1
+++ interpreter.m	6 Apr 2006 12:48:55 -0000
@@ -29,7 +29,7 @@
 %-----------------------------------------------------------------------------%
 
 :- implementation.
-:- import_module list, string, term, varset, term_io, require, std_util.
+:- import_module list, string, term, varset, term_io, require, solutions.
 
 main -->
 	io__write_string("Pure Prolog Interpreter.\n\n"),
Index: retry.m
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/debugger/retry.m,v
retrieving revision 1.4
diff -u -b -r1.4 retry.m
--- retry.m	20 Jul 2004 04:41:37 -0000	1.4
+++ retry.m	6 Apr 2006 12:49:42 -0000
@@ -20,7 +20,7 @@
 
 :- implementation.
 
-:- import_module std_util, list, int.
+:- import_module solutions, list, int.
 
 main -->
 	{
cvs diff: Diffing declarative
Index: declarative/find_origin.exp
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/debugger/declarative/find_origin.exp,v
retrieving revision 1.7
diff -u -b -r1.7 find_origin.exp
--- declarative/find_origin.exp	26 May 2005 00:17:05 -0000	1.7
+++ declarative/find_origin.exp	6 Apr 2006 12:05:10 -0000
@@ -37,7 +37,7 @@
 browser> mark
 polytest4(u("hello"), u("hello"))
 Valid? browse
-browser> set format pretty
+browser> format pretty
 browser> p
 find_origin.polytest4(u("hello"), u("hello"))
 browser> quit
--------------------------------------------------------------------------
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