mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +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.
84 lines
2.3 KiB
Mathematica
84 lines
2.3 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test error messages for invalid foreign_export_enum pragmas.
|
|
%
|
|
:- module ee_invalid.
|
|
:- interface.
|
|
|
|
:- type foo(T)
|
|
---> foo(T).
|
|
|
|
:- type bar == int.
|
|
|
|
:- implementation.
|
|
|
|
:- type baz
|
|
---> baz.
|
|
:- pragma foreign_type("C", baz, "int *").
|
|
|
|
:- type alphabet
|
|
---> abc
|
|
; def
|
|
; ghi
|
|
; jkl
|
|
; mno
|
|
; pqr
|
|
; stu
|
|
; vwx
|
|
; yz.
|
|
|
|
:- type strange_names
|
|
---> '!@THIS'
|
|
; '#$WON''T'
|
|
; '%^WORK'.
|
|
|
|
% foreign_export_enum pragma for atomic type.
|
|
%
|
|
:- pragma foreign_export_enum("C", int/0).
|
|
|
|
% foreign export_enum pragma for undefined type.
|
|
%
|
|
:- pragma foreign_export_enum("C", undefined_type/0).
|
|
|
|
% foreign_export_enum pragma for non-enumeration d.u. type.
|
|
%
|
|
:- pragma foreign_export_enum("C", foo/1).
|
|
|
|
% foreign_export_enum pragma for equivalence type.
|
|
%
|
|
:- pragma foreign_export_enum("C", bar/0).
|
|
|
|
% foreign_export_enum pragma for foreign_type (with default
|
|
% Mercury definition.)
|
|
% We should reject these if the language of the foreign_type
|
|
% and foreign_export_enum pragmas is the same.
|
|
%
|
|
:- pragma foreign_export_enum("C", baz/0).
|
|
|
|
% foreign_export_enum pragma where the override list refers to a
|
|
% constructor that is not a member of the type.
|
|
%
|
|
:- pragma foreign_export_enum("C", alphabet/0,
|
|
[], [abc - "ABC", deg - "DEF"]).
|
|
|
|
% Make sure we do something sensible with module-qualifiers
|
|
% in the override list.
|
|
:- pragma foreign_export_enum("C", alphabet/0,
|
|
[], [ee_invalid.abc - "ABC", foo.def - "DEF"]).
|
|
|
|
% Check that the the mappings from Mercury -> Foreign names are a bijection.
|
|
%
|
|
:- pragma foreign_export_enum("C", alphabet/0,
|
|
[prefix("FOO")], [abc - "ABC", deg - "ABC"]).
|
|
:- pragma foreign_export_enum("C", alphabet/0,
|
|
[prefix("BAR")], [def - "abc"]).
|
|
:- pragma foreign_export_enum("C", alphabet/0,
|
|
[prefix("BAZ")], [abc - "ABC", abc - "DEF"]).
|
|
|
|
% Emit an error when the default mapping for a language fails and
|
|
% the user has not specified an alternative.
|
|
%
|
|
:- pragma foreign_export_enum("C", strange_names/0).
|