mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-27 23:34:52 +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.
26 lines
560 B
Mathematica
26 lines
560 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test for circular equivalence modes.
|
|
% This is the same as circ_mode_1.m,
|
|
% except that we also have a predicate which makes use of the modes.
|
|
%
|
|
|
|
:- module circ_mode_3.
|
|
|
|
:- interface.
|
|
|
|
:- mode circ == circ.
|
|
|
|
:- mode circ1 == circ2.
|
|
|
|
:- mode circ2 == circ1.
|
|
|
|
:- pred p(int, int, int, int).
|
|
:- mode p(circ, circ, circ1, circ2) is det.
|
|
|
|
:- implementation.
|
|
|
|
p(X, X, Y, Y).
|