mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 01:43:35 +00:00
5d457a8fb4
tests/debugger/term_size_cells.{m,exp}:
Update this test case as per the rcent change to the
.tsw version.
50 lines
1.7 KiB
Plaintext
50 lines
1.7 KiB
Plaintext
E1: C1 CALL pred term_size_cells.main/2-0 (det) term_size_cells.m:23
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> context none
|
|
Contexts will not be printed.
|
|
mdb> break static
|
|
0: + stop interface pred term_size_cells.static/3-0 (det)
|
|
mdb> continue
|
|
E2: C2 CALL pred term_size_cells.static/3-0 (det)
|
|
mdb> finish
|
|
E3: C2 EXIT pred term_size_cells.static/3-0 (det)
|
|
mdb> print *
|
|
IntList (arg 1) [1, 2, 3]
|
|
StringList (arg 2) ["a", "bb", "ccc"]
|
|
Tree (arg 3) node(leaf, "one", 1, node(leaf, "two", 2, leaf))
|
|
mdb> term_size *
|
|
IntList 3
|
|
StringList 3
|
|
Tree 2
|
|
mdb> break dynamic
|
|
1: + stop interface pred term_size_cells.dynamic/6-0 (det)
|
|
mdb> continue
|
|
E4: C3 CALL pred term_size_cells.dynamic/6-0 (det)
|
|
mdb> finish
|
|
E5: C3 EXIT pred term_size_cells.dynamic/6-0 (det)
|
|
mdb> print *
|
|
IntList (arg 1) [1, 2, 3]
|
|
DoubleIntList (arg 2) [1, 2, 3, 1, 2, 3]
|
|
FloatList (arg 3) [1.0, 2.0, 3.0]
|
|
PairList (arg 4) [1 - 1.0, 2 - 2.0, 3 - 3.0]
|
|
UnivList (arg 5) [univ_cons(1), univ_cons(2), univ_cons(3)]
|
|
Univ (arg 6) univ_cons(node(node(leaf, 2, -/2, leaf), 1, -(1.0, "one"), leaf))
|
|
mdb> term_size *
|
|
IntList 3
|
|
DoubleIntList 6
|
|
FloatList 3
|
|
PairList 6
|
|
UnivList 6
|
|
Univ 5
|
|
mdb> continue -n -S
|
|
[1, 2, 3]
|
|
["a", "bb", "ccc"]
|
|
node(leaf, "one", 1, node(leaf, "two", 2, leaf))
|
|
[1, 2, 3, 1, 2, 3]
|
|
[1.0, 2.0, 3.0]
|
|
[1 - 1.0, 2 - 2.0, 3 - 3.0]
|
|
[univ_cons(1), univ_cons(2), univ_cons(3)]
|
|
univ_cons(node(node(leaf, 2, 2.0 - "two", leaf), 1, 1.0 - "one", leaf))
|