mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
62 lines
3.2 KiB
Plaintext
62 lines
3.2 KiB
Plaintext
E1: C1 CALL pred io_stream_test.main/2-0 (det) io_stream_test.m:22
|
|
mdb> echo on
|
|
Command echo enabled.
|
|
mdb> register --quiet
|
|
mdb> context none
|
|
Contexts will not be printed.
|
|
mdb> table_io allow
|
|
mdb> table_io start
|
|
I/O tabling started.
|
|
mdb> break io_stream_test__test
|
|
0: + stop interface pred io_stream_test.test/4-0 (det)
|
|
mdb> continue
|
|
E2: C2 CALL pred io_stream_test.test/4-0 (det)
|
|
mdb> print *
|
|
Stream (arg 1) stream(0, input, text, file("tabled_read_decl.data"))
|
|
mdb> finish -n
|
|
E3: C2 EXIT pred io_stream_test.test/4-0 (det)
|
|
mdb> print *
|
|
Stream (arg 1) stream(0, input, text, file("tabled_read_decl.data"))
|
|
N (arg 2) 1123
|
|
mdb> print
|
|
test(stream(0, input, text, file("tabled_read_decl.data")), 1123, _, _)
|
|
mdb> dd -d 3 -n 7 -a
|
|
test(stream(0, input, text, file("tabled_read_decl.data")), 1123, _, _)
|
|
4 tabled IO actions:
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '1')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '2')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '3')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '\n')
|
|
Valid? print 1-2
|
|
stream(0, input, text, file("tabled_read_decl.data"))
|
|
1123
|
|
dd> p io 1-2
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '1')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '2')
|
|
dd> no
|
|
test_2(stream(0, input, text, file("tabled_read_decl.data")), 1, 1123, _, _)
|
|
4 tabled IO actions:
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '1')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '2')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '3')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '\n')
|
|
Valid? yes
|
|
Found incorrect contour:
|
|
test_2(stream(0, input, text, file("tabled_read_decl.data")), 1, 1123, _, _)
|
|
4 tabled IO actions:
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '1')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '2')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '3')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '\n')
|
|
test(stream(0, input, text, file("tabled_read_decl.data")), 1123, _, _)
|
|
4 tabled IO actions:
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '1')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '2')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '3')
|
|
read_char_code_2(<<foreign(stream, 0xXXXX)>>, result_code_ok, <<foreign(system_error, 0xXXXX)>>, '\n')
|
|
Is this a bug? yes
|
|
E3: C2 EXIT pred io_stream_test.test/4-0 (det)
|
|
mdb> c -n -S
|
|
1123
|
|
1456
|