mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 23:34:52 +00:00
df344578d3
tests/invalid_submodules/*.m:
Rename modules as mentioned above.
Indent nested submodules to make them stand out.
tests/invalid_submodules/*.m:
tests/invalid_submodules/*.err_exp:
Update all references to the moved modules.
tests/invalid_submodules/Mercury.options:
Delete reference to a test that is another directory.
117 lines
3.0 KiB
Mathematica
117 lines
3.0 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test of modules declared as both nested and separate modules.
|
|
% This is referenced from duplicate_module_test.m.
|
|
|
|
:- module duplicate_module_test_helper_1.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred do_main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- include_module duplicate_module_test_helper_1.child.
|
|
|
|
:- module duplicate_module_test_helper_1.child.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo
|
|
---> bar
|
|
; baz(int).
|
|
|
|
:- pred hello(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello(!IO) :-
|
|
io.write_string("duplicate_module_test_helper_1.child.hello\n", !IO).
|
|
|
|
:- end_module duplicate_module_test_helper_1.child.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- include_module child2.
|
|
|
|
:- module duplicate_module_test_helper_1.child2.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo
|
|
---> bar
|
|
; baz(int).
|
|
|
|
:- pred hello(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello(!IO) :-
|
|
io.write_string("duplicate_module_test_helper_1.child2.hello\n", !IO).
|
|
|
|
:- end_module duplicate_module_test_helper_1.child2.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- include_module duplicate_module_test_helper_1.child3.
|
|
|
|
:- module child3.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- type foo
|
|
---> bar
|
|
; baz(int).
|
|
|
|
:- pred hello(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello(!IO) :-
|
|
io.write_string("duplicate_module_test_helper_1.child3.hello\n", !IO).
|
|
|
|
:- end_module child3.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module child4.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred hello(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
hello(!IO) :-
|
|
io.write_string("duplicate_module_test_helper_1.child4.hello\n", !IO).
|
|
|
|
:- end_module duplicate_module_test_helper_1.child4.
|
|
|
|
:- include_module duplicate_module_test_helper_1.child4.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- include_module duplicate_module_test_helper_1.child5.
|
|
:- include_module duplicate_module_test_helper_1.child5.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% Now we are back in the parent module.
|
|
|
|
:- use_module duplicate_module_test_helper_1.child.
|
|
:- use_module duplicate_module_test_helper_1.child2.
|
|
:- use_module duplicate_module_test_helper_1.child3.
|
|
:- import_module require.
|
|
:- import_module std_util.
|
|
|
|
do_main(!IO) :-
|
|
duplicate_module_test_helper_1.child.hello,
|
|
duplicate_module_test_helper_1.child2.hello,
|
|
duplicate_module_test_helper_1.child3.hello.
|
|
|
|
:- end_module duplicate_module_test_helper_1.
|