[m-rev.] trivial diff: fix test cases after my last change
Mark Brown
dougl at cs.mu.OZ.AU
Tue Apr 30 20:11:15 AEST 2002
Estimated hours taken: 0.5
Branches: main
Fix up a couple of test cases after my last change.
tests/debugger/declarative/dependency2.exp:
The expected output for this test was built incorrectly.
tests/debugger/declarative/output_term_dep.exp:
tests/debugger/declarative/output_term_dep.exp2:
tests/debugger/declarative/output_term_dep.inp:
In several places the declarative debugger finds a different bug
to that expected, hence the finding of the expected bug is not
tested. We therefore modify the input slightly to ensure that
the expected bug is tested, and modify the output accordingly.
Index: tests/debugger/declarative/dependency2.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/dependency2.exp,v
retrieving revision 1.1
diff -u -r1.1 dependency2.exp
--- tests/debugger/declarative/dependency2.exp 30 Apr 2002 07:08:02 -0000 1.1
+++ tests/debugger/declarative/dependency2.exp 30 Apr 2002 09:58:11 -0000
@@ -1,13 +1,13 @@
- 1: 1 1 CALL pred dependency:main/2-0 (cc_multi) dependency.m:11
+ 1: 1 1 CALL pred dependency2:main/2-0 (cc_multi) dependency2.m:11
mdb> echo on
Command echo enabled.
mdb> register --quiet
mdb> break test
- 0: + stop interface pred dependency:test/1-0 (cc_multi)
+ 0: + stop interface pred dependency2:test/1-0 (cc_multi)
mdb> continue
- 4: 3 2 CALL pred dependency:test/1-0 (cc_multi) dependency.m:19 (dependency.m:13)
+ 4: 3 2 CALL pred dependency2:test/1-0 (cc_multi) dependency2.m:19 (dependency2.m:13)
mdb> finish
- 18: 3 2 EXIT pred dependency:test/1-0 (cc_multi) dependency.m:19 (dependency.m:13)
+ 18: 3 2 EXIT pred dependency2:test/1-0 (cc_multi) dependency2.m:19 (dependency2.m:13)
mdb> dd
test([1, 3, 6, 1, 3])
Valid? browse 1
@@ -19,15 +19,15 @@
browser> print
[3, 4]
browser> mark
-Origin: primitive_op("dependency.m", 29)
+Origin: primitive_op("dependency2.m", 29)
p(1)
Valid? yes
-Origin: primitive_op("dependency.m", 29)
+Origin: primitive_op("dependency2.m", 29)
q(no)
Valid? yes
Found incorrect contour:
test([1, 3, 6, 1, 3])
Is this a bug? yes
- 18: 3 2 EXIT pred dependency:test/1-0 (cc_multi) dependency.m:19 (dependency.m:13)
+ 18: 3 2 EXIT pred dependency2:test/1-0 (cc_multi) dependency2.m:19 (dependency2.m:13)
mdb> continue
[1, 3, 6, 1, 3].
Index: tests/debugger/declarative/output_term_dep.exp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/output_term_dep.exp,v
retrieving revision 1.2
diff -u -r1.2 output_term_dep.exp
--- tests/debugger/declarative/output_term_dep.exp 3 May 2001 07:26:04 -0000 1.2
+++ tests/debugger/declarative/output_term_dep.exp 30 Apr 2002 09:58:11 -0000
@@ -131,12 +131,8 @@
Valid? browse 2
browser> mark
sa(7)
-Valid? no
-Found incorrect contour:
-sa(7)
-Is this a bug? yes
- 72: 26 4 EXIT pred output_term_dep:sa/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
76: 25 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
79: 25 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -147,12 +143,8 @@
Valid? browse 3
browser> mark
sc(155)
-Valid? no
-Found incorrect contour:
-sc(155)
-Is this a bug? yes
- 82: 29 4 EXIT pred output_term_dep:sc/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
83: 25 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
86: 25 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -162,11 +154,9 @@
s(1, 38, 7)
Valid? browse 3
browser> mark
-Found incorrect contour:
sa(7)
-Is this a bug? yes
- 92: 32 4 EXIT pred output_term_dep:sa/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
93: 25 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
96: 25 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -176,11 +166,9 @@
s(1, 38, 155)
Valid? browse 3
browser> mark
-Found incorrect contour:
sc(155)
-Is this a bug? yes
- 99: 34 4 EXIT pred output_term_dep:sc/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
100: 25 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
103: 25 3 REDO pred output_term_dep:s/3-0 (nondet)
Index: tests/debugger/declarative/output_term_dep.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/output_term_dep.exp2,v
retrieving revision 1.2
diff -u -r1.2 output_term_dep.exp2
--- tests/debugger/declarative/output_term_dep.exp2 3 May 2001 07:26:05 -0000 1.2
+++ tests/debugger/declarative/output_term_dep.exp2 30 Apr 2002 09:58:12 -0000
@@ -131,12 +131,8 @@
Valid? browse 2
browser> mark
sa(7)
-Valid? no
-Found incorrect contour:
-sa(7)
-Is this a bug? yes
- 104: 42 4 EXIT pred output_term_dep:sa/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
108: 41 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
111: 41 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -147,12 +143,8 @@
Valid? browse 3
browser> mark
sc(155)
-Valid? no
-Found incorrect contour:
-sc(155)
-Is this a bug? yes
- 114: 45 4 EXIT pred output_term_dep:sc/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
115: 41 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
118: 41 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -162,11 +154,9 @@
s(1, 38, 7)
Valid? browse 3
browser> mark
-Found incorrect contour:
sa(7)
-Is this a bug? yes
- 124: 48 4 EXIT pred output_term_dep:sa/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
125: 41 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
128: 41 3 REDO pred output_term_dep:s/3-0 (nondet)
@@ -176,11 +166,9 @@
s(1, 38, 155)
Valid? browse 3
browser> mark
-Found incorrect contour:
sc(155)
-Is this a bug? yes
- 131: 50 4 EXIT pred output_term_dep:sc/1-0 (det)
-mdb> continue
+Valid? abort
+Diagnosis aborted.
132: 41 3 EXIT pred output_term_dep:s/3-0 (nondet)
mdb> continue
135: 41 3 REDO pred output_term_dep:s/3-0 (nondet)
Index: tests/debugger/declarative/output_term_dep.inp
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/declarative/output_term_dep.inp,v
retrieving revision 1.2
diff -u -r1.2 output_term_dep.inp
--- tests/debugger/declarative/output_term_dep.inp 3 May 2001 07:26:05 -0000 1.2
+++ tests/debugger/declarative/output_term_dep.inp 30 Apr 2002 09:58:12 -0000
@@ -60,31 +60,25 @@
dd
browse 2
mark
-no
-yes
-continue
+abort
continue
finish
dd
browse 3
mark
-no
-yes
-continue
+abort
continue
finish
dd
browse 3
mark
-yes
-continue
+abort
continue
finish
dd
browse 3
mark
-yes
-continue
+abort
continue
finish
continue
--------------------------------------------------------------------------
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