mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-11 20:03:28 +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.
42 lines
911 B
Mathematica
42 lines
911 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Both alternatives of the type t are represented by tuples of size 3 on
|
|
% the erlang backend, make sure the compiler distinguishes between
|
|
% them correctly.
|
|
|
|
:- module erlang_deconstruct.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int.
|
|
|
|
:- type t
|
|
---> f(int, int)
|
|
; some [T] f(T).
|
|
|
|
main(!IO) :-
|
|
check_t(create(0), !IO),
|
|
check_t(create(100), !IO).
|
|
|
|
:- pred check_t(t::in, io::di, io::uo) is det.
|
|
|
|
check_t(f(_, _), !IO) :-
|
|
io.write_string("f/2\n", !IO).
|
|
check_t(f(_), !IO) :-
|
|
io.write_string("f/1\n", !IO).
|
|
|
|
:- func create(int) = t.
|
|
|
|
create(N) =
|
|
( abs(N) > 10 ->
|
|
f(1, 1)
|
|
;
|
|
'new f'("string")
|
|
).
|