Mercurial > octave-libtiff
view test/bug-45972.tst @ 28217:87554d9ac6f8 stable
Warn if -v7.3 format is used for load/save (bug #45706).
* load-save.cc (Fload, Fsave): Document that -v7.3 format is not implemented.
* load-save.cc (load_save_system::parse_save_options): Detect '-v7.3' option
and issue an error() that format is not implemented.
* load-save.cc (load_save_system::load): Detect '-v7.3' option and issue an
error() that format is not implemented. Re-order if/elseif tree for clarity.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 14 Apr 2020 11:09:42 -0700 |
parents | a08602475855 |
children | 2838bbd84b87 |
line wrap: on
line source
%!test %! 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 %! 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