Mercurial > octave

annotate scripts/testfun/assert.m @ 33632:fed0dc6fd44c default tip @

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove unused variable from libgui/module.mk * libgui/module.mk: remove empty variable OCTAVE_GUI_EDITOR_MOC
author Torsten Lilge <ttl-octave@mailbox.org>
date Mon, 27 May 2024 19:42:05 +0200
parents eeb900fb16fc
children
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 ##
32632
2e484f9f1f18 maint: update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 31960
diff changeset
3 ## Copyright (C) 2000-2024 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26593
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/>.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
7 ##
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
8 ## This file is part of Octave.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
9 ##
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24081
diff changeset
10 ## Octave is free software: you can redistribute it and/or modify it
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
11 ## under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24081
diff changeset
12 ## the Free Software Foundation, either version 3 of the License, or
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
13 ## (at your option) any later version.
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
14 ##
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
15 ## Octave is distributed in the hope that it will be useful, but
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22323
diff changeset
18 ## GNU General Public License for more details.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
19 ##
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
20 ## You should have received a copy of the GNU General Public License
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 6494
diff changeset
21 ## along with Octave; see the file COPYING. If not, see
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 24081
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 ########################################################################
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
25
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
26 ## -*- texinfo -*-
20852
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
27 ## @deftypefn {} {} assert (@var{cond})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
28 ## @deftypefnx {} {} assert (@var{cond}, @var{errmsg})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
29 ## @deftypefnx {} {} assert (@var{cond}, @var{errmsg}, @dots{})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
30 ## @deftypefnx {} {} assert (@var{cond}, @var{msg_id}, @var{errmsg}, @dots{})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
31 ## @deftypefnx {} {} assert (@var{observed}, @var{expected})
516bb87ea72e 2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents: 20735
diff changeset
32 ## @deftypefnx {} {} assert (@var{observed}, @var{expected}, @var{tol})
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
33 ##
19025
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
34 ## Produce an error if the specified condition is not met.
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
35 ##
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
36 ## @code{assert} can be called in three different ways.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
37 ##
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
38 ## @table @code
17170
d6499c14021c doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents: 16994
diff changeset
39 ## @item assert (@var{cond})
19025
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
40 ## @itemx assert (@var{cond}, @var{errmsg})
7770
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
41 ## @itemx assert (@var{cond}, @var{errmsg}, @dots{})
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
42 ## @itemx assert (@var{cond}, @var{msg_id}, @var{errmsg}, @dots{})
20162
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
43 ## Called with a single argument @var{cond}, @code{assert} produces an error if
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
44 ## @var{cond} is false (numeric zero).
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
45 ##
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
46 ## Any additional arguments are passed to the @code{error} function for
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
47 ## processing.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
48 ##
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
49 ## @item assert (@var{observed}, @var{expected})
20162
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
50 ## Produce an error if observed is not the same as expected.
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
51 ##
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
52 ## Note that @var{observed} and @var{expected} can be scalars, vectors,
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
53 ## matrices, strings, cell arrays, or structures.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
54 ##
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
55 ## @item assert (@var{observed}, @var{expected}, @var{tol})
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
56 ## Produce an error if observed is not the same as expected but equality
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
57 ## comparison for numeric data uses a tolerance @var{tol}.
20181
aa36fb998a4d maint: Remove unnecessary whitespace at end of lines.
Rik <rik@octave.org>
parents: 20162
diff changeset
58 ##
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
59 ## If @var{tol} is positive then it is an absolute tolerance which will produce
14868
5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
60 ## an error if @code{abs (@var{observed} - @var{expected}) > abs (@var{tol})}.
20181
aa36fb998a4d maint: Remove unnecessary whitespace at end of lines.
Rik <rik@octave.org>
parents: 20162
diff changeset
61 ##
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
62 ## If @var{tol} is negative then it is a relative tolerance which will produce
14868
5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
63 ## an error if @code{abs (@var{observed} - @var{expected}) >
19025
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
64 ## abs (@var{tol} * @var{expected})}.
20162
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
65 ##
19025
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
66 ## If @var{expected} is zero @var{tol} will always be interpreted as an
20162
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
67 ## absolute tolerance.
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
68 ##
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
69 ## If @var{tol} is not scalar its dimensions must agree with those of
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
70 ## @var{observed} and @var{expected} and tests are performed on an
2645f9ef8c88 doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents: 20054
diff changeset
71 ## element-by-element basis.
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
72 ## @end table
19025
f27140dd13a6 doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents: 18552
diff changeset
73 ## @seealso{fail, test, error, isequal}
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
74 ## @end deftypefn
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
75
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
76 function assert (cond, varargin)
6494
76a1a953533d [project @ 2007-04-05 16:09:03 by jwe]
jwe
parents: 6455
diff changeset
77
18370
7994d3ce6e8e assert.m: Fix regression and accept more than 3 arguments for certain cases (bug #41332).
Rik <rik@octave.org>
parents: 17907
diff changeset
78 if (nargin == 0)
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
79 print_usage ();
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
80 endif
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
81
17253
e3870f594d8b assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17252
diff changeset
82 persistent call_depth = -1;
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
83 persistent errmsg;
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
84
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
85 unwind_protect
6494
76a1a953533d [project @ 2007-04-05 16:09:03 by jwe]
jwe
parents: 6455
diff changeset
86
20735
418ae0cb752f Replace ++,-- with in-place operators for performance.
Rik <rik@octave.org>
parents: 20181
diff changeset
87 call_depth += 1;
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
88
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
89 if (call_depth == 0)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
90 errmsg = "";
7770
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
91 endif
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
92
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
93 if (nargin == 1 || (nargin > 1 && islogical (cond) && ischar (varargin{1})))
20054
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
94 if ((! isnumeric (cond) && ! islogical (cond))
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
95 || isempty (cond) || ! all (cond(:)))
30282
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
96
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
97 ## We don't want to start the debugger here if debug_on_error is
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
98 ## true so we set it to false and make the change local. Then
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
99 ## debug_on_error will be reset to true after this function
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
100 ## returns and the debugger will start at the location of the
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
101 ## call to print_usage.
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
102 debug_on_error (false, "local");
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
103
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
104 if (nargin == 1)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
105 ## Perhaps, say which elements failed?
26214
c0ac6fc191d7 allow inputname to return non-ID arguments (bug #55213)
John W. Eaton <jwe@octave.org>
parents: 26208
diff changeset
106 argin = ["(" inputname(1, false) ")"];
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
107 error ("assert %s failed", argin);
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
108 else
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
109 error (varargin{:});
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
110 endif
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
111 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
112 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
113 expected = varargin{1};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
114 if (nargin < 3)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
115 tol = 0;
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
116 elseif (nargin == 3)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
117 tol = varargin{2};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
118 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
119 print_usage ();
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
120 endif
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
121
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
122 ## Add to list as the errors accumulate. If empty at end then no errors.
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
123 err.index = {};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
124 err.observed = {};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
125 err.expected = {};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
126 err.reason = {};
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
127
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
128 if (ischar (expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
129 if (! ischar (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
130 err.index{end+1} = ".";
31774
c815d3e06c53 assert.m: Wrap expected/observed strings in single quotes when printing errors.
Rik <rik@octave.org>
parents: 31706
diff changeset
131 err.expected{end+1} = ["'" expected "'"];
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
132 if (isnumeric (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
133 err.observed{end+1} = num2str (cond);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
134 err.reason{end+1} = "Expected string, but observed number";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
135 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
136 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
137 err.reason{end+1} = ["Expected string, but observed " class(cond)];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
138 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
139 elseif (! strcmp (cond, expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
140 err.index{end+1} = "[]";
31960
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
141 err.observed{end+1} = ["'" cond(:).' "'"];
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
142 err.expected{end+1} = ["'" expected(:).' "'"];
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
143 err.reason{end+1} = "Strings don't match";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
144 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
145
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
146 elseif (iscell (expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
147 if (! iscell (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
148 err.index{end+1} = ".";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
149 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
150 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
151 err.reason{end+1} = ["Expected cell, but observed " class(cond)];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
152 elseif (ndims (cond) != ndims (expected)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
153 || any (size (cond) != size (expected)))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
154 err.index{end+1} = ".";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
155 err.observed{end+1} = ["O(" sprintf("%dx", size(cond))(1:end-1) ")"];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
156 err.expected{end+1} = ["E(" sprintf("%dx", size(expected))(1:end-1) ")"];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
157 err.reason{end+1} = "Dimensions don't match";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
158 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
159 try
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
160 ## Recursively compare cell arrays
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
161 for i = 1:length (expected(:))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
162 assert (cond{i}, expected{i}, tol);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
163 endfor
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
164 catch
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
165 err.index{end+1} = "{}";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
166 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
167 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
168 err.reason{end+1} = "Cell configuration error";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
169 end_try_catch
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
170 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
171
18548
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
172 elseif (is_function_handle (expected))
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
173 if (! is_function_handle (cond))
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
174 err.index{end+1} = "@";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
175 err.observed{end+1} = "O";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
176 err.expected{end+1} = "E";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
177 err.reason{end+1} = ["Expected function handle, but observed " class(cond)];
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
178 elseif (! isequal (cond, expected))
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
179 err.index{end+1} = "@";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
180 err.observed{end+1} = "O";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
181 err.expected{end+1} = "E";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
182 err.reason{end+1} = "Function handles don't match";
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
183 endif
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
184
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
185 elseif (isstruct (expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
186 if (! isstruct (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
187 err.index{end+1} = ".";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
188 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
189 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
190 err.reason{end+1} = ["Expected struct, but observed " class(cond)];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
191 elseif (ndims (cond) != ndims (expected)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
192 || any (size (cond) != size (expected))
18552
b83fca22bb4c maint: Periodic merge of gui-release to default.
John W. Eaton <jwe@octave.org>
parents: 18538 18548
diff changeset
193 || numfields (cond) != numfields (expected))
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
194
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
195 err.index{end+1} = ".";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
196 err.observed{end+1} = ["O(" sprintf("%dx", size(cond))(1:end-1) ")"];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
197 err.expected{end+1} = ["E(" sprintf("%dx", size(expected))(1:end-1) ")"];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
198 err.reason{end+1} = "Structure sizes don't match";
28525
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
199 elseif (! strcmp (sort (fieldnames (cond)),
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
200 sort (fieldnames (expected))))
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
201 err.index{end+1} = ".";
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
202 err.observed{end+1} = "O";
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
203 err.expected{end+1} = "E";
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
204 err.reason{end+1} = "Structure fieldname mismatch";
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
205 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
206 try
28530
8558c6ad4d71 doc: * scripts/testfun/assert.m: comment changes (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 28525
diff changeset
207 ## Test if both structs are empty, i.e. 0x0, Nx0, or Nx0 structs.
8558c6ad4d71 doc: * scripts/testfun/assert.m: comment changes (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 28525
diff changeset
208 ## In this case the values cannot be extracted for comparison as
8558c6ad4d71 doc: * scripts/testfun/assert.m: comment changes (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 28525
diff changeset
209 ## they are not assignable and not defined.
28525
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
210 assert (isempty (cond), isempty (expected));
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
211
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
212 if (! isempty (cond))
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
213 for [v, k] = cond
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
214 if (numel (cond) == 1)
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
215 v = {v};
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
216 else
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
217 v = v(:)';
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
218 endif
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
219 ## Recursively call assert for struct array values
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
220 assert (v, {expected.(k)}, tol);
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
221 endfor
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
222 endif
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
223 catch
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
224 err.index{end+1} = ".";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
225 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
226 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
227 err.reason{end+1} = "Structure configuration error";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
228 end_try_catch
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
229 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
230
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
231 elseif (ndims (cond) != ndims (expected)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
232 || any (size (cond) != size (expected)))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
233 err.index{end+1} = ".";
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
234 err.observed{end+1} = ["O(" sprintf("%dx", size(cond))(1:end-1) ")"];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
235 err.expected{end+1} = ["E(" sprintf("%dx", size(expected))(1:end-1) ")"];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
236 err.reason{end+1} = "Dimensions don't match";
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
237
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
238 else # Numeric comparison
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
239 if (nargin < 3)
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
240 ## Without explicit tolerance, be more strict.
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
241 if (! strcmp (class (cond), class (expected)))
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
242 err.index{end+1} = "()";
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
243 err.observed{end+1} = "O";
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
244 err.expected{end+1} = "E";
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
245 err.reason{end+1} = ["Class " class(cond) " != " class(expected)];
26593
ec3c4f31823b assert.m: Check sparsity of logical values.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 26376
diff changeset
246 elseif (isnumeric (cond) || islogical (cond))
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
247 if (issparse (cond) != issparse (expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
248 err.index{end+1} = "()";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
249 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
250 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
251 if (issparse (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
252 err.reason{end+1} = "sparse != non-sparse";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
253 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
254 err.reason{end+1} = "non-sparse != sparse";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
255 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
256 elseif (iscomplex (cond) != iscomplex (expected))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
257 err.index{end+1} = "()";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
258 err.observed{end+1} = "O";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
259 err.expected{end+1} = "E";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
260 if (iscomplex (cond))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
261 err.reason{end+1} = "complex != real";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
262 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
263 err.reason{end+1} = "real != complex";
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
264 endif
9447
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
265 endif
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
266 endif
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
267 endif
7770
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
268
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
269 if (isempty (err.index))
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
270
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
271 A = cond;
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
272 B = expected;
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
273
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
274 if (isinteger (A) && isinteger (B))
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
275 ## Non-floating point numbers can't have exceptional or complex
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
276 ## values so skip tests.
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
277 A_null = A;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
278 B_null = B;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
279 else
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
280 ## Check exceptional values.
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
281 is_real = (isreal (A) && isreal (B));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
282 if (is_real)
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
283 errvec = (isna (A) != isna (B));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
284 else
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
285 errvec = ( isna (real (A)) != isna (real (B))
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
286 | isna (imag (A)) != isna (imag (B)));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
287 endif
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
288 erridx = find (errvec);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
289 if (! isempty (erridx))
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
290 err.index(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
291 ind2tuple (size (A), erridx);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
292 err.observed(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
293 strtrim (cellstr (num2str (A(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
294 err.expected(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
295 strtrim (cellstr (num2str (B(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
296 err.reason(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
297 repmat ({"'NA' mismatch"}, length (erridx), 1);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
298 endif
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
299 errseen = errvec;
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
300
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
301 if (is_real)
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
302 errvec = (isnan (A) != isnan (B));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
303 else
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
304 errvec = ( isnan (real (A)) != isnan (real (B))
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
305 | isnan (imag (A)) != isnan (imag (B)));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
306 endif
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
307 erridx = find (errvec & ! errseen);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
308 if (! isempty (erridx))
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
309 err.index(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
310 ind2tuple (size (A), erridx);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
311 err.observed(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
312 strtrim (cellstr (num2str (A(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
313 err.expected(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
314 strtrim (cellstr (num2str (B(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
315 err.reason(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
316 repmat ({"'NaN' mismatch"}, length (erridx), 1);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
317 endif
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
318 errseen |= errvec;
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
319
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
320 if (is_real)
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
321 errvec = ((isinf (A) | isinf (B)) & (real (A) != real (B)));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
322 else
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
323 errvec = ((isinf (real (A)) | isinf (real (B))) ...
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
324 & (real (A) != real (B))) ...
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
325 | ((isinf (imag (A)) | isinf (imag (B))) ...
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
326 & (imag (A) != imag (B)));
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
327 endif
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
328 erridx = find (errvec & ! errseen);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
329 if (! isempty (erridx))
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
330 err.index(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
331 ind2tuple (size (A), erridx);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
332 err.observed(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
333 strtrim (cellstr (num2str (A(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
334 err.expected(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
335 strtrim (cellstr (num2str (B(erridx) (:))));
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
336 err.reason(end+1:end+length (erridx)) = ...
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
337 repmat ({"'Inf' mismatch"}, length (erridx), 1);
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
338 endif
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
339 errseen |= errvec;
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
340
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
341 ## Check normal values.
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
342 ## Replace exceptional values already checked above by zero.
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
343 if (is_real)
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
344 A_null_real = A;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
345 B_null_real = B;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
346 else
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
347 A_null_real = real (A);
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
348 B_null_real = real (B);
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
349 endif
31431
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
350 if (issparse (errseen))
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
351 exclude = errseen ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
352 | isnan (A_null_real) | isinf (A_null_real) ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
353 | isnan (B_null_real) | isinf (B_null_real);
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
354 else
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
355 exclude = errseen ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
356 | ! isfinite (A_null_real) & ! isfinite (B_null_real);
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
357 endif
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
358 A_null_real(exclude) = 0;
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
359 B_null_real(exclude) = 0;
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
360
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
361 if (is_real)
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
362 A_null = A_null_real;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
363 B_null = B_null_real;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
364 else
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
365 A_null_imag = imag (A);
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
366 B_null_imag = imag (B);
31431
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
367 if (issparse (errseen))
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
368 exclude = errseen ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
369 | isnan (A_null_imag) | isinf (A_null_imag) ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
370 | isnan (B_null_imag) | isinf (B_null_imag);
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
371 else
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
372 exclude = errseen ...
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
373 | ! isfinite (A_null_imag) & ! isfinite (B_null_imag);
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
374 endif
84e8f0bf83f7 assert.m: Avoid out-of-memory errors for sparse matrices (bug #63277)
Rik <rik@octave.org>
parents: 30564
diff changeset
375
30011
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
376 A_null_imag(exclude) = 0;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
377 B_null_imag(exclude) = 0;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
378 A_null = complex (A_null_real, A_null_imag);
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
379 B_null = complex (B_null_real, B_null_imag);
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
380 endif
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
381
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
382 clear A_null_real B_null_real;
824e3eeb8aaf assert.m: Improve performance by 2X for real matrices.
Rik <rik@octave.org>
parents: 29877
diff changeset
383 clear A_null_imag B_null_imag;
29877
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
384 endif
86393208b363 assert.m: Don't convert integer input to complex double (bug #57591).
Markus Mützel <markus.muetzel@gmx.de>
parents: 29359
diff changeset
385
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
386 if (isscalar (tol))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
387 mtol = tol * ones (size (A));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
388 else
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
389 mtol = tol;
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
390 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
391
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
392 k = (mtol == 0);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
393 erridx = find ((A_null != B_null) & k);
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
394 if (! isempty (erridx))
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
395 err.index(end+1:end+length (erridx)) = ...
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
396 ind2tuple (size (A), erridx);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
397 err.observed(end+1:end+length (erridx)) = ...
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
398 strtrim (cellstr (num2str (A(erridx) (:))));
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
399 err.expected(end+1:end+length (erridx)) = ...
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
400 strtrim (cellstr (num2str (B(erridx) (:))));
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
401 err.reason(end+1:end+length (erridx)) = ...
24081
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
402 ostrsplit (deblank (
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
403 sprintf ("Abs err %.5g exceeds tol %.5g by %.1g\n",
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
404 [abs(A_null(erridx) - B_null(erridx))(:), mtol(erridx)(:), ...
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
405 abs(A_null(erridx) - B_null(erridx))(:)-mtol(erridx)(:)].')),
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
406 "\n");
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
407 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
408
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
409 k = (mtol > 0);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
410 erridx = find ((abs (A_null - B_null) > mtol) & k);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
411 if (! isempty (erridx))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
412 err.index(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
413 ind2tuple (size (A), erridx);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
414 err.observed(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
415 strtrim (cellstr (num2str (A(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
416 err.expected(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
417 strtrim (cellstr (num2str (B(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
418 err.reason(end+1:end+length (erridx)) = ...
24081
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
419 ostrsplit (deblank (
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
420 sprintf ("Abs err %.5g exceeds tol %.5g by %.1g\n",
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
421 [abs(A_null(erridx) - B_null(erridx))(:), mtol(erridx)(:), ...
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
422 abs(A_null(erridx) - B_null(erridx))(:)-mtol(erridx)(:)].')),
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
423 "\n");
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
424 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
425
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
426 k = (mtol < 0);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
427 if (any (k(:)))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
428 ## Test for absolute error where relative error can't be calculated.
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
429 erridx = find ((B_null == 0) & abs (A_null) > abs (mtol) & k);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
430 if (! isempty (erridx))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
431 err.index(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
432 ind2tuple (size (A), erridx);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
433 err.observed(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
434 strtrim (cellstr (num2str (A(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
435 err.expected(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
436 strtrim (cellstr (num2str (B(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
437 err.reason(end+1:end+length (erridx)) = ...
24081
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
438 ostrsplit (deblank (
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
439 sprintf ("Abs err %.5g exceeds tol %.5g by %.1g\n",
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
440 [abs(A_null(erridx) - B_null(erridx)), -mtol(erridx), ...
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
441 abs(A_null(erridx) - B_null(erridx))+mtol(erridx)].')),
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
442 "\n");
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
443 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
444 ## Test for relative error
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
445 Bdiv = Inf (size (B_null));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
446 Bdiv(k & (B_null != 0)) = B_null(k & (B_null != 0));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
447 relerr = abs ((A_null - B_null) ./ abs (Bdiv));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
448 erridx = find ((relerr > abs (mtol)) & k);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
449 if (! isempty (erridx))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
450 err.index(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
451 ind2tuple (size (A), erridx);
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
452 err.observed(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
453 strtrim (cellstr (num2str (A(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
454 err.expected(end+1:end+length (erridx)) = ...
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
455 strtrim (cellstr (num2str (B(erridx) (:))));
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
456 err.reason(end+1:end+length (erridx)) = ...
24081
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
457 ostrsplit (deblank (
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
458 sprintf ("Rel err %.5g exceeds tol %.5g by %.1g\n",
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
459 [relerr(erridx)(:), -mtol(erridx)(:), ...
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
460 relerr(erridx)(:)+mtol(erridx)(:)].')),
ae8e3e81f372 Clarify assert() test with the amount by which the test fails (bug #52004).
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 23951
diff changeset
461 "\n");
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
462 endif
9447
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
463 endif
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
464 endif
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
465
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
466 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
467
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
468 ## Print any errors
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
469 if (! isempty (err.index))
26208
fc7b842daca1 use inputname function instead of argn automatic variable
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
470 arg_names = cell (nargin, 1);
fc7b842daca1 use inputname function instead of argn automatic variable
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
471 for i = 1:nargin
26214
c0ac6fc191d7 allow inputname to return non-ID arguments (bug #55213)
John W. Eaton <jwe@octave.org>
parents: 26208
diff changeset
472 arg_names{i} = inputname (i, false);
26208
fc7b842daca1 use inputname function instead of argn automatic variable
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
473 endfor
fc7b842daca1 use inputname function instead of argn automatic variable
John W. Eaton <jwe@octave.org>
parents: 25054
diff changeset
474 argin = ["(" strjoin(arg_names, ",") ")"];
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
475 if (! isempty (errmsg))
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
476 errmsg = [errmsg "\n"];
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
477 endif
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
478 errmsg = [errmsg, pprint(argin, err)];
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
479 endif
9447
bb2ae2210e37 relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents: 9313
diff changeset
480
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
481 endif
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
482
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
483 unwind_protect_cleanup
20735
418ae0cb752f Replace ++,-- with in-place operators for performance.
Rik <rik@octave.org>
parents: 20181
diff changeset
484 call_depth -= 1;
18547
9472e3c8f43e prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents: 18370
diff changeset
485 end_unwind_protect
17253
e3870f594d8b assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17252
diff changeset
486
e3870f594d8b assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17252
diff changeset
487 if (call_depth == -1)
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
488 ## Last time through. If there were any errors on any pass, raise a flag.
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
489 if (! isempty (errmsg))
30282
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
490
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
491 ## We don't want to start the debugger here if debug_on_error is
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
492 ## true so we set it to false and make the change local. Then
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
493 ## debug_on_error will be reset to true after this function
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
494 ## returns and the debugger will start at the location of the call
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
495 ## to print_usage.
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
496 debug_on_error (false, "local");
d55be375982e improve debug_on_error behavior with assert (bug #55178)
John W. Eaton <jwe@octave.org>
parents: 30011
diff changeset
497
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
498 error (errmsg);
7770
c6a1a217ac3c Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents: 7703
diff changeset
499 endif
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
500 endif
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
501
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
502 endfunction
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
503
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
504
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
505 ## empty input
20054
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
506 %!error assert ([])
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
507 %!error assert ("")
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
508 %!error assert ({})
cbba639b956b fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents: 19833
diff changeset
509 %!error assert (struct ([]))
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
510 %!assert (zeros (3,0), zeros (3,0))
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
511 %!error <O\(3x0\)\s+E\(0x2\)> assert (zeros (3,0), zeros (0,2))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
512 %!error <Dimensions don't match> assert (zeros (3,0), [])
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
513 %!error <Dimensions don't match> assert (zeros (2,0,2), zeros (2,0))
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
514
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
515 ## conditions
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
516 %!assert (isempty ([]))
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
517 %!assert (1)
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
518 %!error assert (0)
14868
5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
519 %!assert (ones (3,1))
5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
520 %!assert (ones (1,3))
5d3a684236b0 maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents: 14138
diff changeset
521 %!assert (ones (3,4))
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
522 %!error assert ([1,0,1])
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
523 %!error assert ([1;1;0])
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
524 %!error assert ([1,0;1,1])
18370
7994d3ce6e8e assert.m: Fix regression and accept more than 3 arguments for certain cases (bug #41332).
Rik <rik@octave.org>
parents: 17907
diff changeset
525 %!error <2-part error> assert (false, "%s %s", "2-part", "error")
7994d3ce6e8e assert.m: Fix regression and accept more than 3 arguments for certain cases (bug #41332).
Rik <rik@octave.org>
parents: 17907
diff changeset
526 %!error <2-part error> assert (false, "TST:msg_id", "%s %s", "2-part", "error")
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
527
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
528 ## scalars
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
529 %!error <Dimensions don't match> assert (3, [3,3])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
530 %!error <Dimensions don't match> assert (3, [3,3; 3,3])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
531 %!error <Dimensions don't match> assert ([3,3; 3,3], 3)
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
532 %!assert (3, 3)
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
533 %!error <Abs err 1 exceeds tol> assert (3, 4)
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
534 %!assert (3+eps, 3, eps)
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
535 %!assert (3, 3+eps, eps)
17907
6a381b9ae055 assert.m: Modify 4 failing %!error tests to accept 3 digit exponents for MinGW.
Rik <rik@octave.org>
parents: 17744
diff changeset
536 %!error <Abs err 4.4409e-0?16 exceeds tol> assert (3+2*eps, 3, eps)
6a381b9ae055 assert.m: Modify 4 failing %!error tests to accept 3 digit exponents for MinGW.
Rik <rik@octave.org>
parents: 17744
diff changeset
537 %!error <Abs err 4.4409e-0?16 exceeds tol> assert (3, 3+2*eps, eps)
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
538
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
539 ## vectors
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 20955
diff changeset
540 %!assert ([1,2,3],[1,2,3])
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 20955
diff changeset
541 %!assert ([1;2;3],[1;2;3])
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
542 %!error <Abs err 1 exceeds tol 0> assert ([2,2,3,3],[1,2,3,4])
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
543 %!error <Abs err 1 exceeds tol 0.5> assert ([2,2,3,3],[1,2,3,4],0.5)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
544 %!error <Rel err 1 exceeds tol 0.1> assert ([2,2,3,5],[1,2,3,4],-0.1)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
545 %!error <Abs err 1 exceeds tol 0> assert ([6;6;7;7],[5;6;7;8])
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
546 %!error <Abs err 1 exceeds tol 0.5> assert ([6;6;7;7],[5;6;7;8],0.5)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
547 %!error <Rel err .* exceeds tol 0.1> assert ([6;6;7;7],[5;6;7;8],-0.1)
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
548 %!error <Dimensions don't match> assert ([1,2,3],[1;2;3])
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
549 %!error <Dimensions don't match> assert ([1,2],[1,2,3])
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
550 %!error <Dimensions don't match> assert ([1;2;3],[1;2])
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
551
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
552 ## matrices
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 20955
diff changeset
553 %!assert ([1,2;3,4],[1,2;3,4])
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
554 %!error <\(1,2\)\s+4\s+2> assert ([1,4;3,4],[1,2;3,4])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
555 %!error <Dimensions don't match> assert ([1,3;2,4;3,5],[1,2;3,4])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
556 %!test # 2-D matrix
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
557 %! A = [1 2 3]'*[1,2];
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
558 %! assert (A, A);
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
559 %! fail ("assert (A.*(A!=2),A)");
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
560 %!test # N-D matrix
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
561 %! X = zeros (2,2,3);
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
562 %! Y = X;
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
563 %! Y(1,2,3) = 1.5;
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
564 %! fail ("assert (X,Y)", "\(1,2,3\).*Abs err 1.5 exceeds tol 0");
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
565
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
566 ## must give a small tolerance for floating point errors on relative
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
567 %!assert (100+100*eps, 100, -2*eps)
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
568 %!assert (100, 100+100*eps, -2*eps)
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
569 %!error <Rel err .* exceeds tol> assert (100+300*eps, 100, -2*eps)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
570 %!error <Rel err .* exceeds tol> assert (100, 100+300*eps, -2*eps)
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
571
7027
3e2a59c78b9d [project @ 2007-10-15 08:22:54 by dbateman]
dbateman
parents: 7017
diff changeset
572 ## test relative vs. absolute tolerances
21562
6c2fd62db1f7 maint: Eliminate accidental double spaces in code.
Rik <rik@octave.org>
parents: 21317
diff changeset
573 %!test assert (0.1+eps, 0.1, 2*eps);
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
574 %!error <Rel err 2.2204e-0?15 exceeds tol> assert (0.1+eps, 0.1, -2*eps)
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
575 %!test assert (100+100*eps, 100, -2*eps);
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21562
diff changeset
576 %!error <Abs err 2.8422e-0?14 exceeds tol> assert (100+100*eps, 100, 2*eps)
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
577
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
578 ## Corner case of relative tolerance with 0 divider
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
579 %!error <Abs err 2 exceeds tol 0.1> assert (2, 0, -0.1)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
580
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
581 ## Extra checking of inputs when tolerance unspecified.
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
582 %!error <Class single != double> assert (single (1), 1)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
583 %!error <Class uint8 != uint16> assert (uint8 (1), uint16 (1))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
584 %!error <sparse != non-sparse> assert (sparse([1]), [1])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
585 %!error <non-sparse != sparse> assert ([1], sparse([1]))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
586 %!error <complex != real> assert (1+i, 1)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
587 %!error <real != complex> assert (1, 1+i)
7027
3e2a59c78b9d [project @ 2007-10-15 08:22:54 by dbateman]
dbateman
parents: 7017
diff changeset
588
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
589 ## exceptional values
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
590 %!assert ([NaN, NA, Inf, -Inf, 1+eps, eps], [NaN, NA, Inf, -Inf, 1, 0], eps)
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
591
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
592 %!error <'NaN' mismatch> assert (NaN, 1)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
593 %!error <'NaN' mismatch> assert ([NaN 1], [1 NaN])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
594 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
595 %! try
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
596 %! assert ([NaN 1], [1 NaN]);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
597 %! catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
598 %! errmsg = lasterr ();
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
599 %! if (sum (errmsg () == "\n") != 4)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
600 %! error ("Too many errors reported for NaN assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
601 %! elseif (strfind (errmsg, "NA"))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
602 %! error ("NA reported for NaN assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
603 %! elseif (strfind (errmsg, "Abs err NaN exceeds tol 0"))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
604 %! error ("Abs err reported for NaN assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
605 %! endif
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
606 %! end_try_catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
607
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
608 %!error <'NA' mismatch> assert (NA, 1)
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
609 %!error assert ([NA 1]', [1 NA]')
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
610 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
611 %! try
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
612 %! assert ([NA 1]', [1 NA]');
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
613 %! catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
614 %! errmsg = lasterr ();
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
615 %! if (sum (errmsg () == "\n") != 4)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
616 %! error ("Too many errors reported for NA assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
617 %! elseif (strfind (errmsg, "NaN"))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
618 %! error ("NaN reported for NA assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
619 %! elseif (strfind (errmsg, "Abs err NA exceeds tol 0"))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
620 %! error ("Abs err reported for NA assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
621 %! endif
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
622 %! end_try_catch
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
623 %!error assert ([(complex (NA, 1)) (complex (2, NA))], [(complex (NA, 2)) 2])
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
624
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
625 %!error <'Inf' mismatch> assert (-Inf, Inf)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
626 %!error <'Inf' mismatch> assert ([-Inf Inf], [Inf -Inf])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
627 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
628 %! try
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
629 %! assert (complex (Inf, 0.2), complex (-Inf, 0.2 + 2*eps), eps);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
630 %! catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
631 %! errmsg = lasterr ();
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
632 %! if (sum (errmsg () == "\n") != 3)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
633 %! error ("Too many errors reported for Inf assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
634 %! elseif (strfind (errmsg, "Abs err"))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
635 %! error ("Abs err reported for Inf assert");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
636 %! endif
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
637 %! end_try_catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
638 %!error <Abs err> assert (complex (Inf, 0.2), complex (Inf, 0.2 + 2*eps), eps)
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
639
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
640 ## strings
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
641 %!assert ("dog", "dog")
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
642 %!error <Strings don't match> assert ("dog", "cat")
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
643 %!error <Expected string, but observed number> assert (3, "dog")
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
644 %!error <Class char != double> assert ("dog", [3 3 3])
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
645 %!error <Expected string, but observed cell> assert ({"dog"}, "dog")
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
646 %!error <Expected string, but observed struct> assert (struct ("dog", 3), "dog")
5589
f812a0680d05 [project @ 2006-01-06 00:14:42 by jwe]
jwe
parents:
diff changeset
647
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
648 ## cell arrays
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
649 %!error <Expected cell, but observed double> assert (1, {1})
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
650 %!error <Dimensions don't match> assert (cell (1,2,3), cell (3,2,1))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
651 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
652 %! x = {{{1}}, 2}; # cell with multiple levels
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
653 %! y = x;
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
654 %! assert (x,y);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
655 %! y{1}{1}{1} = 3;
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
656 %! fail ("assert (x,y)", "Abs err 2 exceeds tol 0");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
657
18548
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
658 ## function handles
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
659 %!assert (@sin, @sin)
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
660 %!error <Function handles don't match> assert (@sin, @cos)
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
661 %!error <Expected function handle, but observed double> assert (pi, @cos)
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
662 %!error <Class function_handle != double> assert (@sin, pi)
06970f4625b8 assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents: 18547
diff changeset
663
14070
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
664 %!test
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
665 %! x = {[3], [1,2,3]; 100+100*eps, "dog"};
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
666 %! y = x;
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
667 %! assert (x, y);
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
668 %! y = x; y(1,1) = [2];
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
669 %! fail ("assert (x, y)");
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
670 %! y = x; y(1,2) = [0, 2, 3];
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
671 %! fail ("assert (x, y)");
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
672 %! y = x; y(2,1) = 101;
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
673 %! fail ("assert (x, y)");
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
674 %! y = x; y(2,2) = "cat";
c2c18e2e7c9c assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents: 14038
diff changeset
675 %! fail ("assert (x, y)");
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
676 %! y = x; y(1,1) = [2]; y(1,2) = [0, 2, 3]; y(2,1) = 101; y(2,2) = "cat";
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
677 %! fail ("assert (x, y)");
12882
724bb6b7e3d5 assert.m: Correctly compare empty structures.
Rik <octave@nomad.inbox5.com>
parents: 12632
diff changeset
678
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
679 ## structures
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
680 %!error <Expected struct, but observed double> assert (1, struct ("a", 1))
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
681 %!error <Structure sizes don't match>
17314
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
682 %! x(1,2,3).a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
683 %! y(1,2).a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
684 %! assert (x,y);
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
685 %!error <Structure sizes don't match>
17314
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
686 %! x(1,2,3).a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
687 %! y(3,2,2).a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
688 %! assert (x,y);
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
689 %!error <Structure sizes don't match>
17314
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
690 %! x.a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
691 %! x.b = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
692 %! y.a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
693 %! assert (x,y);
28525
286fe9352cd6 Interpreter errors on unassigned inputs (bug #58686)
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents: 27947
diff changeset
694 %!error <Structure fieldname mismatch>
17314
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
695 %! x.b = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
696 %! y.a = 1;
7f27a3cbdb41 Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents: 17306
diff changeset
697 %! assert (x,y);
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
698
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
699 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
700 %! x.a = 1; x.b=[2, 2];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
701 %! y.a = 1; y.b=[2, 2];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
702 %! assert (x, y);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
703 %! y.b=3;
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
704 %! fail ("assert (x, y)");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
705 %! fail ("assert (3, x)");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
706 %! fail ("assert (x, 3)");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
707 %! ## Empty structures
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
708 %! x = resize (x, 0, 1);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
709 %! y = resize (y, 0, 1);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
710 %! assert (x, y);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
711
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
712 ## vector of tolerances
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
713 %!test
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
714 %! x = [-40:0];
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
715 %! y1 = (10.^x).*(10.^x);
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
716 %! y2 = 10.^(2*x);
23951
2c3a69791ca2 assert.m: Increase tolerance in BIST because of bug in mingw-w64 (bug #48365).
Markus Mützel <markus.muetzel@gmx.de>
parents: 23220
diff changeset
717 %! ## Increase tolerance from eps (y1) to 4*eps (y1) because of an upstream bug
2c3a69791ca2 assert.m: Increase tolerance in BIST because of bug in mingw-w64 (bug #48365).
Markus Mützel <markus.muetzel@gmx.de>
parents: 23220
diff changeset
718 %! ## in mingw-w64: https://sourceforge.net/p/mingw-w64/bugs/466/
2c3a69791ca2 assert.m: Increase tolerance in BIST because of bug in mingw-w64 (bug #48365).
Markus Mützel <markus.muetzel@gmx.de>
parents: 23220
diff changeset
719 %! assert (y1, y2, 4*eps (y1));
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
720 %! fail ("assert (y1, y2 + eps*1e-70, eps (y1))");
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
721
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
722 ## Multiple tolerances
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
723 %!test
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
724 %! x = [1 2; 3 4];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
725 %! y = [0 -1; 1 2];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
726 %! tol = [-0.1 0; -0.2 0.3];
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
727 %! try
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
728 %! assert (x, y, tol);
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
729 %! catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
730 %! errmsg = lasterr ();
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
731 %! if (sum (errmsg () == "\n") != 6)
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
732 %! error ("Incorrect number of errors reported");
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
733 %! endif
19833
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 19725
diff changeset
734 %! assert (! isempty (regexp (errmsg, '\(1,2\).*Abs err 3 exceeds tol 0\>')));
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 19725
diff changeset
735 %! assert (! isempty (regexp (errmsg, '\(2,2\).*Abs err 2 exceeds tol 0.3')));
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 19725
diff changeset
736 %! assert (! isempty (regexp (errmsg, '\(1,1\).*Abs err 1 exceeds tol 0.1')));
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents: 19725
diff changeset
737 %! assert (! isempty (regexp (errmsg, '\(2,1\).*Rel err 2 exceeds tol 0.2')));
17255
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
738 %! end_try_catch
a28c0d73e253 assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents: 17253
diff changeset
739
27947
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
740 %!test <*57615>
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
741 %! try
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
742 %! assert (complex (pi*1e-17,2*pi), 0, 1e-1);
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
743 %! catch
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
744 %! errmsg = lasterr ();
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
745 %! assert (isempty (strfind (errmsg, "sprintf: invalid field width")));
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
746 %! end_try_catch
70576ed5cc42 assert.m: Fix regression when observed output is large (bug #57615).
Rik <rik@octave.org>
parents: 27923
diff changeset
747
31960
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
748 %!test <*63988>
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
749 %! A = ["ab"; "cd"];
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
750 %! B = ["ad"; "cb"];
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
751 %! try
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
752 %! assert (A, B);
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
753 %! catch
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
754 %! errmsg = lasterr ();
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
755 %! if (regexp (errmsg, 'horizontal dimensions mismatch'))
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
756 %! error ("assert failed for char arrays with multiple rows");
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
757 %! endif
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
758 %! end_try_catch
3df2579631b5 assert.m: Fix character matrix equality (bug #63988)
Rik <rik@octave.org>
parents: 31959
diff changeset
759
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
760 ## test input validation
28896
90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin.
Rik <rik@octave.org>
parents: 28530
diff changeset
761 %!error <Invalid call> assert ()
90fea9cc9caa test: Add expected error message <Invalid call> to BIST tests for nargin.
Rik <rik@octave.org>
parents: 28530
diff changeset
762 %!error <Invalid call> assert (1,2,3,4)
12882
724bb6b7e3d5 assert.m: Correctly compare empty structures.
Rik <octave@nomad.inbox5.com>
parents: 12632
diff changeset
763
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
764
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
765 ## Convert all error indices into tuple format
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
766 function cout = ind2tuple (matsize, erridx)
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
767
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
768 tmp = cell (1, numel (matsize));
19725
5f2c0ca0ef51 Ensure that numbers passed to integer *printf format codes are integers (bug #44245).
Rik <rik@octave.org>
parents: 19697
diff changeset
769 [tmp{:}] = ind2sub (matsize, erridx(:));
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
770 subs = [tmp{:}];
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
771 if (numel (matsize) == 2)
33300
38860e27296b assert.m: Recode ind2tuple subfunction for 20% performance boost.
Rik <rik@octave.org>
parents: 33290
diff changeset
772 subs = subs(:, matsize != 1); # For vectors, use 1-D index
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
773 endif
33303
eeb900fb16fc assert.m: Fix BIST failures accidentally introduced in 38860e27296b.
Rik <rik@octave.org>
parents: 33301
diff changeset
774 fmt = repmat ('%d,', 1, max (columns (subs), 1));
33300
38860e27296b assert.m: Recode ind2tuple subfunction for 20% performance boost.
Rik <rik@octave.org>
parents: 33290
diff changeset
775 fmt(end) = []; # delete final extra comma
38860e27296b assert.m: Recode ind2tuple subfunction for 20% performance boost.
Rik <rik@octave.org>
parents: 33290
diff changeset
776 cout = ostrsplit (sprintf (['(' fmt ')', '$'], subs'), '$');
38860e27296b assert.m: Recode ind2tuple subfunction for 20% performance boost.
Rik <rik@octave.org>
parents: 33290
diff changeset
777 cout(end) = []; # delete extra cell from final '$'
38860e27296b assert.m: Recode ind2tuple subfunction for 20% performance boost.
Rik <rik@octave.org>
parents: 33290
diff changeset
778 cout = cout.'; # return column vector
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
779
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
780 endfunction
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
781
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
782
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
783 ## Pretty print the various errors in a condensed tabular format.
17467
b8ecdb6ce2f8 assert.m: Speed up function by ~16% by not pre-calculating warning message.
Rik <rik@octave.org>
parents: 17314
diff changeset
784 function str = pprint (argin, err)
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
785
17467
b8ecdb6ce2f8 assert.m: Speed up function by ~16% by not pre-calculating warning message.
Rik <rik@octave.org>
parents: 17314
diff changeset
786 str = ["ASSERT errors for: assert " argin "\n"];
17251
684ccccbc15d assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents: 17250
diff changeset
787 str = [str, "\n Location | Observed | Expected | Reason\n"];
33290
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
788
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
789 pos = numel (str);
33301
36918f99b189 assert.m: Tweak preallocation size based on profiling
Arun Giridhar <arungiridhar@gmail.com>
parents: 33300
diff changeset
790 str(pos + 100 * numel (err.index)) = ' ';
33290
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
791 for i = 1:numel (err.index)
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
792 leni = numel (err.index{i});
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
793 leno = numel (err.observed{i});
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
794 lene = numel (err.expected{i});
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
795 tmp = sprintf("%*s%*s %*s%*s %*s%*s %s\n",
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
796 6+fix(leni/2), err.index{i} , max (6-fix(leni/2), 0), "",
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
797 6+fix(leno/2), err.observed{i}, max (6-fix(leno/2), 0), "",
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
798 6+fix(lene/2), err.expected{i}, max (6-fix(lene/2), 0), "",
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
799 err.reason{i});
33301
36918f99b189 assert.m: Tweak preallocation size based on profiling
Arun Giridhar <arungiridhar@gmail.com>
parents: 33300
diff changeset
800 if (pos + numel (tmp) > numel (str))
33290
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
801 str(end + 1e6) = ' ';
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
802 endif
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
803 str((pos + 1):(pos + numel (tmp))) = tmp;
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
804 pos += numel (tmp);
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
805 endfor
33290
1077e4739169 assert.m: Preallocate string for pretty printing
Arun Giridhar <arungiridhar@gmail.com>
parents: 32632
diff changeset
806 str = str(1:pos);
17250
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
807
afd235a206a2 Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents: 17170
diff changeset
808 endfunction