mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 01:13:30 +00:00
ecb5e4a9e6
tests/declarative_debugger/*.m:
tests/exceptions/*.m:
tests/general/*.m:
tests/grade_subdirs/*.m:
tests/purity/*.m:
tests/submodules/*.m:
tests/typeclasses/*.m:
Update programming style.
tests/declarative_debugger/*.inp:
Update line numbers in breakpoint commands.
tests/declarative_debugger/*.exp:
Update expected line numbers.
tests/exceptions/Mercury.options:
tests/general/Mercury.options:
Disable some warnings that are irrelevant to the test.
100 lines
2.6 KiB
Plaintext
100 lines
2.6 KiB
Plaintext
E1: C1 CALL pred input_term_dep.main/2-0 (det) input_term_dep.m:13
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> break p
|
|
0: + stop interface pred input_term_dep.p/3-0 (det)
|
|
mdb> break q
|
|
1: + stop interface pred input_term_dep.q/1-0 (semidet)
|
|
mdb> break r
|
|
2: + stop interface pred input_term_dep.r/2-0 (det)
|
|
mdb> break s
|
|
3: + stop interface pred input_term_dep.s/1-0 (semidet)
|
|
mdb> continue
|
|
E2: C2 CALL pred input_term_dep.p/3-0 (det) input_term_dep.m:35 (input_term_dep.m:25)
|
|
mdb> finish
|
|
E3: C2 EXIT pred input_term_dep.p/3-0 (det) input_term_dep.m:35 (input_term_dep.m:25)
|
|
mdb> dd -d 3 -n 7
|
|
p(5, 8, 13)
|
|
Valid? browse 3
|
|
browser> mark
|
|
pc(5, 13)
|
|
Valid? browse 1
|
|
browser> mark
|
|
pa(5)
|
|
Valid? yes
|
|
pb(8)
|
|
Valid? yes
|
|
Found inadmissible call:
|
|
Parent p(_, _, _)
|
|
Call pc(5, _)
|
|
Is this a bug? yes
|
|
E3: C2 EXIT pred input_term_dep.p/3-0 (det) input_term_dep.m:35 (input_term_dep.m:25)
|
|
mdb> continue
|
|
5
|
|
8
|
|
13
|
|
E4: C3 CALL pred input_term_dep.q/1-0 (semidet) input_term_dep.m:65 (input_term_dep.m:57)
|
|
mdb> finish
|
|
E5: C3 EXIT pred input_term_dep.q/1-0 (semidet) input_term_dep.m:65 (input_term_dep.m:57)
|
|
mdb> dd -d 3 -n 7
|
|
q([[2, 3], [], [1]])
|
|
Valid? browse 1
|
|
browser> mark 1/2
|
|
qa([[1], [2, 3]])
|
|
Valid? yes
|
|
qb([])
|
|
Valid? yes
|
|
qc([[2, ...], [], [1]], [[2, ...], [], [1]])
|
|
Valid? yes
|
|
Found incorrect contour:
|
|
qa([[1], [2, 3]])
|
|
qb([])
|
|
qc([[2, ...], [], [1]], [[2, ...], [], [1]])
|
|
q([[2, 3], [], [1]])
|
|
Is this a bug? yes
|
|
E5: C3 EXIT pred input_term_dep.q/1-0 (semidet) input_term_dep.m:65 (input_term_dep.m:57)
|
|
mdb> continue
|
|
[[2, 3], [], [1]]
|
|
E6: C4 CALL pred input_term_dep.r/2-0 (det) input_term_dep.m:92 (input_term_dep.m:87)
|
|
mdb> finish
|
|
E7: C4 EXIT pred input_term_dep.r/2-0 (det) input_term_dep.m:92 (input_term_dep.m:87)
|
|
mdb> dd -d 3 -n 7
|
|
r(1, 33)
|
|
Valid? browse 2
|
|
browser> mark
|
|
rc(3, 33)
|
|
Valid? browse 1
|
|
browser> mark
|
|
ra(1, 3)
|
|
Valid? yes
|
|
rb(3)
|
|
Valid? yes
|
|
Found inadmissible call:
|
|
Parent r(1, _)
|
|
Call rc(3, _)
|
|
Is this a bug? yes
|
|
E7: C4 EXIT pred input_term_dep.r/2-0 (det) input_term_dep.m:92 (input_term_dep.m:87)
|
|
mdb> continue
|
|
33
|
|
E8: C5 CALL pred input_term_dep.s/1-0 (semidet) input_term_dep.m:128 (input_term_dep.m:120)
|
|
mdb> finish
|
|
E9: C5 EXIT pred input_term_dep.s/1-0 (semidet) input_term_dep.m:128 (input_term_dep.m:120)
|
|
mdb> dd -d 3 -n 7
|
|
s(1)
|
|
Valid? no
|
|
sa(1, 7)
|
|
Valid? skip
|
|
sc(7)
|
|
Valid? browse 1
|
|
browser> mark
|
|
sa(1, 7)
|
|
Valid? yes
|
|
Found inadmissible call:
|
|
Parent s(1)
|
|
Call sc(7)
|
|
Is this a bug? yes
|
|
E9: C5 EXIT pred input_term_dep.s/1-0 (semidet) input_term_dep.m:128 (input_term_dep.m:120)
|
|
mdb> continue
|
|
yes
|