Mercurial > octave-libtiff
view test/bug-53599.tst @ 31204:86d7c1be75dd
__tiff_isa__: implemented an "isa" function using Tiff interface
* scripts/image/private/__tiff_isa__.m: implemented an "isa" function
to be used for imformats, using the Tiff interface and independant of
GraphicsMagick.
* scripts/image/module.mk: added entry for the new function file.
author | magedrifaat <magedrifaat@gmail.com> |
---|---|
date | Sat, 03 Sep 2022 19:49:43 +0200 |
parents | 9080316864bf |
children |
line wrap: on
line source
%!function rval = sggval (val) %! global gval %! if (nargin == 1) %! gval = val; %! else %! rval = gval; %! endif %!endfunction %!test <*53599> %! global gval %! assert (isempty (gval)) %! sggval (13); %! assert (sggval (), 13); %! assert (gval, 13); %! clear global gval %! assert (sggval (), []) %! gval = 42; %! assert (sggval (), []); %! clear gval %! global gval %! gval = 42; %! assert (sggval (), 42); %! clear -global gval; # cleanup after test