mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-24 13:53:54 +00:00
Estimated hours taken: 4 Make declarative debugging enabled by default, and add test cases. The declarative debugger, while not complete, is fairly stable so users will be able to experiment with it after this change without having to re-configure the whole system. However, the main motivation for this change is so that developers who make changes to the system will have access to these test cases. configure.in: Turn the decl-debug feature on by default. tests/debugger/declarative: New directory containing tests for the declarative debugger. tests/debugger/declarative/*.m: tests/debugger/declarative/*.inp: tests/debugger/declarative/*.exp: Declarative debugger test cases. tests/debugger/declarative/Mmakefile: Mmakefile to do the declarative debugger tests. tests/debugger/Mmakefile: For each target, make the corresponding target in the 'declarative' subdirectory. WORK_IN_PROGRESS: Document the new (incomplete) feature.
58 lines
866 B
Plaintext
58 lines
866 B
Plaintext
1: 1 1 CALL pred gcf:main/2-0 (cc_multi)
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> goto 22
|
|
22: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> dd_wrong
|
|
a(11)
|
|
Valid? y
|
|
Bug not found.
|
|
22: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> dd_wrong
|
|
a(11)
|
|
Valid? n
|
|
f(11)
|
|
Valid? n
|
|
Incorrect instance found:
|
|
|
|
f(11).
|
|
|
|
22: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> goto 29
|
|
29: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> dd_wrong
|
|
a(12)
|
|
Valid? n
|
|
f(12)
|
|
Valid? y
|
|
c(2, 12)
|
|
Valid? y
|
|
g(2)
|
|
Valid? n
|
|
Incorrect instance found:
|
|
|
|
g(2).
|
|
|
|
29: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> goto 41
|
|
41: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> dd_wrong
|
|
a(20)
|
|
Valid? n
|
|
f(20)
|
|
Valid? y
|
|
c(3, 20)
|
|
Valid? y
|
|
g(3)
|
|
Valid? y
|
|
Incorrect instance found:
|
|
|
|
a(20) :-
|
|
g(3),
|
|
c(3, 20),
|
|
f(20).
|
|
|
|
41: 2 2 EXIT pred gcf:a/1-0 (nondet)
|
|
mdb> c
|
|
yes(20)
|