mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 03:43:51 +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.
54 lines
1.4 KiB
Mathematica
54 lines
1.4 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test case for elimination of special predicates in base_type_infos.
|
|
%
|
|
% We can use arg/3 and det_arg/3 to retrieve arguments of types, and
|
|
% unify them. Analysis procedures may incorrectly conclude that
|
|
% we cannot call the unification procedure (or other procedures), and
|
|
% so eliminate it.
|
|
%
|
|
% The Mercury compiler of February 13th, 1997 failed an earlier version
|
|
% of this test - the test ended with a runtime error indicating that
|
|
% an unused predicate had been called.
|
|
%
|
|
% Author: trd
|
|
|
|
:- module elim_special_pred.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module deconstruct.
|
|
:- import_module int.
|
|
:- import_module list.
|
|
:- import_module map.
|
|
:- import_module string.
|
|
:- import_module term.
|
|
:- import_module univ.
|
|
|
|
:- type enum
|
|
---> one
|
|
; two
|
|
; three.
|
|
|
|
:- type fruit
|
|
---> banana(enum).
|
|
|
|
main(!IO) :-
|
|
X = banana(three),
|
|
Y = banana(two),
|
|
det_arg(X, canonicalize, 0, PseudoXArg),
|
|
type_to_univ(PseudoXArg, XArg),
|
|
det_arg(Y, canonicalize, 0, PseudoYArg),
|
|
type_to_univ(PseudoYArg, YArg),
|
|
( XArg = YArg ->
|
|
io.write_string("same\n", !IO)
|
|
;
|
|
io.write_string("different\n", !IO)
|
|
).
|