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

[Mark Brown]

Estimated hours taken: 0.1
Branches: main

Fix a test case that was failing in debug grades.

tests/debugger/declarative/Mmakefile:
	Use standardized numbers in the tabled_read_decl test case.

tests/debugger/declarative/tabled_read_decl.exp:
	Update the output.

tests/debugger/declarative/tabled_read_decl.exp2:
	Remove the alternative output, which is no longer required.

Index: tests/debugger/declarative/Mmakefile
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/Mmakefile,v
retrieving revision 1.50
diff -u -r1.50 Mmakefile
--- tests/debugger/declarative/Mmakefile	17 Oct 2002 12:49:14 -0000	1.50
+++ tests/debugger/declarative/Mmakefile	4 Nov 2002 00:42:42 -0000
@@ -223,7 +223,7 @@
 			> special_term_dep.out 2>&1
 
 tabled_read_decl.out: tabled_read_decl tabled_read_decl.inp
-	$(MDB) ./tabled_read_decl < tabled_read_decl.inp \
+	$(MDB_STD) ./tabled_read_decl < tabled_read_decl.inp \
 			> tabled_read_decl.out 2>&1
 
 # We need to pipe the output through sed to avoid hard-coding dependencies on
Index: tests/debugger/declarative/tabled_read_decl.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/tabled_read_decl.exp,v
retrieving revision 1.5
diff -u -r1.5 tabled_read_decl.exp
--- tests/debugger/declarative/tabled_read_decl.exp	1 Nov 2002 07:45:04 -0000	1.5
+++ tests/debugger/declarative/tabled_read_decl.exp	4 Nov 2002 00:43:40 -0000
@@ -1,4 +1,4 @@
-       1:      1  1 CALL pred tabled_read_decl:main/2-0 (det) tabled_read_decl.m:17
+      E1:     C1  1 CALL pred tabled_read_decl:main/2-0 (det) tabled_read_decl.m:17
 mdb> echo on
 Command echo enabled.
 mdb> register --quiet
@@ -10,9 +10,9 @@
 mdb> break tabled_read_decl__test
  0: + stop  interface pred tabled_read_decl:test/4-0 (det)
 mdb> continue
-       7:      4  3 CALL pred tabled_read_decl:test/4-0 (det)
+      E2:     C2  3 CALL pred tabled_read_decl:test/4-0 (det)
 mdb> finish -n
-      32:      4  3 EXIT pred tabled_read_decl:test/4-0 (det)
+      E3:     C2  3 EXIT pred tabled_read_decl:test/4-0 (det)
 mdb> print
 test('<<c_pointer>>', 1123, _, state('<<c_pointer>>'))
 mdb> dd
@@ -81,7 +81,7 @@
 read_char_code('<<c_pointer>>', 51)
 read_char_code('<<c_pointer>>', 10)
 Is this a bug? yes
-      32:      4  3 EXIT pred tabled_read_decl:test/4-0 (det)
+      E3:     C2  3 EXIT pred tabled_read_decl:test/4-0 (det)
 mdb> c -n -S
 1123
 1456
Index: tests/debugger/declarative/tabled_read_decl.exp2
===================================================================
RCS file: tests/debugger/declarative/tabled_read_decl.exp2
diff -N tests/debugger/declarative/tabled_read_decl.exp2
--- tests/debugger/declarative/tabled_read_decl.exp2	22 Oct 2002 04:36:24 -0000	1.4
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,45 +0,0 @@
-       1:      1  1 CALL pred tabled_read_decl:main/2-0 (det) tabled_read_decl.m:17
-mdb> echo on
-Command echo enabled.
-mdb> register --quiet
-mdb> context none
-Contexts will not be printed.
-mdb> table_io allow
-mdb> table_io start
-io tabling started
-mdb> break tabled_read_decl__test
- 0: + stop  interface pred tabled_read_decl:test/4-0 (det)
-mdb> continue
-       7:      4  3 CALL pred tabled_read_decl:test/4-0 (det)
-mdb> finish -n
-      54:      4  3 EXIT pred tabled_read_decl:test/4-0 (det)
-mdb> print
-test('<<c_pointer>>', 1123, _, state('<<c_pointer>>'))
-mdb> dd
-test('<<c_pointer>>', 1123, _, state('<<c_pointer>>'))
-4 io actions:
-read_char_code('<<c_pointer>>', 49)
-read_char_code('<<c_pointer>>', 50)
-read_char_code('<<c_pointer>>', 51)
-read_char_code('<<c_pointer>>', 10)
-Valid? no
-test_2('<<c_pointer>>', 1, 1123, _, state('<<c_pointer>>'))
-4 io actions:
-read_char_code('<<c_pointer>>', 49)
-read_char_code('<<c_pointer>>', 50)
-read_char_code('<<c_pointer>>', 51)
-read_char_code('<<c_pointer>>', 10)
-Valid? yes
-Found incorrect contour:
-test('<<c_pointer>>', 1123, _, state('<<c_pointer>>'))
-4 io actions:
-read_char_code('<<c_pointer>>', 49)
-read_char_code('<<c_pointer>>', 50)
-read_char_code('<<c_pointer>>', 51)
-read_char_code('<<c_pointer>>', 10)
-Is this a bug? yes
-      54:      4  3 EXIT pred tabled_read_decl:test/4-0 (det)
-mdb> c -n -S
-1123
-1456
-1789
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------