Mercurial > octave
view test/bug-53599.tst @ 33250:40fde86be9b0
replace calls to error_* with corresponding panic_* functions in libinterp
Affected files: __isprimelarge__.cc, cellfun.cc, daspk.cc, dasrt.cc,
dassl.cc, data.cc, graphics.cc, kron.cc, mex.cc, oct-map.cc,
oct-stream.cc, pr-output.cc, schur.cc, variables.cc, and ops.h.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 25 Mar 2024 00:42:04 -0400 |
parents | 332a6ccac881 |
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