Files
mercury/tests/term/existential_error1.m
Zoltan Somogyi fdd141bf77 Clean up the tests in the other test directories.
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.
2015-02-16 12:32:18 +11:00

28 lines
894 B
Mathematica

%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
%
% Regression test for term_norm.m
% Symptom: "Software Error: Unmatched lists in functor_norm_filter_args."
% This was caused by the list of counted arguments in the weight table differing
% from the list of arguments the termination analyser provided when it called
% functor norm. The code that constructed the weight table was ignoring
% type_infos when constructing the list of counted arguments.
:- module existential_error1.
:- interface.
:- type univ
---> some [T] univ_cons(T).
:- pred deconstruct_univ(univ::in, T::out) is semidet.
:- implementation.
deconstruct_univ(Univ, T) :-
Univ = univ_cons(T0),
private_builtin__typed_unify(T0, T).
:- end_module existential_error1.