Mercurial > octave
view test/bug-53599.tst @ 30000:362029cc0202
* load-save.h (dump_octave_core): Deprecate function. Change all uses.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 18 Aug 2021 09:23:45 -0400 |
parents | 34617dd78f02 |
children | 2838bbd84b87 |
line wrap: on
line source
%!function rval = sggval (val) %! global gval %! if (nargin == 1) %! gval = val; %! else %! rval = gval; %! endif %!endfunction %!test %! 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