Mercurial > octave

annotate test/bug-55321.tst @ 31221:f5755dbacd8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: merge stable to default
author Pantxo Diribarne <pantxo.diribarne@gmail.com>
date Wed, 31 Aug 2022 22:04:02 +0200
parents 796f54d4ddbf
children 597f3ee61a48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
1 ########################################################################
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
2 ##
30564
796f54d4ddbf update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 30110
diff changeset
3 ## Copyright (C) 2018-2022 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26473
diff changeset
4 ##
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
5 ## See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
6 ## distribution or <https://octave.org/copyright/>.
26316
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
7 ##
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
8 ## This file is part of Octave.
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
9 ##
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
10 ## Octave is free software: you can redistribute it and/or modify it
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
11 ## under the terms of the GNU General Public License as published by
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
12 ## the Free Software Foundation, either version 3 of the License, or
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
13 ## (at your option) any later version.
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
14 ##
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
15 ## Octave is distributed in the hope that it will be useful, but
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
18 ## GNU General Public License for more details.
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
19 ##
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
20 ## You should have received a copy of the GNU General Public License
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
21 ## along with Octave; see the file COPYING. If not, see
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
22 ## <https://www.gnu.org/licenses/>.
27923
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
23 ##
bd51beb6205e update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents: 27919
diff changeset
24 ########################################################################
26316
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
25
28563
5a07c798eb08 avoid function call input or output argument number mismatch
John W. Eaton <jwe@octave.org>
parents: 27923
diff changeset
26 %!function cb_children (hg, ~)
26316
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
27 %! hl = get (hg, "children");
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
28 %! color = get (hl, "color");
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
29 %! set (hl, "userdata", isequal (color, [1 0 0]));
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
30 %!endfunction
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
31
30110
9080316864bf update bug status in test suite
John W. Eaton <jwe@octave.org>
parents: 30109
diff changeset
32 %!test <*55321>
26316
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
33 %! hf = figure ("visible", "off");
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
34 %! unwind_protect
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
35 %! hax = axes ("parent", hf);
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
36 %! hg = hggroup ();
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
37 %! addlistener (hg, "children", @cb_children);
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
38 %! hl = line ([0, 1], [1, 1], "color", "r", "parent", hg);
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
39 %! assert (get (hl, "userdata"), true);
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
40 %! unwind_protect_cleanup
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
41 %! close (hf);
522a70bb738f Fix order of execution of graphic properties (bug #55321).
Rik <rik@octave.org>
parents:
diff changeset
42 %! end_unwind_protect