Mercurial > octave

view test/bug-54490.tst @ 27949:47216fd5d532 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
build: adapt mk-qthelp.pl to changes in Texinfo 6.7 * mk-qthelp.pl: Update regular expression to allow HTML attributes after href to accomodate changes in Texinfo 6.7.
author Mike Miller <mtmiller@octave.org>
date Wed, 16 Oct 2019 12:17:58 -0700
parents cc9da21511c1
children 2838bbd84b87
line wrap: on
line source

%!function out = bug54490 ()
%!  global k;
%!  k = 1;
%!  out = 3;
%!endfunction

%!test
%! global k;
%! k = 2;
%! a = [5, 6];
%! a(k) = bug54490 ();
%! assert (a, [5, 3]);
%! k = 2;
%! a = [5, 6];
%! [a(k)] = bug54490 ();
%! assert (a, [5, 3]);
%! clear -global k;  # cleanup after test