Mercurial > octave
view test/bug-45969.tst @ 31949:1dba35103327
perms.cc: Resequenced output for compatibility (bug #50426)
Previously, perms() was returning results in reverse lexicographic order.
For compatibility, it is required to do that only for inputs in ascending
order. Other inputs carry over that permutation to the results as well. This
edit changes the sort order, changes the docs, and fixes some BISTs to match.
Co-author: "Hendrik Koerner <koerhen@web.de>"
in https://savannah.gnu.org/bugs/index.php?63962#comment18
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Fri, 31 Mar 2023 14:36:03 -0400 |
parents | 9080316864bf |
children |
line wrap: on
line source
%!test <*45969> %! text_filename = tempname (); %! binary_filename = tempname (); %! a = 2; %! b = 10; %! c = 20; %! f1 = @ (f, x) f (x) + a; %! f2 = @ (y) f1 (@ (z) z^2 + b * y, y) + c; %! f2_arg = 5; %! save_default_options ("-text", "local"); %! unwind_protect %! save (text_filename, "f2"); %! save ("-binary", binary_filename, "f2"); %! text = load (text_filename); %! binary = load (binary_filename); %! assert (f2 (f2_arg), text.f2 (f2_arg)); %! assert (f2 (f2_arg), binary.f2 (f2_arg)); %! unwind_protect_cleanup %! unlink (text_filename); %! unlink (binary_filename); %! end_unwind_protect %!testif HAVE_HDF5 <*45969> %! hdf5_filename = tempname (); %! a = 2; %! b = 10; %! c = 20; %! f1 = @ (f, x) f (x) + a; %! f2 = @ (y) f1 (@ (z) z^2 + b * y, y) + c; %! f2_arg = 5; %! save_default_options ("-text", "local"); %! unwind_protect %! save ("-hdf5", hdf5_filename, "f2"); %! hdf5 = load (hdf5_filename); %! assert (f2 (f2_arg), hdf5.f2 (f2_arg)); %! unwind_protect_cleanup %! unlink (hdf5_filename); %! end_unwind_protect