mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
fdd141bf77
tests/invalid/*.{m,err_exp}:
tests/misc_tests/*.m:
tests/mmc_make/*.m:
tests/par_conj/*.m:
tests/purity/*.m:
tests/stm/*.m:
tests/string_format/*.m:
tests/structure_reuse/*.m:
tests/submodules/*.m:
tests/tabling/*.m:
tests/term/*.m:
tests/trailing/*.m:
tests/typeclasses/*.m:
tests/valid/*.m:
tests/warnings/*.{m,exp}:
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 tests
that check compiler error messages, expect the new line numbers.
browser/cterm.m:
browser/tree234_cc.m:
Import only one module per line.
tests/hard_coded/boyer.m:
Fix something I missed.
56 lines
1.3 KiB
Mathematica
56 lines
1.3 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Ye-olde map lookup failed strikes again.
|
|
%
|
|
% tc_err2.m:024: In instance declaration for `tc_err2:actions(tc_err2:pstate)':
|
|
% tc_err2.m:024: no implementation for type class predicate method
|
|
% tc_err2.m:024: `tc_err2:handle_typedefs/3'.
|
|
% tc_err2.m:024: In instance declaration for `tc_err2:actions/1': incorrect
|
|
% tc_err2.m:024: method name(s).
|
|
% Uncaught exception:
|
|
% Software Error: map__lookup: key not found
|
|
% Key Type: prog_data:class_constraint
|
|
% Key Functor: constraint/2
|
|
% Value Type: hlds_data:constraint_proof
|
|
% Stack dump not available in this grade.
|
|
|
|
:- module tc_err2.
|
|
|
|
:- interface.
|
|
|
|
:- type pstate
|
|
---> pstate.
|
|
|
|
:- typeclass super(A) <= actions(A) where [
|
|
].
|
|
|
|
:- typeclass actions(A) where [
|
|
pred handle_typedefs(int, A, A),
|
|
mode handle_typedefs(in, in, out) is det
|
|
].
|
|
|
|
:- instance super(pstate).
|
|
:- instance actions(pstate).
|
|
|
|
:- pred foo(A) <= super(A).
|
|
:- mode foo(in) is det.
|
|
|
|
:- pred bar is det.
|
|
|
|
:- implementation.
|
|
|
|
:- instance super(pstate) where [
|
|
].
|
|
|
|
:- instance actions(pstate) where [
|
|
pred(handle_typedefs/2) is id
|
|
].
|
|
|
|
bar :-
|
|
foo(pstate).
|
|
|
|
foo(A) :-
|
|
handle_typedefs(4, A, _).
|