Mercurial > octave-antonio
annotate scripts/testfun/assert.m @ 20162:2645f9ef8c88 stable
doc: Update more docstrings to have one sentence summary as first line.
Reviewed specfun, special-matrix, testfun, and time script directories.
* scripts/specfun/expint.m, scripts/specfun/isprime.m,
scripts/specfun/legendre.m, scripts/specfun/primes.m,
scripts/specfun/reallog.m, scripts/specfun/realsqrt.m,
scripts/special-matrix/gallery.m, scripts/special-matrix/hadamard.m,
scripts/special-matrix/hankel.m, scripts/special-matrix/hilb.m,
scripts/special-matrix/invhilb.m, scripts/special-matrix/magic.m,
scripts/special-matrix/pascal.m, scripts/special-matrix/rosser.m,
scripts/special-matrix/toeplitz.m, scripts/special-matrix/vander.m,
scripts/special-matrix/wilkinson.m, scripts/testfun/assert.m,
scripts/testfun/demo.m, scripts/testfun/example.m, scripts/testfun/fail.m,
scripts/testfun/rundemos.m, scripts/testfun/runtests.m,
scripts/testfun/speed.m, scripts/time/asctime.m, scripts/time/calendar.m,
scripts/time/clock.m, scripts/time/ctime.m, scripts/time/datenum.m,
scripts/time/datestr.m, scripts/time/datevec.m, scripts/time/etime.m,
scripts/time/is_leap_year.m, scripts/time/now.m, scripts/time/weekday.m:
Update more docstrings to have one sentence summary as first line.
author | Rik <rik@octave.org> |
---|---|
date | Sun, 03 May 2015 17:00:11 -0700 |
parents | cbba639b956b |
children |
rev | line source |
---|---|
19697
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
19025
diff
changeset
|
1 ## Copyright (C) 2000-2015 Paul Kienzle |
5589 | 2 ## |
7016 | 3 ## This file is part of Octave. |
5589 | 4 ## |
7016 | 5 ## Octave is free software; you can redistribute it and/or modify it |
6 ## under the terms of the GNU General Public License as published by | |
7 ## the Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
5589 | 14 ## |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
5589 | 18 |
19 ## -*- texinfo -*- | |
10793
be55736a0783
Grammarcheck the documentation from m-files.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
20 ## @deftypefn {Function File} {} assert (@var{cond}) |
19025
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
21 ## @deftypefnx {Function File} {} assert (@var{cond}, @var{errmsg}) |
7770
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
22 ## @deftypefnx {Function File} {} assert (@var{cond}, @var{errmsg}, @dots{}) |
9313 | 23 ## @deftypefnx {Function File} {} assert (@var{cond}, @var{msg_id}, @var{errmsg}, @dots{}) |
11563
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
24 ## @deftypefnx {Function File} {} assert (@var{observed}, @var{expected}) |
3c6e8aaa9555
Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
25 ## @deftypefnx {Function File} {} assert (@var{observed}, @var{expected}, @var{tol}) |
5589 | 26 ## |
19025
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
27 ## 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
|
28 ## |
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
29 ## @code{assert} can be called in three different ways. |
5589 | 30 ## |
31 ## @table @code | |
17170
d6499c14021c
doc: Periodic grammarcheck of documentation.
Rik <rik@octave.org>
parents:
16994
diff
changeset
|
32 ## @item assert (@var{cond}) |
19025
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
33 ## @itemx assert (@var{cond}, @var{errmsg}) |
7770
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
34 ## @itemx assert (@var{cond}, @var{errmsg}, @dots{}) |
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
35 ## @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
|
36 ## 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
|
37 ## @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
|
38 ## |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
diff
changeset
|
39 ## 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
|
40 ## processing. |
5589 | 41 ## |
42 ## @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
|
43 ## 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
|
44 ## |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
diff
changeset
|
45 ## 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
|
46 ## matrices, strings, cell arrays, or structures. |
5589 | 47 ## |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
48 ## @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
|
49 ## 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
|
50 ## comparison for numeric data uses a tolerance @var{tol}. |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
diff
changeset
|
51 ## |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
52 ## 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
|
53 ## an error if @code{abs (@var{observed} - @var{expected}) > abs (@var{tol})}. |
20162
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
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 ## 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
|
56 ## 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
|
57 ## 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
|
58 ## |
19025
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
59 ## 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
|
60 ## absolute tolerance. |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
diff
changeset
|
61 ## |
2645f9ef8c88
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
20054
diff
changeset
|
62 ## 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
|
63 ## @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
|
64 ## element-by-element basis. |
5589 | 65 ## @end table |
19025
f27140dd13a6
doc: Update documentation for assert, rundemos, runtests.
Rik <rik@octave.org>
parents:
18552
diff
changeset
|
66 ## @seealso{fail, test, error, isequal} |
5589 | 67 ## @end deftypefn |
68 | |
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
|
69 function assert (cond, varargin) |
6494 | 70 |
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
|
71 if (nargin == 0) |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
72 print_usage (); |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
73 endif |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
74 |
17253
e3870f594d8b
assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17252
diff
changeset
|
75 persistent call_depth = -1; |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
76 persistent errmsg; |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
77 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
78 unwind_protect |
6494 | 79 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
80 call_depth++; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
81 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
82 if (call_depth == 0) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
83 errmsg = ""; |
7770
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
84 endif |
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
85 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
86 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
|
87 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
|
88 || isempty (cond) || ! all (cond(:))) |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
89 if (nargin == 1) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
90 ## Perhaps, say which elements failed? |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
91 argin = ["(" strjoin(cellstr (argn), ",") ")"]; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
92 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
|
93 else |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
94 error (varargin{:}); |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
95 endif |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
96 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
97 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
98 expected = varargin{1}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
99 if (nargin < 3) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
100 tol = 0; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
101 elseif (nargin == 3) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
102 tol = varargin{2}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
103 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
104 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
|
105 endif |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
106 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
107 ## 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
|
108 err.index = {}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
109 err.observed = {}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
110 err.expected = {}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
111 err.reason = {}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
112 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
113 if (ischar (expected)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
114 if (! ischar (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
115 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
116 err.expected{end+1} = expected; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
117 if (isnumeric (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
118 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
|
119 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
|
120 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
121 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
|
122 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
|
123 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
124 elseif (! strcmp (cond, expected)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
125 err.index{end+1} = "[]"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
126 err.observed{end+1} = cond; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
127 err.expected{end+1} = expected; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
128 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
|
129 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
130 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
131 elseif (iscell (expected)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
132 if (! iscell (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
133 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
134 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
|
135 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
|
136 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
|
137 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
|
138 || 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
|
139 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
140 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
|
141 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
|
142 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
|
143 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
144 try |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
145 ## Recursively compare cell arrays |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
146 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
|
147 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
|
148 endfor |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
149 catch |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
150 err.index{end+1} = "{}"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
151 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
|
152 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
|
153 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
|
154 end_try_catch |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
155 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
156 |
18548
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
157 elseif (is_function_handle (expected)) |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
158 if (! is_function_handle (cond)) |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
159 err.index{end+1} = "@"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
160 err.observed{end+1} = "O"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
161 err.expected{end+1} = "E"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
162 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
|
163 elseif (! isequal (cond, expected)) |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
164 err.index{end+1} = "@"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
165 err.observed{end+1} = "O"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
166 err.expected{end+1} = "E"; |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
167 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
|
168 endif |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
169 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
170 elseif (isstruct (expected)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
171 if (! isstruct (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
172 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
173 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
|
174 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
|
175 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
|
176 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
|
177 || any (size (cond) != size (expected)) |
18552
b83fca22bb4c
maint: Periodic merge of gui-release to default.
John W. Eaton <jwe@octave.org>
diff
changeset
|
178 || 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
|
179 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
180 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
181 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
|
182 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
|
183 err.reason{end+1} = "Structure sizes don't match"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
184 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
185 try |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
186 empty = isempty (cond); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
187 normal = (numel (cond) == 1); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
188 for [v, k] = cond |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
189 if (! isfield (expected, k)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
190 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
191 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
|
192 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
|
193 err.reason{end+1} = ["'" k "'" " is not an expected field"]; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
194 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
195 if (empty) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
196 v = {}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
197 elseif (normal) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
198 v = {v}; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
199 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
200 v = v(:)'; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
201 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
202 ## Recursively call assert for struct array values |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
203 assert (v, {expected.(k)}, tol); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
204 endfor |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
205 catch |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
206 err.index{end+1} = "."; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
207 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
|
208 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
|
209 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
|
210 end_try_catch |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
211 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
212 |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
213 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
|
214 || 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
|
215 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
|
216 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
|
217 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
|
218 err.reason{end+1} = "Dimensions don't match"; |
5589 | 219 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
220 else # Numeric comparison |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
221 if (nargin < 3) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
222 ## 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
|
223 if (! strcmp (class (cond), class (expected))) |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
224 err.index{end+1} = "()"; |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
225 err.observed{end+1} = "O"; |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
226 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
|
227 err.reason{end+1} = ["Class " class(cond) " != " class(expected)]; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
228 elseif (isnumeric (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
229 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
|
230 err.index{end+1} = "()"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
231 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
|
232 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
|
233 if (issparse (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
234 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
|
235 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
236 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
|
237 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
238 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
|
239 err.index{end+1} = "()"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
240 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
|
241 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
|
242 if (iscomplex (cond)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
243 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
|
244 else |
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} = "real != complex"; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
246 endif |
9447
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
247 endif |
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
248 endif |
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
249 endif |
7770
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
250 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
251 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
|
252 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
253 A = cond; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
254 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
|
255 |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
256 ## Check exceptional values. |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
257 errvec = ( isna (real (A)) != isna (real (B)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
258 | isna (imag (A)) != isna (imag (B))); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
259 erridx = find (errvec); |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
260 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
|
261 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
|
262 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
|
263 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
|
264 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
|
265 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
|
266 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
|
267 err.reason(end+1:end+length (erridx)) = ... |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
268 repmat ({"'NA' mismatch"}, length (erridx), 1); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
269 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
270 errseen = errvec; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
271 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
272 errvec = ( isnan (real (A)) != isnan (real (B)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
273 | isnan (imag (A)) != isnan (imag (B))); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
274 erridx = find (errvec & !errseen); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
275 if (! isempty (erridx)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
276 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
|
277 ind2tuple (size (A), erridx); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
278 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
|
279 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
|
280 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
|
281 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
|
282 err.reason(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
|
283 repmat ({"'NaN' mismatch"}, length (erridx), 1); |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
284 endif |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
285 errseen |= errvec; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
286 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
287 errvec = ((isinf (real (A)) | isinf (real (B))) ... |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
288 & (real (A) != real (B))) ... |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
289 | ((isinf (imag (A)) | isinf (imag (B))) ... |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
290 & (imag (A) != imag (B))); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
291 erridx = find (errvec & !errseen); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
292 if (! isempty (erridx)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
293 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
|
294 ind2tuple (size (A), erridx); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
295 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
|
296 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
|
297 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
|
298 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
|
299 err.reason(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
|
300 repmat ({"'Inf' mismatch"}, length (erridx), 1); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
301 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
302 errseen |= errvec; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
303 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
304 ## Check normal values. |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
305 ## Replace exceptional values already checked above by zero. |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
306 A_null_real = real (A); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
307 B_null_real = real (B); |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
308 exclude = errseen ... |
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
309 | ! isfinite (A_null_real) & ! isfinite (B_null_real); |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
310 A_null_real(exclude) = 0; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
311 B_null_real(exclude) = 0; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
312 A_null_imag = imag (A); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
313 B_null_imag = imag (B); |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
314 exclude = errseen ... |
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
315 | ! isfinite (A_null_imag) & ! isfinite (B_null_imag); |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
316 A_null_imag(exclude) = 0; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
317 B_null_imag(exclude) = 0; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
318 A_null = complex (A_null_real, A_null_imag); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
319 B_null = complex (B_null_real, B_null_imag); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
320 if (isscalar (tol)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
321 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
|
322 else |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
323 mtol = tol; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
324 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
325 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
326 k = (mtol == 0); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
327 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
|
328 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
|
329 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
|
330 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
|
331 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
|
332 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
|
333 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
|
334 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
|
335 err.reason(end+1:end+length (erridx)) = ... |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
336 ostrsplit (deblank (sprintf ("Abs err %.5g exceeds tol %.5g\n",... |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
337 [abs(A_null(erridx) - B_null(erridx))(:) mtol(erridx)(:)]')), "\n"); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
338 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
339 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
340 k = (mtol > 0); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
341 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
|
342 if (! isempty (erridx)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
343 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
|
344 ind2tuple (size (A), erridx); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
345 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
|
346 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
|
347 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
|
348 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
|
349 err.reason(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
|
350 ostrsplit (deblank (sprintf ("Abs err %.5g exceeds tol %.5g\n",... |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
351 [abs(A_null(erridx) - B_null(erridx))(:) mtol(erridx)(:)]')), "\n"); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
352 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
353 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
354 k = (mtol < 0); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
355 if (any (k(:))) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
356 ## 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
|
357 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
|
358 if (! isempty (erridx)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
359 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
|
360 ind2tuple (size (A), erridx); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
361 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
|
362 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
|
363 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
|
364 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
|
365 err.reason(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
|
366 ostrsplit (deblank (sprintf ("Abs err %.5g exceeds tol %.5g\n", |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
367 [abs(A_null(erridx) - B_null(erridx)) -mtol(erridx)]')), "\n"); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
368 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
369 ## Test for relative error |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
370 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
|
371 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
|
372 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
|
373 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
|
374 if (! isempty (erridx)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
375 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
|
376 ind2tuple (size (A), erridx); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
377 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
|
378 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
|
379 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
|
380 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
|
381 err.reason(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
|
382 ostrsplit (deblank (sprintf ("Rel err %.5g exceeds tol %.5g\n", |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
383 [relerr(erridx)(:) -mtol(erridx)(:)]')), "\n"); |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
384 endif |
9447
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
385 endif |
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
386 endif |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
387 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
388 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
389 |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
390 ## Print any errors |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
391 if (! isempty (err.index)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
392 argin = ["(" strjoin(cellstr (argn), ",") ")"]; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
393 if (! isempty (errmsg)) |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
394 errmsg = [errmsg "\n"]; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
395 endif |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
396 errmsg = [errmsg, pprint(argin, err)]; |
5589 | 397 endif |
9447
bb2ae2210e37
relax assert for exact matches
Jaroslav Hajek <highegg@gmail.com>
parents:
9313
diff
changeset
|
398 |
5589 | 399 endif |
400 | |
18547
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
401 unwind_protect_cleanup |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
402 call_depth--; |
9472e3c8f43e
prevent interrupt from causing assert to fail (bug #41756)
John W. Eaton <jwe@octave.org>
parents:
18370
diff
changeset
|
403 end_unwind_protect |
17253
e3870f594d8b
assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17252
diff
changeset
|
404 |
e3870f594d8b
assert.m: Fix recursive calls.
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17252
diff
changeset
|
405 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
|
406 ## 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
|
407 if (! isempty (errmsg)) |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
408 error (errmsg); |
7770
c6a1a217ac3c
Compatibility fix for assert
David Bateman <dbateman@free.fr>
parents:
7703
diff
changeset
|
409 endif |
5589 | 410 endif |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
411 |
5589 | 412 endfunction |
413 | |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
414 |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
415 ## empty input |
20054
cbba639b956b
fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
416 %!error assert ([]) |
cbba639b956b
fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
417 %!error assert ("") |
cbba639b956b
fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
418 %!error assert ({}) |
cbba639b956b
fail if single argument to assert is empty. (bug #44793)
John W. Eaton <jwe@octave.org>
parents:
19833
diff
changeset
|
419 %!error assert (struct ([])) |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
420 %!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
|
421 %!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
|
422 %!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
|
423 %!error <Dimensions don't match> assert (zeros (2,0,2), zeros (2,0)) |
5589 | 424 |
425 ## conditions | |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
426 %!assert (isempty ([])) |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
427 %!assert (1) |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
428 %!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
|
429 %!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
|
430 %!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
|
431 %!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
|
432 %!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
|
433 %!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
|
434 %!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
|
435 %!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
|
436 %!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
|
437 |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
438 ## scalars |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
439 %!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
|
440 %!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
|
441 %!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
|
442 %!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
|
443 %!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
|
444 %!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
|
445 %!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
|
446 %!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
|
447 %!error <Abs err 4.4409e-0?16 exceeds tol> assert (3, 3+2*eps, eps) |
5589 | 448 |
449 ## vectors | |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
450 %!assert ([1,2,3],[1,2,3]); |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
451 %!assert ([1;2;3],[1;2;3]); |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
452 %!error <Abs err 1 exceeds tol 0> assert ([2,2,3,3],[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
|
453 %!error <Abs err 1 exceeds tol 0.5> assert ([2,2,3,3],[1,2,3,4],0.5); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
454 %!error <Rel err 1 exceeds tol 0.1> assert ([2,2,3,5],[1,2,3,4],-0.1); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
455 %!error <Abs err 1 exceeds tol 0> assert ([6;6;7;7],[5;6;7;8]); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
456 %!error <Abs err 1 exceeds tol 0.5> assert ([6;6;7;7],[5;6;7;8],0.5); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
457 %!error <Rel err .* exceeds tol 0.1> assert ([6;6;7;7],[5;6;7;8],-0.1); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
458 %!error <Dimensions don't match> assert ([1,2,3],[1;2;3]); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
459 %!error <Dimensions don't match> assert ([1,2],[1,2,3]); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
460 %!error <Dimensions don't match> assert ([1;2;3],[1;2]); |
5589 | 461 |
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
|
462 ## matrices |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
463 %!assert ([1,2;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
|
464 %!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
|
465 %!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
|
466 %!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
|
467 %! 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
|
468 %! 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
|
469 %! 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
|
470 %!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
|
471 %! 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
|
472 %! Y = X; |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
473 %! 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
|
474 %! 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
|
475 |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
476 ## 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
|
477 %!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
|
478 %!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
|
479 %!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
|
480 %!error <Rel err .* exceeds tol> assert (100, 100+300*eps, -2*eps) |
5589 | 481 |
7027 | 482 ## test relative vs. absolute tolerances |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
483 %!test assert (0.1+eps, 0.1, 2*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
|
484 %!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
|
485 %!test assert (100+100*eps, 100, -2*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
|
486 %!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
|
487 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
488 ## 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
|
489 %!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
|
490 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
491 ## 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
|
492 %!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
|
493 %!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
|
494 %!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
|
495 %!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
|
496 %!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
|
497 %!error <real != complex> assert (1, 1+i) |
7027 | 498 |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
499 ## exceptional values |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
500 %!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
|
501 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
502 %!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
|
503 %!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
|
504 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
505 %! try |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
506 %! 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
|
507 %! catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
508 %! errmsg = lasterr (); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
509 %! 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
|
510 %! 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
|
511 %! 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
|
512 %! 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
|
513 %! 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
|
514 %! 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
|
515 %! endif |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
516 %! end_try_catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
517 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
518 %!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
|
519 %!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
|
520 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
521 %! try |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
522 %! 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
|
523 %! catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
524 %! errmsg = lasterr (); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
525 %! 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
|
526 %! 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
|
527 %! 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
|
528 %! 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
|
529 %! 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
|
530 %! 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
|
531 %! endif |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
532 %! 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
|
533 %!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
|
534 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
535 %!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
|
536 %!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
|
537 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
538 %! try |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
539 %! 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
|
540 %! catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
541 %! errmsg = lasterr (); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
542 %! 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
|
543 %! 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
|
544 %! 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
|
545 %! 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
|
546 %! endif |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
547 %! end_try_catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
548 %!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
|
549 |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
550 ## strings |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
551 %!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
|
552 %!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
|
553 %!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
|
554 %!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
|
555 %!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
|
556 %!error <Expected string, but observed struct> assert (struct ("dog", 3), "dog") |
5589 | 557 |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
558 ## cell arrays |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
559 %!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
|
560 %!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
|
561 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
562 %! 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
|
563 %! y = x; |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
564 %! assert (x,y); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
565 %! 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
|
566 %! 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
|
567 |
18548
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
568 ## function handles |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
569 %!assert (@sin, @sin) |
06970f4625b8
assert.m: allow assertions for function handles
John W. Eaton <jwe@octave.org>
parents:
18547
diff
changeset
|
570 %!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
|
571 %!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
|
572 %!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
|
573 |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
574 %!test |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
575 %! 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
|
576 %! y = x; |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
577 %! assert (x, y); |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
578 %! 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
|
579 %! fail ("assert (x, y)"); |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
580 %! 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
|
581 %! fail ("assert (x, y)"); |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
582 %! 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
|
583 %! fail ("assert (x, y)"); |
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
584 %! 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
|
585 %! 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
|
586 %! 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
|
587 %! fail ("assert (x, y)"); |
12882
724bb6b7e3d5
assert.m: Correctly compare empty structures.
Rik <octave@nomad.inbox5.com>
parents:
12632
diff
changeset
|
588 |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
589 ## structures |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
590 %!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
|
591 %!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
|
592 %! 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
|
593 %! y(1,2).a = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
594 %! 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
|
595 %!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
|
596 %! 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
|
597 %! 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
|
598 %! 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
|
599 %!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
|
600 %! x.a = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
601 %! x.b = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
602 %! y.a = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
603 %! 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
|
604 %!error <'b' is not an expected field> |
17314
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
605 %! x.b = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
606 %! y.a = 1; |
7f27a3cbdb41
Use Octave coding convention of 1 space after '%!' test prefix.
Rik <rik@octave.org>
parents:
17306
diff
changeset
|
607 %! 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
|
608 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
609 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
610 %! 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
|
611 %! 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
|
612 %! assert (x, y); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
613 %! y.b=3; |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
614 %! 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
|
615 %! 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
|
616 %! 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
|
617 %! ## Empty structures |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
618 %! 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
|
619 %! 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
|
620 %! assert (x, y); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
621 |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
622 ## 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
|
623 %!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
|
624 %! 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
|
625 %! 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
|
626 %! y2 = 10.^(2*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
|
627 %! assert (y1, y2, 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
|
628 %! 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
|
629 |
17255
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
630 ## Multiple tolerances |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
631 %!test |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
632 %! 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
|
633 %! 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
|
634 %! 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
|
635 %! try |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
636 %! 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
|
637 %! catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
638 %! errmsg = lasterr (); |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
639 %! 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
|
640 %! 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
|
641 %! endif |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19725
diff
changeset
|
642 %! 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
|
643 %! 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
|
644 %! 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
|
645 %! 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
|
646 %! end_try_catch |
a28c0d73e253
assert.m: Added many more %!tests for function. Fixed multiple bugs discovered.
Rik <rik@octave.org>
parents:
17253
diff
changeset
|
647 |
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
|
648 ## test input validation |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
649 %!error assert () |
14070
c2c18e2e7c9c
assert.m: Update documentation string, add %!tests for cell arrays.
Rik <octave@nomad.inbox5.com>
parents:
14038
diff
changeset
|
650 %!error assert (1,2,3,4) |
12882
724bb6b7e3d5
assert.m: Correctly compare empty structures.
Rik <octave@nomad.inbox5.com>
parents:
12632
diff
changeset
|
651 |
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
|
652 |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
653 ## Convert all error indices into tuple format |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
654 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
|
655 |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
656 cout = cell (numel (erridx), 1); |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
657 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
|
658 [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
|
659 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
|
660 if (numel (matsize) == 2) |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
661 subs = subs(:, matsize != 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
|
662 endif |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
663 for i = 1:numel (erridx) |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
664 loc = sprintf ("%d,", subs(i,:)); |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
665 cout{i} = ["(" loc(1:end-1) ")"]; |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
666 endfor |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
667 |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
668 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
|
669 |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
670 |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
671 ## 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
|
672 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
|
673 |
17467
b8ecdb6ce2f8
assert.m: Speed up function by ~16% by not pre-calculating warning message.
Rik <rik@octave.org>
parents:
17314
diff
changeset
|
674 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
|
675 str = [str, "\n Location | Observed | Expected | Reason\n"]; |
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 for i = 1:length (err.index) |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
677 leni = length (err.index{i}); |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
678 leno = length (err.observed{i}); |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
679 lene = length (err.expected{i}); |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
680 str = [str, sprintf("%*s%*s %*s%*s %*s%*s %s\n", |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
681 6+fix(leni/2), err.index{i} , 6-fix(leni/2), "", |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
682 6+fix(leno/2), err.observed{i}, 6-fix(leno/2), "", |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
683 6+fix(lene/2), err.expected{i}, 6-fix(lene/2), "", |
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
684 err.reason{i})]; |
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
|
685 endfor |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
686 |
afd235a206a2
Allow vector/matrix tolerance and improve error messages for assert.m script
Daniel J Sebald <daniel.sebald@ieee.org>
parents:
17170
diff
changeset
|
687 endfunction |
17251
684ccccbc15d
assert.m: Add vector checking for relative errors.
Rik <rik@octave.org>
parents:
17250
diff
changeset
|
688 |