%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
%
% A test using module qualification to resolve ambiguous overloading.
% The three versions of `format' should all produce different output,
% despite having the same name, and strang and strung both importing string.m
%
% The implementation predicates are mostly have the same names too,
% and a couple have different clauses.

:- module qual_adv_test.

:- interface.
:- import_module io.

:- pred qual_adv_test.main(io.state::di, io.state::uo) is det.

:- implementation.

:- import_module list.
:- import_module string.
:- import_module qual_strang.
:- import_module qual_strung.

main -->
    { String = "asdfjkfhaslks" },
    { FString = "iii %s.\n"},
    { string.format(FString, [s(String)], Out1) },
    io.write_string(Out1),
    { qual_strang.format(FString, [s(String)], Out2) },
    io.write_string(Out2),
    { qual_strung.format(FString, [s(String)], Out3) },
    io.write_string(Out3),
    { Out4 = qual_strang.format_func(FString, [s(String)]) },
    { Out5 = qual_strung.format_func(FString, [s(String)]) },
    (
        { Out4 = Out2 },
        { Out5 = Out3 }
    ->
        io.write_string("ok\n")
    ;
        io.write_string("failed\n")
    ).