mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 12:23:44 +00:00
33eb3028f5
tests/accumulator/*.m:
tests/analysis_*/*.m:
tests/benchmarks*/*.m:
tests/debugger*/*.{m,exp,inp}:
tests/declarative_debugger*/*.{m,exp,inp}:
tests/dppd*/*.m:
tests/exceptions*/*.m:
tests/general*/*.m:
tests/grade_subdirs*/*.m:
tests/hard_coded*/*.m:
Make these tests use four-space indentation, and ensure that
each module is imported on its own line. (I intend to use the latter
to figure out which subdirectories' tests can be executed in parallel.)
These changes usually move code to different lines. For the debugger tests,
specify the new line numbers in .inp files and expect them in .exp files.
293 lines
7.3 KiB
Plaintext
293 lines
7.3 KiB
Plaintext
E1: C1 CALL pred browser_test.main/2-0 (det) browser_test.m:20
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> list_context_lines 10
|
|
mdb> break big_data
|
|
0: + stop interface pred browser_test.big_data/1-0 (det)
|
|
mdb> continue
|
|
E2: C2 CALL pred browser_test.big_data/1-0 (det) browser_test.m:41 (browser_test.m:24)
|
|
mdb> finish
|
|
E3: C2 EXIT pred browser_test.big_data/1-0 (det) browser_test.m:41 (browser_test.m:24)
|
|
mdb> delete *
|
|
0: E stop interface pred browser_test.big_data/1-0 (det)
|
|
mdb> dump -q 1 browser_test.save.1
|
|
mdb> format raw_pretty
|
|
mdb> print *
|
|
Data (arg 1)
|
|
big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
|
|
mdb> format -A verbose
|
|
mdb> print *
|
|
Data (arg 1)
|
|
big
|
|
1-big
|
|
| 1-big
|
|
| | 1-small
|
|
| | 2-1
|
|
|
|
mdb> browse 1; ls; quit
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
mdb> format -AP flat
|
|
mdb> print -f 1
|
|
Data (arg 1) big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
|
|
mdb> print -p 1
|
|
Data (arg 1)
|
|
big(big(big(...), ...), 3, ...)
|
|
mdb> print -v 1
|
|
Data (arg 1)
|
|
big
|
|
1-big
|
|
| 1-big
|
|
| | 1-small
|
|
| | 2-1
|
|
| | 3-small
|
|
| 2-2
|
|
| 3-small
|
|
2-3
|
|
3-big
|
|
1-big
|
|
| 1-small
|
|
| 2-4
|
|
| 3-big/3
|
|
2-6
|
|
3-small
|
|
|
|
mdb> print -r 1
|
|
Data (arg 1)
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
mdb> print --xyzzy 1
|
|
print: unrecognized option `--xyzzy'
|
|
mdb: print: usage error -- type `help print' for help.
|
|
mdb> browse 1; print; quit
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
mdb> browse -f 1; ls; quit
|
|
big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big(small, 5, small)), 6, small))
|
|
mdb> browse Data
|
|
browser> ls
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
browser> cd /1
|
|
browser> ls
|
|
big(big(small, 1, small), 2, small)
|
|
browser> cd /1/2
|
|
browser> ls
|
|
2
|
|
browser> cd /3
|
|
browser> ls
|
|
big(big(small, 4, big(small, 5, small)), 6, small)
|
|
browser> cd 1/3/2
|
|
browser> ls
|
|
5
|
|
browser> cd
|
|
browser> ls
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
browser> cdr 100 2
|
|
error: in subdir 2: there is no subterm 2
|
|
browser> cdr 3 1
|
|
browser> ls
|
|
small
|
|
browser> cdr 3 ../1/..
|
|
browser> ls
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
browser> quit
|
|
mdb> xml_tmp_filename './browser_test.xml.out'
|
|
mdb> xml_browser_cmd 'cat ./browser_test.xml.out'
|
|
mdb> browse --xml 1
|
|
Saving term to XML file...
|
|
Launching XML browser (this may take some time) ...
|
|
<?xml version="1.0"?>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">1</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
<Int type="int">2</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
<Int type="int">3</Int>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">4</Int>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">5</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
</big>
|
|
<Int type="int">6</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
</big>
|
|
mdb> browse -x Data
|
|
Saving term to XML file...
|
|
Launching XML browser (this may take some time) ...
|
|
<?xml version="1.0"?>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">1</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
<Int type="int">2</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
<Int type="int">3</Int>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">4</Int>
|
|
<big functor="big" type="browser_test.big" arity="3">
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
<Int type="int">5</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
</big>
|
|
<Int type="int">6</Int>
|
|
<small functor="small" type="browser_test.big" arity="0" />
|
|
</big>
|
|
</big>
|
|
mdb> format_param -A -f depth 1
|
|
mdb> print *
|
|
Data (arg 1) big(big/3, 3, big/3)
|
|
mdb> print Data/1
|
|
Data (arg 1)^1 big(big(small, 1, small), 2, small)
|
|
mdb> format_param -f depth 3
|
|
mdb> print 1
|
|
Data (arg 1) big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big/3), 6, small))
|
|
mdb> print Data/1/2
|
|
Data (arg 1)/1/2 2
|
|
mdb> print 1^1^2^3
|
|
mdb: at 1^2^ the path 3 does not exist in variable 1.
|
|
mdb> retry
|
|
E2: C2 CALL pred browser_test.big_data/1-0 (det) browser_test.m:41 (browser_test.m:24)
|
|
mdb> break list_data
|
|
0: + stop interface pred browser_test.list_data/1-0 (det)
|
|
mdb> continue
|
|
big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big(small, 5, small)), 6, small)).
|
|
E4: C3 CALL pred browser_test.list_data/1-0 (det) browser_test.m:70 (browser_test.m:27)
|
|
mdb> finish
|
|
E5: C3 EXIT pred browser_test.list_data/1-0 (det) browser_test.m:70 (browser_test.m:27)
|
|
mdb> dump Data browser_test.save.2
|
|
Dumped Data to browser_test.save.2
|
|
mdb> break a_func
|
|
1: + stop interface func browser_test.a_func/1-0 (det)
|
|
mdb> continue
|
|
seq(1, [big(big(small, 1, small), 2, small), small, big(small, 4, big(small, 5, small))], 5).
|
|
browser_test.save.1:
|
|
big(
|
|
big(
|
|
big(
|
|
small,
|
|
1,
|
|
small
|
|
),
|
|
2,
|
|
small
|
|
),
|
|
3,
|
|
big(
|
|
big(
|
|
small,
|
|
4,
|
|
big(
|
|
small,
|
|
5,
|
|
small
|
|
)
|
|
),
|
|
6,
|
|
small
|
|
)
|
|
)
|
|
|
|
browser_test.save.2:
|
|
seq(
|
|
1,
|
|
[
|
|
big(
|
|
big(
|
|
small,
|
|
1,
|
|
small
|
|
),
|
|
2,
|
|
small
|
|
),
|
|
small,
|
|
big(
|
|
small,
|
|
4,
|
|
big(
|
|
small,
|
|
5,
|
|
small
|
|
)
|
|
)
|
|
],
|
|
5
|
|
)
|
|
|
|
E6: C4 CALL func browser_test.a_func/1-0 (det) browser_test.m:116 (browser_test.m:35)
|
|
mdb> finish
|
|
E7: C4 EXIT func browser_test.a_func/1-0 (det) browser_test.m:116 (browser_test.m:35)
|
|
mdb> print -p
|
|
a_func(big(big(...), ...)) = big(big(...), ...)
|
|
mdb> print -r
|
|
a_func(
|
|
big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small)))
|
|
= big(
|
|
big(big(small, 1, small), 2, small),
|
|
3,
|
|
big(big(small, 4, big(small, 5, small)), 6, small))
|
|
mdb> print -v
|
|
a_func
|
|
1-big
|
|
| 1-big
|
|
| | 1-big/3
|
|
| | 2-2
|
|
| | 3-small
|
|
| 2-3
|
|
| 3-big
|
|
| 1-big/3
|
|
| 2-6
|
|
| 3-small
|
|
2-big
|
|
1-big
|
|
| 1-big/3
|
|
| 2-2
|
|
| 3-small
|
|
2-3
|
|
3-big
|
|
1-big/3
|
|
2-6
|
|
3-small
|
|
|
|
mdb> print -f
|
|
a_func(big(big(big/3, 2, small), 3, big(big/3, 6, small))) = big(big(big/3, 2, small), 3, big(big/3, 6, small))
|
|
mdb> continue
|
|
big(big(big(small, 1, small), 2, small), 3, big(big(small, 4, big(small, 5, small)), 6, small))
|