Mercurial > octave
view test/bug-53599.tst @ 31133:1d61c36bb34a
build: Uspdate Copyright notices for acinclude.m4, octave_blas.m4.
* acinclude.m4: Update copyright notice which was missing a word.
* octave_blas.m4: Add copyright notice to new file. Also rename
"save_octave_blas_f77_func_LIBS" variable to "ac_octave_save_LIBS".
author | Rik <rik@octave.org> |
---|---|
date | Sat, 09 Jul 2022 11:29:19 -0700 |
parents | 9080316864bf |
children | 332a6ccac881 |
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