octave-antonio: scripts/testfun/test.m comparison

comparison scripts/testfun/test.m @ 11587:c792872f8942

all script files: untabify and strip trailing whitespace

author	John W. Eaton <jwe@octave.org>
date	Thu, 20 Jan 2011 17:35:29 -0500
parents	3c6e8aaa9555
children	890e89c3dfeb

comparison

equal deleted inserted replaced

-:12df7854fa7c
+:c792872f8942
 ## @deftypefnx {Function File} {@var{success} =} test (@dots{})
 ## @deftypefnx {Function File} {[@var{n}, @var{max}] =} test (@dots{})
 ## @deftypefnx {Function File} {[@var{code}, @var{idx}] =} test ('@var{name}', 'grabdemo')
 ##
 ## Perform tests from the first file in the loadpath matching @var{name}.
 ## @code{test} can be called as a command or as a function.  Called with
 ## a single argument @var{name}, the tests are run interactively and stop
 ## after the first error is encountered.
 ##
 ## With a second argument the tests which are performed and the amount of
 ## output is selected.
 ## @table @asis
 ## @item 'quiet'
 ##  Don't report all the tests as they happen, just the errors.
 ##
 ## @item 'normal'
 ## Report all tests as they happen, but don't do tests which require
 ## user interaction.
 ##
 ## @item 'verbose'
 ## Do tests which require user interaction.
 ## @end table
 ##
 ## The argument @var{fid} can be used to allow batch processing.  Errors
 ## can be written to the already open file defined by @var{fid}, and
 ## hopefully when Octave crashes this file will tell you what was happening
 ## when it did.  You can use @code{stdout} if you want to see the results as
 ## they happen.  You can also give a file name rather than an @var{fid}, in
 ## which case the contents of the file will be replaced with the log from
 ## the current test.
 ##
 ## Called with a single output argument @var{success}, @code{test} returns
 ## true if all of the tests were successful.  Called with two output arguments
 ## @var{n} and @var{max}, the number of successful tests and the total number
 if (nargin < 2 || isempty (__flag))
 __flag = "quiet";
 endif
 if (nargin < 3)
 __fid = [];
 endif
 if (nargin < 1 || nargin > 3
 || (! ischar (__name) && ! isempty (__name)) || ! ischar (__flag))
 print_usage ();
 endif
 endif
 return;
 else
 ## Add a dummy comment block to the end for ease of indexing.
 if (__body (length(__body)) == "\n")
 __body = sprintf ("\n%s#", __body);
 else
 __body = sprintf ("\n%s\n#", __body);
 endif
 endif
 ## Chop it up into blocks for evaluation.
 __lineidx = find (__body == "\n");
 clear __test__;
 endif
 ## Code already processed.
 __code = "";
 ### SHARED
 elseif (strcmp (__type, "shared"))
 __istest = 0;
 __code = "";
 else
 __vars = __code (1:__idx(1)-1);
 __code = __code (__idx(1):length(__code));
 endif
 ## Strip comments off the variables.
 __idx = find (__vars == "%" | __vars == "#");
 if (! isempty (__idx))
 __vars = __vars(1:__idx(1)-1);
 endif
 ## Assign default values to variables.
 try
 __vars = deblank (__vars);
 if (! isempty (__vars))
 eval (cstrcat (strrep (__vars, ",", "=[];"), "=[];"));
 end_try_catch
 ## Clear shared function definitions.
 eval (__clear, "");
 __clear = "";
 ## Initialization code will be evaluated below.
 ### FUNCTION
 elseif (strcmp (__type, "function"))
 __istest = 0;
 persistent __fn = 0;
 __msg = sprintf ("%stest failed: syntax error\n%s",
 __signal_fail, __error_text__);
 end_try_catch
 endif
 __code = "";
 ### ASSERT/FAIL
 elseif (strcmp (__type, "assert") || strcmp (__type, "fail"))
 __istest = 1;
 ## Put the keyword back on the code.
 __code = __block;
 ## The code will be evaluated below as a test block.
 ### ERROR/WARNING
 elseif (strcmp (__type, "error") || strcmp(__type, "warning"))
 __istest = 1;
 __warning = strcmp (__type, "warning");
 catch
 __success = 0;
 __msg = sprintf ("%stest failed: syntax error\n%s",
 __signal_fail, __error_text__);
 end_try_catch
 if (__success)
 __success = 0;
 __warnstate = warning ("query", "quiet");
 warning ("on", "quiet");
 try
 end_try_catch
 clear __test__;
 endif
 ## Code already processed.
 __code = "";
 ### TESTIF
 elseif (strcmp (__type, "testif"))
 [__e, __feat] = regexp (__code, '^\s*(\S+)', 'end', 'tokens');
 if (isempty (findstr (octave_config_info ("DEFS"), __feat{1}{1})))
 else
 __msg = sprintf ("%stest failed\n%s", __signal_fail, __error_text__);
 __success = 0;
 endif
 if (isempty (__error_text__))
 error ("empty error text, probably Ctrl-C --- aborting");
 endif
 end_try_catch
 clear __test__;
 endif
 ## All done.  Remember if we were successful and print any messages.
 if (! isempty (__msg))
 ## Make sure the user knows what caused the error.
 if (! __verbose)
 fprintf (__fid, "%s%s\n", __signal_block, __block);
 fflush (__fid);
 ## Show the variable context.
 if (! strcmp (__type, "error") && ! strcmp (__type, "testif")
 && ! all (__shared == " "))
 fputs (__fid, "shared variables ");
 eval (sprintf ("fdisp(__fid,bundle(%s));", __shared));
 fflush (__fid);
 endif
 endif
 if (__success == 0)
 __all_success = 0;
 endif
 elseif (__grabdemo)
 __ret1 = __demo_code;
 __ret2 = __demo_idx;
 elseif (nargout == 1)
 __ret1 = __all_success;
 else
 __ret1 = __successes;
 __ret2 = __tests;
 __ret3 = __xfail;
 __ret4 = __xskip;
 ## Strip <pattern> from '<pattern> code'.
 ## Also handles 'id=ID code'
 function [pattern, id, rest] = getpattern (str)
 pattern = ".";
 id = [];
 rest = str;
 str = trimleft (str);
 if (! isempty (str) && str(1) == "<")
 close = index (str, ">");
 if (close)
 pattern = str(2:close-1);
 %!test assert (isempty (kron ([], rand(3, 4))))
 %!test assert (isempty (kron (rand (3, 4), [])))
 %!test assert (isempty (kron ([], [])))
 %!shared A, B
 %!test
 %! A = [1, 2, 3; 4, 5, 6];
 %! B = [1, -1; 2, -2];
 %!assert (size (kron (zeros (3, 0), A)), [ 3*rows(A), 0 ])
 %!assert (size (kron (zeros (0, 3), A)), [ 0, 3*columns(A) ])
 %!assert (size (kron (A, zeros (3, 0))), [ 3*rows(A), 0 ])
 %!assert (size (kron (A, zeros (0, 3))), [ 0, 3*columns(A) ])
 %!assert (kron (pi, e), pi*e)
 %!assert (kron (pi, A), pi*A)
 %!assert (kron (A, e), e*A)
 %!assert (kron ([1, 2, 3], A), [ A, 2*A, 3*A ])
 %!assert (kron ([1; 2; 3], A), [ A; 2*A; 3*A ])
 %!assert (kron ([1, 2; 3, 4], A), [ A, 2*A; 3*A, 4*A ])
 %!test
 %! 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];
 %! assert (kron (A, B), res)
 ### an extended demo from specgram
 %!#demo
 %! ## Speech spectrogram
 %! [x, Fs] = auload(file_in_loadpath("sample.wav")); # audio file
 %! step = fix(5*Fs/1000);     # one spectral slice every 5 ms
 %! window = fix(40*Fs/1000);  # 40 ms data window
 %! fftn = 2^nextpow2(window); # next highest power of 2
 %!warning <warning message> warning('warning message');
 %!## test of shared variables
 %!shared a                # create a shared variable
 %!test   a=3;             # assign to a shared variable
 %!test   assert(a,3)      # variable should equal 3
 %!shared b,c              # replace shared variables
 %!test assert (!exist("a"));   # a no longer exists
 %!test assert (isempty(b));    # variables start off empty
 %!shared a,b,c            # recreate a shared variable
 %!test assert (isempty(a));    # value is empty even if it had a previous value
 %!function [x,z] = __test_a (y)
 %! x = 2*y;
 %! z = 3*y;
 %!test                   # Test a test function with multiple returns
 %! [x,z] = __test_a(3);
 %! assert(x,6);
 %! assert(z,9);
 %!## test of assert block
 %!assert (isempty([]))      # support for test assert shorthand
 % !shared garbage in         # variables must be comma separated
 % !error  syntax++error      # error test fails on syntax errors
 % !error  "succeeds.";       # error test fails if code succeeds
 % !error <wrong pattern> error("message")  # error pattern must match
 % !demo   with syntax error  # syntax errors in demo fail properly
 % !shared a,b,c
 % !demo                      # shared variables not available in demo
 % ! assert(exist("a"))
 % !error
 % ! test('/etc/passwd');
 % ! test("nonexistent file");
 % ! ## These don't signal an error, so the test for an error fails. Note
 % ! ## that the call doesn't reference the current fid (it is unavailable),
 % ! ## so of course the informational message is not printed in the log.

Mercurial > octave-antonio

comparison scripts/testfun/test.m @ 11587:c792872f8942