view test/bug-45972.tst @ 30893:e1788b1a315f

maint: Use "fcn" as preferred abbreviation for "function" in m-files. * accumarray.m, accumdim.m, quadl.m, quadv.m, randi.m, structfun.m, __is_function__.m, uigetfile.m, uimenu.m, uiputfile.m, doc_cache_create.m, colorspace_conversion_input_check.m, imageIO.m, argnames.m, vectorize.m, vectorize.m, normest1.m, inputname.m, nthargout.m, display_info_file.m, decic.m, ode15i.m, ode15s.m, ode23.m, ode23s.m, ode45.m, odeset.m, check_default_input.m, integrate_adaptive.m, ode_event_handler.m, runge_kutta_23.m, runge_kutta_23s.m, runge_kutta_45_dorpri.m, runge_kutta_interpolate.m, starting_stepsize.m, __all_opts__.m, fminbnd.m, fminsearch.m, fminunc.m, fsolve.m, fzero.m, sqp.m, fplot.m, plotyy.m, __bar__.m, __ezplot__.m, flat_entry.html, profexport.m, movfun.m, bicg.m, bicgstab.m, cgs.m, eigs.m, gmres.m, pcg.m, __alltohandles__.m, __sprand__.m, qmr.m, tfqmr.m, dump_demos.m: Replace "func", "fun", "fn" in documentation and variable names with "fcn".
author Rik <rik@octave.org>
date Mon, 04 Apr 2022 18:14:56 -0700
parents 9080316864bf
children
line wrap: on
line source

%!test <*45972>
%! ascii_filename = tempname ();
%! binary_filename = tempname ();
%! f = @ (x, y, varargin) x + y + varargin{1};
%! unwind_protect
%!   save ("-text", ascii_filename, "f");
%!   save ("-binary", binary_filename, "f");
%!   ascii = load (ascii_filename);
%!   binary = load (binary_filename);
%!   assert (f (1, 2, 3), ascii.f (1, 2, 3));
%!   assert (f (1, 2, 3), binary.f (1, 2, 3));
%! unwind_protect_cleanup
%!   unlink (ascii_filename);
%!   unlink (binary_filename);
%! end_unwind_protect

%!testif HAVE_HDF5 <*45972>
%! hdf5_filename = tempname ();
%! f = @ (x, y, varargin) x + y + varargin{1};
%! unwind_protect
%!   save ("-hdf5", hdf5_filename, "f");
%!   hdf5 = load (hdf5_filename);
%!   assert (f (1, 2, 3), hdf5.f (1, 2, 3));
%! unwind_protect_cleanup
%!   unlink (hdf5_filename);
%! end_unwind_protect