mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +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.
90 lines
2.3 KiB
Plaintext
90 lines
2.3 KiB
Plaintext
1: 1 1 CALL pred family.main/2-0 (det) family.m:14
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> break half_siblings
|
|
0: + stop interface pred family.half_siblings/2-0 (nondet)
|
|
mdb> continue
|
|
3: 2 2 CALL pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> finish
|
|
268: 2 2 EXIT pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> dd -d 3 -n 7
|
|
half_siblings(a, b)
|
|
Valid? no
|
|
siblings(a, b)
|
|
Valid? yes
|
|
Call full_siblings(_, _)
|
|
Unsatisfiable? no
|
|
common_mother(a, b)
|
|
Valid? yes
|
|
Call common_father(_, _)
|
|
Unsatisfiable? no
|
|
parent(m, a)
|
|
Valid? yes
|
|
Call parent(a, _)
|
|
Unsatisfiable? yes
|
|
parent(m, b)
|
|
Valid? yes
|
|
Call parent(b, _)
|
|
Unsatisfiable? yes
|
|
parent(f, a)
|
|
Valid? yes
|
|
parent(f, b)
|
|
Valid? yes
|
|
parent(f, c)
|
|
Valid? yes
|
|
Call parent(c, _)
|
|
Unsatisfiable? yes
|
|
parent(s, c)
|
|
Valid? yes
|
|
Call parent(_, _)
|
|
Solutions:
|
|
parent(m, a)
|
|
parent(m, b)
|
|
parent(f, a)
|
|
parent(f, b)
|
|
parent(f, c)
|
|
parent(s, c)
|
|
Complete? yes
|
|
Found partially uncovered atom:
|
|
common_father(_, _)
|
|
Is this a bug? yes
|
|
86: 15 4 FAIL pred family.common_father/2-0 (nondet) family.m:62 (family.m:79)
|
|
mdb> continue
|
|
268: 2 2 EXIT pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> continue
|
|
269: 2 2 REDO pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> finish
|
|
530: 2 2 EXIT pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> dd -d 3 -n 7
|
|
half_siblings(b, a)
|
|
Valid? no
|
|
Found partially uncovered atom:
|
|
common_father(_, _)
|
|
Is this a bug? yes
|
|
348: 59 4 FAIL pred family.common_father/2-0 (nondet) family.m:62 (family.m:79)
|
|
mdb> continue
|
|
530: 2 2 EXIT pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> continue
|
|
531: 2 2 REDO pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> finish
|
|
695: 2 2 FAIL pred family.half_siblings/2-0 (nondet) family.m:83 (family.m:15)
|
|
mdb> dd -d 3 -n 7
|
|
Call half_siblings(_, _)
|
|
Solutions:
|
|
half_siblings(a, b)
|
|
half_siblings(b, a)
|
|
Complete? no
|
|
siblings(b, a)
|
|
Valid? yes
|
|
Call siblings(_, _)
|
|
Solutions:
|
|
siblings(a, b)
|
|
siblings(b, a)
|
|
Complete? no
|
|
Found partially uncovered atom:
|
|
common_father(_, _)
|
|
Is this a bug? yes
|
|
693: 110 4 FAIL pred family.common_father/2-0 (nondet) family.m:62 (family.m:73)
|
|
mdb> quit -y
|