mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
ae23098f04
Estimated hours taken: 0.5 Update test suite now that bool is a separate module and `term_*' is now `term__*'. tests/general/environment.m: Import `bool'. `std_util__bool_not' is now `bool__not'. tests/general/interpreter.m: Replace `term_' with `term__' where appropriate. tests/general/set_test.m: Fix some bugs in the test case. tests/general/hello_again.m: Avoid `incorrect module name' warning.
32 lines
620 B
Mathematica
32 lines
620 B
Mathematica
% A regression test: mercury-0.4 miscompiled this program.
|
|
|
|
:- module hello_again.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module std_util.
|
|
|
|
main -->
|
|
{ solutions(hello(1, 1), List) },
|
|
io__write_strings(List).
|
|
|
|
:- pred hello(int::in, int::in, string::out) is nondet.
|
|
|
|
hello(1,1,"Hello, world\n"). % should output both
|
|
hello(1,1,"Hello again, world\n"). % strings
|
|
|
|
% ------------------------
|
|
% But it does not seem to:
|
|
% ------------------------
|
|
%
|
|
% > mc test4
|
|
% > test4
|
|
% Hello, world
|
|
% >
|
|
%
|
|
|
|
|