Mercurial > hg > octave-nkf
annotate scripts/testfun/test.m @ 18015:fe59ef0084a6
maint: Periodic merge of stable to default.
| author | Rik <rik@octave.org> |
|---|---|
| date | Mon, 25 Nov 2013 22:25:35 -0800 |
| parents | d63878346099 |
| children | c9b4d3177de3 446c46af4b42 |
| rev | line source |
|---|---|
|
17744
d63878346099
maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents:
17336
diff
changeset
|
1 ## Copyright (C) 2005-2013 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 -*- | |
|
11412
a8a9f062d0ef
test.m: Use 'Command' for deftype in docstring.
Rik <octave@nomad.inbox5.com>
parents:
11032
diff
changeset
|
20 ## @deftypefn {Command} {} test @var{name} |
|
a8a9f062d0ef
test.m: Use 'Command' for deftype in docstring.
Rik <octave@nomad.inbox5.com>
parents:
11032
diff
changeset
|
21 ## @deftypefnx {Command} {} test @var{name} quiet|normal|verbose |
|
14359
7277fe922e99
doc: Use Octave preference for double quote in docstrings in scripts/
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
22 ## @deftypefnx {Function File} {} test ("@var{name}", "quiet|normal|verbose", @var{fid}) |
|
7277fe922e99
doc: Use Octave preference for double quote in docstrings in scripts/
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
23 ## @deftypefnx {Function File} {} test ([], "explain", @var{fid}) |
| 5589 | 24 ## @deftypefnx {Function File} {@var{success} =} test (@dots{}) |
| 25 ## @deftypefnx {Function File} {[@var{n}, @var{max}] =} test (@dots{}) | |
|
14359
7277fe922e99
doc: Use Octave preference for double quote in docstrings in scripts/
Rik <octave@nomad.inbox5.com>
parents:
14237
diff
changeset
|
26 ## @deftypefnx {Function File} {[@var{code}, @var{idx}] =} test ("@var{name}", "grabdemo") |
| 5589 | 27 ## |
| 28 ## Perform tests from the first file in the loadpath matching @var{name}. | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
29 ## @code{test} can be called as a command or as a function. Called with |
| 5589 | 30 ## a single argument @var{name}, the tests are run interactively and stop |
| 31 ## after the first error is encountered. | |
| 32 ## | |
| 33 ## With a second argument the tests which are performed and the amount of | |
| 34 ## output is selected. | |
| 35 ## | |
| 36 ## @table @asis | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
37 ## @item @qcode{"quiet"} |
| 5589 | 38 ## Don't report all the tests as they happen, just the errors. |
| 39 ## | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
40 ## @item @qcode{"normal"} |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
41 ## Report all tests as they happen, but don't do tests which require |
| 5589 | 42 ## user interaction. |
| 43 ## | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
44 ## @item @qcode{"verbose"} |
| 5589 | 45 ## Do tests which require user interaction. |
| 46 ## @end table | |
| 47 ## | |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
48 ## The argument @var{fid} can be used to allow batch processing. Errors |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
49 ## can be written to the already open file defined by @var{fid}, and |
|
8481
00df69d7e698
[docs] capitalize Octave consistently
Brian Gough <bjg@gnu.org>
parents:
8422
diff
changeset
|
50 ## hopefully when Octave crashes this file will tell you what was happening |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
51 ## when it did. You can use @code{stdout} if you want to see the results as |
| 5589 | 52 ## they happen. You can also give a file name rather than an @var{fid}, in |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
53 ## which case the contents of the file will be replaced with the log from |
| 5589 | 54 ## the current test. |
| 55 ## | |
| 56 ## Called with a single output argument @var{success}, @code{test} returns | |
|
9051
1bf0ce0930be
Grammar check TexInfo in all .m files
Rik <rdrider0-list@yahoo.com>
parents:
8920
diff
changeset
|
57 ## true if all of the tests were successful. Called with two output arguments |
| 7001 | 58 ## @var{n} and @var{max}, the number of successful tests and the total number |
| 5589 | 59 ## of tests in the file @var{name} are returned. |
| 60 ## | |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
61 ## If the second argument is the string @qcode{"grabdemo"}, the contents of |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
62 ## the demo blocks are extracted but not executed. Code for all code blocks |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
63 ## is concatenated and returned as @var{code} with @var{idx} being a vector |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
64 ## of positions of the ends of the demo blocks. |
| 5589 | 65 ## |
|
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
66 ## If the second argument is @qcode{"explain"}, then @var{name} is ignored |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
67 ## and an explanation of the line markers used is written to the file |
|
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17245
diff
changeset
|
68 ## @var{fid}. |
|
11412
a8a9f062d0ef
test.m: Use 'Command' for deftype in docstring.
Rik <octave@nomad.inbox5.com>
parents:
11032
diff
changeset
|
69 ## @seealso{assert, fail, error, demo, example} |
| 5589 | 70 ## @end deftypefn |
| 71 | |
|
8202
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
7940
diff
changeset
|
72 ## FIXME: * Consider using keyword fail rather then error? This allows us |
|
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
7940
diff
changeset
|
73 ## to make a functional form of error blocks, which means we |
|
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
7940
diff
changeset
|
74 ## can include them in test sections which means that we can use |
|
cf59d542f33e
replace all TODOs and XXXs with FIXMEs
Jaroslav Hajek <highegg@gmail.com>
parents:
7940
diff
changeset
|
75 ## octave flow control for both kinds of tests. |
| 5589 | 76 |
| 7242 | 77 function [__ret1, __ret2, __ret3, __ret4] = test (__name, __flag, __fid) |
| 8506 | 78 ## Information from test will be introduced by "key". |
| 5589 | 79 persistent __signal_fail = "!!!!! "; |
| 80 persistent __signal_empty = "????? "; | |
| 81 persistent __signal_block = " ***** "; | |
| 82 persistent __signal_file = ">>>>> "; | |
| 7242 | 83 persistent __signal_skip = "----- "; |
| 5589 | 84 |
| 6730 | 85 __xfail = 0; |
| 7242 | 86 __xskip = 0; |
| 6730 | 87 |
| 6494 | 88 if (nargin < 2 || isempty (__flag)) |
| 5589 | 89 __flag = "quiet"; |
| 90 endif | |
| 6494 | 91 if (nargin < 3) |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
92 __fid = []; |
| 5589 | 93 endif |
| 6494 | 94 if (nargin < 1 || nargin > 3 |
| 95 || (! ischar (__name) && ! isempty (__name)) || ! ischar (__flag)) | |
| 6046 | 96 print_usage (); |
| 5589 | 97 endif |
| 6494 | 98 if (isempty (__name) && (nargin != 3 || ! strcmp (__flag, "explain"))) |
| 6046 | 99 print_usage (); |
| 5589 | 100 endif |
| 6494 | 101 __batch = (! isempty (__fid)); |
| 5589 | 102 |
| 8506 | 103 ## Decide if error messages should be collected. |
| 5589 | 104 __close_fid = 0; |
| 105 if (__batch) | |
| 6494 | 106 if (ischar (__fid)) |
| 107 __fid = fopen (__fid, "wt"); | |
| 108 if (__fid < 0) | |
|
10635
d1978e7364ad
Print name of function in error() string messages.
Rik <octave@nomad.inbox5.com>
parents:
10615
diff
changeset
|
109 error ("test: could not open log file"); |
| 6494 | 110 endif |
| 5589 | 111 __close_fid = 1; |
| 112 endif | |
| 113 fprintf (__fid, "%sprocessing %s\n", __signal_file, __name); | |
| 5908 | 114 fflush (__fid); |
| 5589 | 115 else |
| 116 __fid = stdout; | |
| 117 endif | |
| 118 | |
| 6494 | 119 if (strcmp (__flag, "normal")) |
| 5589 | 120 __grabdemo = 0; |
| 121 __rundemo = 0; | |
| 122 __verbose = __batch; | |
| 6494 | 123 elseif (strcmp (__flag, "quiet")) |
| 5589 | 124 __grabdemo = 0; |
| 125 __rundemo = 0; | |
| 126 __verbose = 0; | |
| 6494 | 127 elseif (strcmp (__flag, "verbose")) |
| 5589 | 128 __grabdemo = 0; |
| 129 __rundemo = 1; | |
| 130 __verbose = 1; | |
| 6494 | 131 elseif (strcmp (__flag, "grabdemo")) |
| 5589 | 132 __grabdemo = 1; |
| 133 __rundemo = 0; | |
| 134 __verbose = 0; | |
| 135 __demo_code = ""; | |
|
12643
55430618bd5f
Properly warn when demo or example called on a function without demos
Rik <octave@nomad.inbox5.com>
parents:
12447
diff
changeset
|
136 __demo_idx = []; |
| 6494 | 137 elseif (strcmp (__flag, "explain")) |
| 138 fprintf (__fid, "# %s new test file\n", __signal_file); | |
| 139 fprintf (__fid, "# %s no tests in file\n", __signal_empty); | |
| 140 fprintf (__fid, "# %s test had an unexpected result\n", __signal_fail); | |
| 141 fprintf (__fid, "# %s code for the test\n", __signal_block); | |
| 5589 | 142 fprintf (__fid, "# Search for the unexpected results in the file\n"); |
| 143 fprintf (__fid, "# then page back to find the file name which caused it.\n"); | |
| 144 fprintf (__fid, "# The result may be an unexpected failure (in which\n"); | |
| 145 fprintf (__fid, "# case an error will be reported) or an unexpected\n"); | |
| 146 fprintf (__fid, "# success (in which case no error will be reported).\n"); | |
| 5908 | 147 fflush (__fid); |
| 6494 | 148 if (__close_fid) |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
149 fclose (__fid); |
| 6494 | 150 endif |
| 5589 | 151 return; |
| 152 else | |
|
10635
d1978e7364ad
Print name of function in error() string messages.
Rik <octave@nomad.inbox5.com>
parents:
10615
diff
changeset
|
153 error ("test: unknown flag '%s'", __flag); |
| 5589 | 154 endif |
| 155 | |
| 8506 | 156 ## Locate the file to test. |
| 6249 | 157 __file = file_in_loadpath (__name, "all"); |
| 158 if (isempty (__file)) | |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
159 __file = file_in_loadpath ([__name ".m"], "all"); |
| 5589 | 160 endif |
| 161 if (isempty (__file)) | |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
162 __file = file_in_loadpath ([__name ".cc"], "all"); |
| 6249 | 163 endif |
| 164 if (iscell (__file)) | |
| 6365 | 165 ## If repeats, return first in path. |
| 166 if (isempty (__file)) | |
| 167 __file = ""; | |
| 168 else | |
| 169 __file = __file{1}; | |
| 170 endif | |
| 5589 | 171 endif |
| 172 if (isempty (__file)) | |
| 173 if (__grabdemo) | |
| 174 __ret1 = ""; | |
|
15520
bcace51598ed
Improve demo() to warn when an input function does not exist.
Rik <rik@octave.org>
parents:
15006
diff
changeset
|
175 __ret2 = -1; |
| 5589 | 176 else |
|
15762
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
177 ftype = exist (__name); |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
178 if (ftype == 3) |
|
12447
890e89c3dfeb
More explicit error message when source with tests for dynamically linked functions not found (#30341)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
179 fprintf (__fid, "%s%s source code with tests for dynamically linked function not found\n", __signal_empty, __name); |
|
15762
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
180 elseif (ftype == 5) |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
181 fprintf (__fid, "%s%s is a built-in function\n", __signal_empty, __name); |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
182 elseif (any (strcmp (__operators__ (), __name))) |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
183 fprintf (__fid, "%s%s is an operator\n", __signal_empty, __name); |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
184 elseif (any (strcmp (__keywords__ (), __name))) |
|
a5475ba0d199
test.m: Better error reporting for arguments that can't be tested (bug #37592)
Mike Miller <mtmiller@ieee.org>
parents:
15520
diff
changeset
|
185 fprintf (__fid, "%s%s is a keyword\n", __signal_empty, __name); |
|
12447
890e89c3dfeb
More explicit error message when source with tests for dynamically linked functions not found (#30341)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
186 else |
|
890e89c3dfeb
More explicit error message when source with tests for dynamically linked functions not found (#30341)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
187 fprintf (__fid, "%s%s does not exist in path\n", __signal_empty, __name); |
|
890e89c3dfeb
More explicit error message when source with tests for dynamically linked functions not found (#30341)
David Bateman <dbateman@free.fr>
parents:
11587
diff
changeset
|
188 endif |
| 5908 | 189 fflush (__fid); |
| 6494 | 190 if (nargout > 0) |
| 10549 | 191 __ret1 = __ret2 = 0; |
| 6494 | 192 endif |
| 5589 | 193 endif |
| 6494 | 194 if (__close_fid) |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
195 fclose (__fid); |
| 6494 | 196 endif |
| 5589 | 197 return; |
| 198 endif | |
| 199 | |
| 8506 | 200 ## Grab the test code from the file. |
| 5589 | 201 __body = __extract_test_code (__file); |
| 202 | |
| 203 if (isempty (__body)) | |
| 204 if (__grabdemo) | |
| 205 __ret1 = ""; | |
| 206 __ret2 = []; | |
| 207 else | |
| 6494 | 208 fprintf (__fid, "%s%s has no tests available\n", __signal_empty, __file); |
| 5908 | 209 fflush (__fid); |
| 6494 | 210 if (nargout > 0) |
| 10549 | 211 __ret1 = __ret2 = 0; |
| 6494 | 212 endif |
| 5589 | 213 endif |
| 6494 | 214 if (__close_fid) |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
215 fclose (__fid); |
| 6494 | 216 endif |
| 5589 | 217 return; |
| 218 else | |
| 8506 | 219 ## Add a dummy comment block to the end for ease of indexing. |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
220 if (__body (length (__body)) == "\n") |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
221 __body = sprintf ("\n%s#", __body); |
| 5589 | 222 else |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
223 __body = sprintf ("\n%s\n#", __body); |
| 5589 | 224 endif |
| 225 endif | |
| 226 | |
| 8506 | 227 ## Chop it up into blocks for evaluation. |
| 6494 | 228 __lineidx = find (__body == "\n"); |
| 229 __blockidx = __lineidx(find (! isspace (__body(__lineidx+1))))+1; | |
| 5589 | 230 |
| 8506 | 231 ## Ready to start tests ... if in batch mode, tell us what is happening. |
| 5589 | 232 if (__verbose) |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
233 disp ([__signal_file, __file]); |
| 5589 | 234 endif |
| 235 | |
| 8506 | 236 ## Assume all tests will pass. |
| 5589 | 237 __all_success = 1; |
| 238 | |
| 8506 | 239 ## Process each block separately, initially with no shared variables. |
| 5589 | 240 __tests = __successes = 0; |
| 241 __shared = " "; | |
| 242 __shared_r = " "; | |
| 243 __clear = ""; | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
244 for __i = 1:length (__blockidx)-1 |
| 5589 | 245 |
| 8506 | 246 ## Extract the block. |
| 5589 | 247 __block = __body(__blockidx(__i):__blockidx(__i+1)-2); |
| 248 | |
| 8506 | 249 ## Let the user/logfile know what is happening. |
| 5589 | 250 if (__verbose) |
| 251 fprintf (__fid, "%s%s\n", __signal_block, __block); | |
| 5908 | 252 fflush (__fid); |
| 5589 | 253 endif |
| 254 | |
| 8506 | 255 ## Split __block into __type and __code. |
| 6494 | 256 __idx = find (! isletter (__block)); |
| 257 if (isempty (__idx)) | |
| 5589 | 258 __type = __block; |
| 259 __code = ""; | |
| 260 else | |
| 261 __type = __block(1:__idx(1)-1); | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
262 __code = __block(__idx(1):length (__block)); |
| 5589 | 263 endif |
| 264 | |
| 8506 | 265 ## Assume the block will succeed. |
| 5589 | 266 __success = 1; |
| 267 __msg = []; | |
| 268 | |
| 8506 | 269 ### DEMO |
| 270 | |
| 5589 | 271 ## If in __grabdemo mode, then don't process any other block type. |
| 272 ## So that the other block types don't have to worry about | |
| 273 ## this __grabdemo mode, the demo block processor grabs all block | |
| 274 ## types and skips those which aren't demo blocks. | |
| 8506 | 275 |
| 5589 | 276 __isdemo = strcmp (__type, "demo"); |
| 277 if (__grabdemo || __isdemo) | |
| 278 __istest = 0; | |
| 279 | |
| 280 if (__grabdemo && __isdemo) | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
281 if (isempty (__demo_code)) |
| 10549 | 282 __demo_code = __code; |
| 283 __demo_idx = [1, length(__demo_code)+1]; | |
| 284 else | |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
285 __demo_code = [__demo_code, __code]; |
| 10549 | 286 __demo_idx = [__demo_idx, length(__demo_code)+1]; |
| 287 endif | |
| 5589 | 288 |
| 289 elseif (__rundemo && __isdemo) | |
| 10549 | 290 try |
| 291 ## process the code in an environment without variables | |
|
14846
460a3c6d8bf1
maint: Use Octave coding convention for cuddled parenthis in function calls with empty argument lists.
Rik <octave@nomad.inbox5.com>
parents:
14359
diff
changeset
|
292 eval (sprintf ("function __test__ ()\n%s\nendfunction", __code)); |
| 10549 | 293 __test__; |
| 294 input ("Press <enter> to continue: ", "s"); | |
| 295 catch | |
| 296 __success = 0; | |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
297 __msg = sprintf ("%sdemo failed\n%s", __signal_fail, lasterr ()); |
| 10549 | 298 end_try_catch |
| 299 clear __test__; | |
| 5589 | 300 |
| 301 endif | |
| 8506 | 302 ## Code already processed. |
| 303 __code = ""; | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
304 |
| 8506 | 305 ### SHARED |
| 306 | |
| 307 elseif (strcmp (__type, "shared")) | |
| 5589 | 308 __istest = 0; |
| 309 | |
| 8506 | 310 ## Separate initialization code from variables. |
| 6494 | 311 __idx = find (__code == "\n"); |
| 312 if (isempty (__idx)) | |
| 10549 | 313 __vars = __code; |
| 314 __code = ""; | |
| 5589 | 315 else |
| 10549 | 316 __vars = __code (1:__idx(1)-1); |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
317 __code = __code (__idx(1):length (__code)); |
| 5589 | 318 endif |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
319 |
| 8506 | 320 ## Strip comments off the variables. |
| 6730 | 321 __idx = find (__vars == "%" | __vars == "#"); |
| 6494 | 322 if (! isempty (__idx)) |
| 10549 | 323 __vars = __vars(1:__idx(1)-1); |
| 5589 | 324 endif |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
325 |
| 8506 | 326 ## Assign default values to variables. |
| 5589 | 327 try |
| 10549 | 328 __vars = deblank (__vars); |
| 329 if (! isempty (__vars)) | |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
330 eval ([strrep(__vars, ",", "=[];"), "=[];"]); |
| 10549 | 331 __shared = __vars; |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
332 __shared_r = ["[ ", __vars, "] = "]; |
| 10549 | 333 else |
| 334 __shared = " "; | |
| 335 __shared_r = " "; | |
| 336 endif | |
| 5589 | 337 catch |
| 10549 | 338 ## Couldn't declare, so don't initialize. |
| 339 __code = ""; | |
| 340 __success = 0; | |
| 341 __msg = sprintf ("%sshared variable initialization failed\n", | |
| 342 __signal_fail); | |
| 5589 | 343 end_try_catch |
| 344 | |
| 8506 | 345 ## Initialization code will be evaluated below. |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
346 |
| 8506 | 347 ### FUNCTION |
| 348 | |
| 6494 | 349 elseif (strcmp (__type, "function")) |
| 5589 | 350 __istest = 0; |
| 351 persistent __fn = 0; | |
| 6494 | 352 __name_position = function_name (__block); |
| 353 if (isempty (__name_position)) | |
| 5589 | 354 __success = 0; |
| 6494 | 355 __msg = sprintf ("%stest failed: missing function name\n", |
| 10549 | 356 __signal_fail); |
| 5589 | 357 else |
| 358 __name = __block(__name_position(1):__name_position(2)); | |
|
10130
0c3609dd34cf
oct-parse.yy (eval_string): save and set reading_{script,fcn,classdef}_file vars
John W. Eaton <jwe@octave.org>
parents:
10128
diff
changeset
|
359 __code = __block; |
| 5589 | 360 try |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
361 eval (__code); # Define the function |
| 6494 | 362 __clear = sprintf ("%sclear %s;\n", __clear, __name); |
| 5589 | 363 catch |
| 364 __success = 0; | |
| 6494 | 365 __msg = sprintf ("%stest failed: syntax error\n%s", |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
366 __signal_fail, lasterr ()); |
| 5589 | 367 end_try_catch |
| 368 endif | |
| 369 __code = ""; | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
370 |
|
13305
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
371 ### ENDFUNCTION |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
372 |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
373 elseif (strcmp (__type, "endfunction")) |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
374 ## endfunction simply declares the end of a previous function block. |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
375 ## There is no processing to be done here, just skip to next block. |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
376 __istest = 0; |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
377 __code = ""; |
|
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
378 |
| 8506 | 379 ### ASSERT/FAIL |
| 5589 | 380 |
| 6494 | 381 elseif (strcmp (__type, "assert") || strcmp (__type, "fail")) |
| 5589 | 382 __istest = 1; |
| 8506 | 383 ## Put the keyword back on the code. |
| 384 __code = __block; | |
| 385 ## The code will be evaluated below as a test block. | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
386 |
| 8506 | 387 ### ERROR/WARNING |
| 388 | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
389 elseif (strcmp (__type, "error") || strcmp (__type, "warning")) |
| 5589 | 390 __istest = 1; |
| 6494 | 391 __warning = strcmp (__type, "warning"); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
392 [__pattern, __id, __code] = getpattern (__code); |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
393 if (__id) |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
394 __patstr = ["id=",__id]; |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
395 else |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
396 if (! strcmp (__pattern, '.')) |
|
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
397 __patstr = ["<",__pattern,">"]; |
|
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
398 else |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
399 __patstr = ifelse (__warning, "a warning", "an error"); |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
400 endif |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
401 endif |
| 5589 | 402 try |
| 10549 | 403 eval (sprintf ("function __test__(%s)\n%s\nendfunction", |
| 404 __shared, __code)); | |
| 5589 | 405 catch |
| 10549 | 406 __success = 0; |
| 407 __msg = sprintf ("%stest failed: syntax error\n%s", | |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
408 __signal_fail, lasterr ()); |
| 5589 | 409 end_try_catch |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
410 |
| 5589 | 411 if (__success) |
| 412 __success = 0; | |
| 10549 | 413 __warnstate = warning ("query", "quiet"); |
| 414 warning ("on", "quiet"); | |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
415 ## Clear error and warning strings before starting |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
416 lasterr (""); |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
417 lastwarn (""); |
| 10549 | 418 try |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
419 ## FIXME: lastwarn () must be called once from *WITHIN* the try block |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
420 ## or subsequent warning/lastwarn statements may fail. |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
421 ## Likely this is something to do with the specialness of |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
422 ## the try block which is disabling normal errors. |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
423 lastwarn (); |
| 10549 | 424 eval (sprintf ("__test__(%s);", __shared)); |
| 6494 | 425 if (! __warning) |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
426 __msg = sprintf ("%serror failed.\nExpected %s but got no error\n", |
| 10549 | 427 __signal_fail, __patstr); |
| 428 else | |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
429 if (! isempty (__id)) |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
430 [~, __err] = lastwarn (); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
431 __mismatch = ! strcmp (__err, __id); |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
432 else |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
433 __err = trimerr (lastwarn (), "warning"); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
434 __mismatch = isempty (regexp (__err, __pattern, "once")); |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
435 endif |
| 7028 | 436 warning (__warnstate.state, "quiet"); |
| 437 if (isempty (__err)) | |
|
17245
7babcdb9bc13
Use ... instead of \ for line continuation marker.
Stefan Mahr <dac922@gmx.de>
parents:
16994
diff
changeset
|
438 __msg = sprintf (["%swarning failed.\n" ... |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
439 "Expected %s but got no warning\n"], |
|
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
440 __signal_fail, __patstr); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
441 elseif (__mismatch) |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
442 __msg = sprintf ("%swarning failed.\nExpected %s but got <%s>\n", |
| 10549 | 443 __signal_fail, __patstr, __err); |
| 7028 | 444 else |
| 445 __success = 1; | |
| 446 endif | |
| 10549 | 447 endif |
| 5589 | 448 |
| 10549 | 449 catch |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
450 if (! isempty (__id)) |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
451 [~, __err] = lasterr (); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
452 __mismatch = ! strcmp (__err, __id); |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
453 else |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
454 __err = trimerr (lasterr (), "error"); |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
455 __mismatch = isempty (regexp (__err, __pattern, "once")); |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
456 endif |
| 6494 | 457 warning (__warnstate.state, "quiet"); |
| 458 if (__warning) | |
|
17245
7babcdb9bc13
Use ... instead of \ for line continuation marker.
Stefan Mahr <dac922@gmx.de>
parents:
16994
diff
changeset
|
459 __msg = sprintf (["%swarning failed.\n" ... |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
460 "Expected warning %s but got error <%s>\n"], |
| 10549 | 461 __signal_fail, __patstr, __err); |
| 462 elseif (__mismatch) | |
|
16976
13affad7347c
test.m: Use the syntax "BLOCK_NAME failed" for error/warnings blocks.
Rik <rik@octave.org>
parents:
16170
diff
changeset
|
463 __msg = sprintf ("%serror failed.\nExpected %s but got <%s>\n", |
| 10549 | 464 __signal_fail, __patstr, __err); |
| 5589 | 465 else |
| 10549 | 466 __success = 1; |
| 5589 | 467 endif |
| 10549 | 468 end_try_catch |
| 469 clear __test__; | |
| 5589 | 470 endif |
| 8506 | 471 ## Code already processed. |
| 472 __code = ""; | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
473 |
| 8506 | 474 ### TESTIF |
| 475 | |
| 7242 | 476 elseif (strcmp (__type, "testif")) |
|
14182
f8d99761244c
test: Expand %!testif functionality to multiple conditions
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
477 __e = regexp (__code, '.$', 'lineanchors', 'once'); |
|
14190
68fd9f95e1f9
Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents:
14182
diff
changeset
|
478 ## Strip comment any comment from testif line before looking for features |
|
68fd9f95e1f9
Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents:
14182
diff
changeset
|
479 __feat_line = strtok (__code(1:__e), '#%'); |
|
68fd9f95e1f9
Don't process comments in %!testif specifications.
Rik <octave@nomad.inbox5.com>
parents:
14182
diff
changeset
|
480 __feat = regexp (__feat_line, '\w+', 'match'); |
|
16170
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
481 __feat = strrep (__feat, "HAVE_", ""); |
|
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
482 __have_feat = __have_feature__ (__feat); |
|
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
483 if (__have_feat) |
|
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
484 __istest = 1; |
|
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
485 __code = __code(__e + 1 : end); |
|
2a4f83826024
new way to test for features in Octave scripts
John W. Eaton <jwe@octave.org>
parents:
16019
diff
changeset
|
486 else |
| 7242 | 487 __xskip++; |
| 10549 | 488 __istest = 0; |
|
10615
08050f37ba49
Don't abort testing when merely skipping a testif block.
Rik <octave@nomad.inbox5.com>
parents:
10549
diff
changeset
|
489 __code = ""; # Skip the code. |
| 10549 | 490 __msg = sprintf ("%sskipped test\n", __signal_skip); |
| 7242 | 491 endif |
| 492 | |
| 8506 | 493 ### TEST |
| 494 | |
| 6728 | 495 elseif (strcmp (__type, "test") || strcmp (__type, "xtest")) |
| 5589 | 496 __istest = 1; |
| 8506 | 497 ## Code will be evaluated below. |
| 498 | |
| 499 ### Comment block. | |
| 500 | |
| 6494 | 501 elseif (strcmp (__block(1:1), "#")) |
| 5589 | 502 __istest = 0; |
| 503 __code = ""; # skip the code | |
| 504 | |
| 8506 | 505 ### Unknown block. |
| 506 | |
| 5589 | 507 else |
| 508 __istest = 1; | |
| 509 __success = 0; | |
| 6494 | 510 __msg = sprintf ("%sunknown test type!\n", __signal_fail); |
| 5589 | 511 __code = ""; # skip the code |
| 512 endif | |
| 513 | |
| 514 ## evaluate code for test, shared, and assert. | |
| 6494 | 515 if (! isempty(__code)) |
| 5589 | 516 try |
|
14066
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
517 ## FIXME: need to check for embedded test functions, which cause |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
518 ## segfaults, until issues with subfunctions in functions are resolved. |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
519 embed_func = regexp (__code, '^\s*function ', 'once', 'lineanchors'); |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
520 if (isempty (embed_func)) |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
521 eval (sprintf ("function %s__test__(%s)\n%s\nendfunction", |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
522 __shared_r,__shared, __code)); |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
523 eval (sprintf ("%s__test__(%s);", __shared_r, __shared)); |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
524 else |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
525 error (["Functions embedded in %!test blocks are not allowed.\n", ... |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
526 "Use the %!function/%!endfunction syntax instead to define shared functions for testing.\n"]); |
|
80bda7c4f012
Avoid segfault in test() and demo() blocks with embedded functions (Bugs #35068, #32843, #33981)
Rik <octave@nomad.inbox5.com>
parents:
13914
diff
changeset
|
527 endif |
| 5589 | 528 catch |
| 6728 | 529 if (strcmp (__type, "xtest")) |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
530 __msg = sprintf ("%sknown failure\n%s", __signal_fail, lasterr ()); |
| 10549 | 531 __xfail++; |
| 6728 | 532 else |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
533 __msg = sprintf ("%stest failed\n%s", __signal_fail, lasterr ()); |
| 10549 | 534 __success = 0; |
| 6728 | 535 endif |
|
12687
6d4c18565de1
Deprecate error_text(), __error_text__()
Rik <octave@nomad.inbox5.com>
parents:
12643
diff
changeset
|
536 if (isempty (lasterr ())) |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
537 error ("empty error text, probably Ctrl-C --- aborting"); |
| 10549 | 538 endif |
| 5589 | 539 end_try_catch |
| 540 clear __test__; | |
| 541 endif | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
542 |
| 8506 | 543 ## All done. Remember if we were successful and print any messages. |
| 6494 | 544 if (! isempty (__msg)) |
| 8506 | 545 ## Make sure the user knows what caused the error. |
| 6494 | 546 if (! __verbose) |
| 10549 | 547 fprintf (__fid, "%s%s\n", __signal_block, __block); |
| 548 fflush (__fid); | |
| 5589 | 549 endif |
| 550 fputs (__fid, __msg); | |
|
9996
929e53107f09
Add newline to message output of test.m
Rik <rdrider0-list@yahoo.com>
parents:
9051
diff
changeset
|
551 fputs (__fid, "\n"); |
| 5908 | 552 fflush (__fid); |
| 8506 | 553 ## Show the variable context. |
| 7244 | 554 if (! strcmp (__type, "error") && ! strcmp (__type, "testif") |
| 10549 | 555 && ! all (__shared == " ")) |
| 556 fputs (__fid, "shared variables "); | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
557 eval (sprintf ("fdisp(__fid,bundle(%s));", __shared)); |
| 10549 | 558 fflush (__fid); |
| 5589 | 559 endif |
| 560 endif | |
| 561 if (__success == 0) | |
| 562 __all_success = 0; | |
| 8506 | 563 ## Stop after one error if not in batch mode. |
| 6494 | 564 if (! __batch) |
| 10549 | 565 if (nargout > 0) |
| 566 __ret1 = __ret2 = 0; | |
| 567 endif | |
| 568 if (__close_fid) | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
569 fclose (__fid); |
| 10549 | 570 endif |
| 571 return; | |
| 5589 | 572 endif |
| 573 endif | |
| 574 __tests += __istest; | |
| 6494 | 575 __successes += __success * __istest; |
| 5589 | 576 endfor |
|
15006
d8acad691f26
Clear %!functions at the end of testing, not for each shared block.
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
577 ## Clear any test functions created |
| 6494 | 578 eval (__clear, ""); |
| 5589 | 579 |
| 580 if (nargout == 0) | |
|
8422
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
581 if (__tests || __xfail || __xskip) |
|
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
582 if (__xfail) |
|
16992
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
583 printf ("PASSES %d out of %d test%s (%d expected failure%s)\n", |
|
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
584 __successes, __tests, ifelse (__tests > 1, "s", ""), |
|
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
585 __xfail, ifelse (__xfail > 1, "s", "")); |
|
8422
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
586 else |
|
16992
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
587 printf ("PASSES %d out of %d test%s\n", __successes, __tests, |
|
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
588 ifelse (__tests > 1, "s", "")); |
|
8422
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
589 endif |
|
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
590 if (__xskip) |
|
16992
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
591 printf ("Skipped %d test%s due to missing features\n", __xskip, |
|
4e8f49304059
test.m: Use correct English singular/plural in reporting messages (bug #39164).
Rafael Laboissiere <rafael@laboissiere.net>
parents:
16977
diff
changeset
|
592 ifelse (__xskip > 1, "s", "")); |
|
8422
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
593 endif |
| 6730 | 594 else |
|
8422
20cbb0fdab48
test.m: print "has no tests" message if there are demos but no tests
John W. Eaton <jwe@octave.org>
parents:
8202
diff
changeset
|
595 printf ("%s%s has no tests available\n", __signal_empty, __file); |
| 7242 | 596 endif |
| 5589 | 597 elseif (__grabdemo) |
| 598 __ret1 = __demo_code; | |
| 599 __ret2 = __demo_idx; | |
| 6494 | 600 elseif (nargout == 1) |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
601 __ret1 = __all_success; |
| 5589 | 602 else |
| 603 __ret1 = __successes; | |
| 604 __ret2 = __tests; | |
| 6730 | 605 __ret3 = __xfail; |
| 7242 | 606 __ret4 = __xskip; |
| 5589 | 607 endif |
| 608 endfunction | |
| 609 | |
| 8506 | 610 ## Create structure with fieldnames the name of the input variables. |
| 6494 | 611 function s = varstruct (varargin) |
| 612 for i = 1:nargin | |
| 613 s.(deblank (argn(i,:))) = varargin{i}; | |
| 5589 | 614 endfor |
| 615 endfunction | |
| 616 | |
| 8506 | 617 ## Find [start,end] of fn in 'function [a,b] = fn'. |
| 6494 | 618 function pos = function_name (def) |
| 5589 | 619 pos = []; |
| 620 | |
| 8506 | 621 ## Find the end of the name. |
| 6494 | 622 right = find (def == "(", 1); |
| 623 if (isempty (right)) | |
| 624 return; | |
| 625 endif | |
| 626 right = find (def(1:right-1) != " ", 1, "last"); | |
| 5589 | 627 |
| 8506 | 628 ## Find the beginning of the name. |
| 6494 | 629 left = max ([find(def(1:right)==" ", 1, "last"), ... |
| 10549 | 630 find(def(1:right)=="=", 1, "last")]); |
| 6494 | 631 if (isempty (left)) |
| 632 return; | |
| 633 endif | |
| 5589 | 634 left++; |
| 635 | |
| 8506 | 636 ## Return the end points of the name. |
| 6494 | 637 pos = [left, right]; |
| 5589 | 638 endfunction |
| 639 | |
| 8506 | 640 ## Strip <pattern> from '<pattern> code'. |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
641 ## Also handles 'id=ID code' |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
642 function [pattern, id, rest] = getpattern (str) |
| 6494 | 643 pattern = "."; |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
644 id = []; |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
645 rest = str; |
| 6494 | 646 str = trimleft (str); |
| 647 if (! isempty (str) && str(1) == "<") | |
| 648 close = index (str, ">"); | |
| 649 if (close) | |
| 5589 | 650 pattern = str(2:close-1); |
| 651 rest = str(close+1:end); | |
| 652 endif | |
|
10398
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
653 elseif (strncmp (str, "id=", 3)) |
|
f7cf1a53e1c5
support ID test for errors and warningsin test suites
Jaroslav Hajek <highegg@gmail.com>
parents:
10130
diff
changeset
|
654 [id, rest] = strtok (str(4:end)); |
| 5589 | 655 endif |
| 656 endfunction | |
| 657 | |
| 8506 | 658 ## Strip '.*prefix:' from '.*prefix: msg\n' and strip trailing blanks. |
| 6494 | 659 function msg = trimerr (msg, prefix) |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
660 idx = index (msg, [prefix ":"]); |
| 6494 | 661 if (idx > 0) |
| 662 msg(1:idx+length(prefix)) = []; | |
| 663 endif | |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
664 msg = strtrim (msg); |
| 5589 | 665 endfunction |
| 666 | |
| 8506 | 667 ## Strip leading blanks from string. |
| 6494 | 668 function str = trimleft (str) |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
669 idx = find (! isspace (str), 1); |
|
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
670 str = str(idx:end); |
| 5589 | 671 endfunction |
| 672 | |
| 8506 | 673 ## Make a structure out of the named variables |
| 674 ## (based on Etienne Grossmann's tar function). | |
| 6494 | 675 function s = bundle (varargin) |
| 676 for i = 1:nargin | |
| 677 s.(deblank (argn(i,:))) = varargin{i}; | |
| 7151 | 678 endfor |
| 5589 | 679 endfunction |
| 680 | |
| 681 function body = __extract_test_code (nm) | |
| 682 fid = fopen (nm, "rt"); | |
| 683 body = []; | |
| 684 if (fid >= 0) | |
| 6494 | 685 while (! feof (fid)) |
| 5589 | 686 ln = fgetl (fid); |
| 6494 | 687 if (length (ln) >= 2 && strcmp (ln(1:2), "%!")) |
| 5589 | 688 body = [body, "\n"]; |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
689 if (length (ln) > 2) |
|
16994
333243133364
Use matrix concatenation for strings, rather than cstrcat(), for clarity and performance.
Rik <rik@octave.org>
parents:
16992
diff
changeset
|
690 body = [body, ln(3:end)]; |
| 5589 | 691 endif |
| 692 endif | |
| 693 endwhile | |
| 694 fclose (fid); | |
| 695 endif | |
| 696 endfunction | |
| 697 | |
|
16977
0d5d3e53255f
test.m: Fix randomly failing %!warning test blocks (bug #35850, bug #38679).
Rik <rik@octave.org>
parents:
16976
diff
changeset
|
698 |
| 5589 | 699 ### example from toeplitz |
|
13914
4b1ce071f504
test.m: Update tests which depend on error messages changed in toeplitz.m
Rik <octave@nomad.inbox5.com>
parents:
13305
diff
changeset
|
700 %!shared msg1,msg2 |
|
4b1ce071f504
test.m: Update tests which depend on error messages changed in toeplitz.m
Rik <octave@nomad.inbox5.com>
parents:
13305
diff
changeset
|
701 %! msg1="C must be a vector"; |
|
4b1ce071f504
test.m: Update tests which depend on error messages changed in toeplitz.m
Rik <octave@nomad.inbox5.com>
parents:
13305
diff
changeset
|
702 %! msg2="C and R must be vectors"; |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
703 %!fail ('toeplitz ([])', msg1); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
704 %!fail ('toeplitz ([1,2;3,4])', msg1); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
705 %!fail ('toeplitz ([1,2],[])', msg2); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
706 %!fail ('toeplitz ([1,2],[1,2;3,4])', msg2); |
|
13914
4b1ce071f504
test.m: Update tests which depend on error messages changed in toeplitz.m
Rik <octave@nomad.inbox5.com>
parents:
13305
diff
changeset
|
707 %!fail ('toeplitz ([1,2;3,4],[1,2])', msg2); |
| 5589 | 708 % !fail ('toeplitz','usage: toeplitz'); # usage doesn't generate an error |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
709 % !fail ('toeplitz (1, 2, 3)', 'usage: toeplitz'); |
| 5589 | 710 %!test assert (toeplitz ([1,2,3], [1,4]), [1,4; 2,1; 3,2]); |
| 711 %!demo toeplitz ([1,2,3,4],[1,5,6]) | |
| 712 | |
| 713 ### example from kron | |
| 5775 | 714 %!#error kron # FIXME suppress these until we can handle output |
| 5589 | 715 %!#error kron(1,2,3) |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
716 %!test assert (isempty (kron ([], rand (3, 4)))) |
| 5589 | 717 %!test assert (isempty (kron (rand (3, 4), []))) |
| 718 %!test assert (isempty (kron ([], []))) | |
| 719 %!shared A, B | |
| 720 %!test | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
721 %! A = [1, 2, 3; 4, 5, 6]; |
| 5589 | 722 %! B = [1, -1; 2, -2]; |
| 723 %!assert (size (kron (zeros (3, 0), A)), [ 3*rows(A), 0 ]) | |
| 724 %!assert (size (kron (zeros (0, 3), A)), [ 0, 3*columns(A) ]) | |
| 725 %!assert (size (kron (A, zeros (3, 0))), [ 3*rows(A), 0 ]) | |
| 726 %!assert (size (kron (A, zeros (0, 3))), [ 0, 3*columns(A) ]) | |
| 727 %!assert (kron (pi, e), pi*e) | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
728 %!assert (kron (pi, A), pi*A) |
| 5589 | 729 %!assert (kron (A, e), e*A) |
| 730 %!assert (kron ([1, 2, 3], A), [ A, 2*A, 3*A ]) | |
| 731 %!assert (kron ([1; 2; 3], A), [ A; 2*A; 3*A ]) | |
| 732 %!assert (kron ([1, 2; 3, 4], A), [ A, 2*A; 3*A, 4*A ]) | |
| 733 %!test | |
| 734 %! res = [1,-1,2,-2,3,-3; 2,-2,4,-4,6,-6; 4,-4,5,-5,6,-6; 8,-8,10,-10,12,-12]; | |
| 735 %! assert (kron (A, B), res) | |
| 736 | |
| 737 ### an extended demo from specgram | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
738 %!#demo |
| 5589 | 739 %! ## Speech spectrogram |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
740 %! [x, Fs] = auload (file_in_loadpath ("sample.wav")); # audio file |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
741 %! step = fix (5*Fs/1000); # one spectral slice every 5 ms |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
742 %! window = fix (40*Fs/1000); # 40 ms data window |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
743 %! fftn = 2^nextpow2 (window); # next highest power of 2 |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
744 %! [S, f, t] = specgram (x, fftn, Fs, window, window-step); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
745 %! S = abs (S (2:fftn*4000/Fs,:)); # magnitude in range 0<f<=4000 Hz. |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
746 %! S = S/max(max(S)); # normalize magnitude so that max is 0 dB. |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
747 %! S = max (S, 10^(-40/10)); # clip below -40 dB. |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
748 %! S = min (S, 10^(-3/10)); # clip above -3 dB. |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
749 %! imagesc (flipud (20*log10 (S)), 1); |
| 5589 | 750 %! % you should now see a spectrogram in the image window |
| 751 | |
| 752 | |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
753 ## now test 'test' itself |
| 5589 | 754 |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
755 ## usage and error testing |
| 5589 | 756 % !fail ('test','usage.*test') # no args, generates usage() |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
757 % !fail ('test (1,2,3,4)','usage.*test') # too many args, generates usage() |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
758 %!fail ('test ("test", "bogus")','unknown flag') # incorrect args |
| 5589 | 759 %!fail ('garbage','garbage.*undefined') # usage on nonexistent function should be |
| 760 | |
| 7940 | 761 %!error test # no args, generates usage() |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
762 %!error test (1,2,3,4) # too many args, generates usage() |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
763 %!error <unknown flag> test ("test", 'bogus'); # incorrect args, generates error() |
| 5589 | 764 %!error <garbage' undefined> garbage # usage on nonexistent function should be |
| 765 | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
766 %!error test ("test", 'bogus'); # test without pattern |
| 5589 | 767 |
| 5681 | 768 %!test |
| 769 %! lastwarn(); # clear last warning just in case | |
| 770 | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
771 %!warning <warning message> warning ('warning message'); |
| 5589 | 772 |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
773 ## test of shared variables |
| 5589 | 774 %!shared a # create a shared variable |
| 775 %!test a=3; # assign to a shared variable | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
776 %!test assert (a,3) # variable should equal 3 |
| 5589 | 777 %!shared b,c # replace shared variables |
|
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
15762
diff
changeset
|
778 %!test assert (!exist ("a", "var")); # a no longer exists |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
779 %!test assert (isempty (b)); # variables start off empty |
| 5589 | 780 %!shared a,b,c # recreate a shared variable |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
781 %!test assert (isempty (a)); # value is empty even if it had a previous value |
| 5589 | 782 %!test a=1; b=2; c=3; # give values to all variables |
| 783 %!test assert ([a,b,c],[1,2,3]); # test all of them together | |
| 784 %!test c=6; # update a value | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
785 %!test assert ([a, b, c],[1, 2, 6]); # show that the update sticks |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
786 %!shared # clear all shared variables |
|
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
15762
diff
changeset
|
787 %!test assert (!exist ("a", "var")) # show that they are cleared |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
788 %!shared a,b,c # support for initializer shorthand |
| 5589 | 789 %! a=1; b=2; c=4; |
| 790 | |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
791 %!function x = __test_a (y) |
| 5589 | 792 %! x = 2*y; |
|
13305
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
793 %!endfunction |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
794 %!assert (__test_a (2),4); # Test a test function |
| 5589 | 795 |
| 796 %!function __test_a (y) | |
| 797 %! x = 2*y; | |
|
13305
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
798 %!endfunction |
| 5589 | 799 %!test |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
800 %! __test_a (2); # Test a test function with no return value |
| 5589 | 801 |
| 802 %!function [x,z] = __test_a (y) | |
| 803 %! x = 2*y; | |
| 804 %! z = 3*y; | |
|
13305
63463570d9fe
Add %!endfunction block keyword to test.m
Rik <octave@nomad.inbox5.com>
parents:
12687
diff
changeset
|
805 %!endfunction |
| 5589 | 806 %!test # Test a test function with multiple returns |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
807 %! [x,z] = __test_a (3); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
808 %! assert (x,6); |
|
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
809 %! assert (z,9); |
| 5589 | 810 |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
811 ## test of assert block |
|
14868
5d3a684236b0
maint: Use Octave coding conventions for cuddling parentheses in scripts directory
Rik <octave@nomad.inbox5.com>
parents:
14846
diff
changeset
|
812 %!assert (isempty ([])) # support for test assert shorthand |
| 5589 | 813 |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
814 ## demo blocks |
| 5589 | 815 %!demo # multiline demo block |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14190
diff
changeset
|
816 %! t = [0:0.01:2*pi]; x = sin (t); |
|
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14190
diff
changeset
|
817 %! plot (t,x); |
| 5589 | 818 %! % you should now see a sine wave in your figure window |
| 819 %!demo a=3 # single line demo blocks work too | |
| 820 | |
|
17336
b81b9d079515
Use '##' for comments which stand alone on a line.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
821 ## this is a comment block. it can contain anything. |
| 5589 | 822 %!## |
| 823 %! it is the "#" as the block type that makes it a comment | |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14190
diff
changeset
|
824 %! and it stays as a comment even through continuation lines |
| 5589 | 825 %! which means that it works well with commenting out whole tests |
| 826 | |
| 827 % !# failure tests. All the following should fail. These tests should | |
| 828 % !# be disabled unless you are developing test() since users don't | |
| 829 % !# like to be presented with expected failures. I use % ! to disable. | |
| 830 % !test error("---------Failure tests. Use test('test','verbose',1)"); | |
| 831 % !test assert([a,b,c],[1,3,6]); # variables have wrong values | |
| 832 % !bogus # unknown block type | |
| 833 % !error toeplitz([1,2,3]); # correct usage | |
| 834 % !test syntax errors) # syntax errors fail properly | |
| 835 % !shared garbage in # variables must be comma separated | |
| 836 % !error syntax++error # error test fails on syntax errors | |
| 837 % !error "succeeds."; # error test fails if code succeeds | |
| 838 % !error <wrong pattern> error("message") # error pattern must match | |
| 839 % !demo with syntax error # syntax errors in demo fail properly | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
840 % !shared a,b,c |
| 5589 | 841 % !demo # shared variables not available in demo |
|
16019
5b2126a8c84f
install tests and functions to run them
John W. Eaton <jwe@octave.org>
parents:
15762
diff
changeset
|
842 % ! assert(exist("a", "var")) |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
843 % !error |
| 5589 | 844 % ! test('/etc/passwd'); |
| 845 % ! test("nonexistent file"); | |
|
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11563
diff
changeset
|
846 % ! ## These don't signal an error, so the test for an error fails. Note |
| 5589 | 847 % ! ## that the call doesn't reference the current fid (it is unavailable), |
| 848 % ! ## so of course the informational message is not printed in the log. | |
|
14237
11949c9795a0
Revamp %!demos in m-files to use Octave coding conventions on spacing, etc.
Rik <octave@nomad.inbox5.com>
parents:
14190
diff
changeset
|
849 |