mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-24 22:04:13 +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.
25 lines
932 B
Mathematica
25 lines
932 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Abother test for circular equivalence insts.
|
|
% This test is similar to circ_inst_1.m but tests some more
|
|
% complicated cases involving parametric insts.
|
|
%
|
|
|
|
:- module circ_inst_2.
|
|
|
|
:- interface.
|
|
:- import_module list.
|
|
|
|
:- inst circ1(I) == circ1(I). % error -- cyclic
|
|
:- inst circ2(I) == circ2(circ2(I)). % error -- cyclic
|
|
:- inst circ3(I) == list_skel(circ3(I)). % OK
|
|
:- inst circ4(I) == circ4(list_skel(I)). % error -- cyclic
|
|
|
|
:- inst left(I) == right(I). % error -- cyclic
|
|
:- inst right(I) == left(I). % error -- cyclic
|
|
|
|
:- inst circ_left(I) == circ_right(list_skel(I)). % OK
|
|
:- inst circ_right(I) == list_skel(circ_left(I)). % OK
|