mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
e876db7873
Change array.fetch_items/4 to return an empty list for an empty range in the
case where the endpoints of that range are not within the array bounds.
library/array.m:
As above.
deep_profiler/autopar_types.m:
Undo Zoltan's recent workaround for the above behaviour.
tests/hard_coded/array_fetch_items.{m,ex}:
Add tests for this behaviour.
55 lines
1.6 KiB
Mathematica
55 lines
1.6 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Test array.fetch_items/4.
|
|
%
|
|
|
|
:- module array_fetch_items.
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is cc_multi.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module array.
|
|
:- import_module exception.
|
|
:- import_module list.
|
|
|
|
main(!IO) :-
|
|
test_fetch_items([1, 2, 3, 4, 5], 0, 4, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 1, 3, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 0, 0, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], -1, 0, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 0, 6, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 4, 2, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 561, -1, !IO),
|
|
test_fetch_items([1, 2, 3, 4, 5], 561, 561, !IO).
|
|
|
|
:- pred test_fetch_items(list(T)::in, int::in, int::in, io::di, io::uo)
|
|
is cc_multi.
|
|
|
|
test_fetch_items(Elems, Lo, Hi, !IO) :-
|
|
io.write_string("================\n", !IO),
|
|
array.from_list(Elems, Array),
|
|
io.write_string("Array = ", !IO),
|
|
io.write_line(Array, !IO),
|
|
io.write_string("Lo = ", !IO),
|
|
io.write_line(Lo, !IO),
|
|
io.write_string("Hi = ", !IO),
|
|
io.write_line(Hi, !IO),
|
|
( try [] (
|
|
array.fetch_items(Array, Lo, Hi, List)
|
|
) then
|
|
io.write_string("List = ", !IO),
|
|
io.write_line(List, !IO)
|
|
catch index_out_of_bounds(S) ->
|
|
io.write_string("EXCEPTION: ", !IO),
|
|
io.write_line(S, !IO)
|
|
).
|