Mercurial > octave
annotate test/bug-54490.tst @ 31237:e3016248ca5d
uifigure.m: Call set () only if varargin is not empty (bug #63088)
* uifigure.m: Call set () only if varargin is not empty.
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Wed, 21 Sep 2022 09:55:32 -0400 |
parents | 9080316864bf |
children |
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 |