mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-25 14:24:11 +00:00
107a5d42d4
Like most test directories, tests/invalid contains several groups of
related tests. The names of these tests followed several different patterns:
x_1, x_2, x_3
x, x_2, x_3
x, x2, x3
This diff changes all these groups to follow the first pattern above
by renaming all the relevant tests in the groups that used to follow
one of the other patterns.
29 lines
813 B
Mathematica
29 lines
813 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Abother test for circular equivalence insts.
|
|
% This test is the same as circ_inst_2.m except that we
|
|
% also have a predicate which makes use of the insts.
|
|
%
|
|
|
|
:- module circ_mode_4.
|
|
|
|
:- interface.
|
|
:- import_module list.
|
|
|
|
:- mode circ1(I) == circ1(I). % error -- cyclic
|
|
:- mode circ2(I) == circ2(list_skel(I)). % error -- cyclic
|
|
|
|
:- mode left(I) == right(I). % error -- cyclic
|
|
:- mode right(I) == left(I). % error -- cyclic
|
|
|
|
:- pred p(int, int, int, int).
|
|
:- mode p(circ1(ground), circ2(ground),
|
|
left(ground), right(ground))
|
|
is det.
|
|
|
|
:- implementation.
|
|
|
|
p(A, A, B, B).
|