Mercurial > octave

annotate test/bug-54490.tst @ 33589:f07a7fe7bd51 default tip @

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: merge stable to default
author Rik <rik@octave.org>
date Thu, 16 May 2024 08:32:01 -0700
parents 9080316864bf
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25789
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
1 %!function out = bug54490 ()
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
2 %! global k;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
3 %! k = 1;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
4 %! out = 3;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
5 %!endfunction
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
6
30110
9080316864bf update bug status in test suite
John W. Eaton <jwe@octave.org>
parents: 30109
diff changeset
7 %!test <*54490>
25789
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
8 %! global k;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
9 %! k = 2;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
10 %! a = [5, 6];
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
11 %! a(k) = bug54490 ();
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
12 %! assert (a, [5, 3]);
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
13 %! k = 2;
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
14 %! a = [5, 6];
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
15 %! [a(k)] = bug54490 ();
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
16 %! assert (a, [5, 3]);
cc9da21511c1 use consistent eval order in simple and multi assignment (bug #54490)
John W. Eaton <jwe@octave.org>
parents:
diff changeset
17 %! clear -global k; # cleanup after test