Mercurial > hg > octave-lyh

comparison scripts/testfun/test.m @ 7028:ecd6347f7d1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-15 09:00:02 by dbateman]
author dbateman
date Mon, 15 Oct 2007 09:00:02 +0000
parents a1dbe9d80eee
children aeeb646f6538
comparison
equal deleted inserted replaced
7027:3e2a59c78b9d 7028:ecd6347f7d1c
379 __success = 0; 379 __success = 0;
380 __warnstate = warning ("query", "quiet"); 380 __warnstate = warning ("query", "quiet");
381 warning ("on", "quiet"); 381 warning ("on", "quiet");
382 try 382 try
383 eval (sprintf ("__test__(%s);", __shared)); 383 eval (sprintf ("__test__(%s);", __shared));
384 __err = trimerr (lastwarn, "warning");
385 warning (__warnstate.state, "quiet");
386
387 if (! __warning) 384 if (! __warning)
388 __msg = sprintf ("%sexpected <%s> but got no error\n", 385 __msg = sprintf ("%sexpected <%s> but got no error\n",
389 __signal_fail, __pattern); 386 __signal_fail, __pattern);
390 elseif (isempty (__err)) 387 else
391 __msg = sprintf ("%sexpected <%s> but got no warning\n", 388 __err = trimerr (lastwarn, "warning");
389 warning (__warnstate.state, "quiet");
390 if (isempty (__err))
391 __msg = sprintf ("%sexpected <%s> but got no warning\n",
392 __signal_fail, __pattern); 392 __signal_fail, __pattern);
393 elseif (isempty (regexp (__err, __pattern, "once"))) 393 elseif (isempty (regexp (__err, __pattern, "once")))
394 __msg = sprintf ("%sexpected <%s> but got %s\n", 394 __msg = sprintf ("%sexpected <%s> but got %s\n",
395 __signal_fail, __pattern, __err); 395 __signal_fail, __pattern, __err);
396 else 396 else
397 __success = 1; 397 __success = 1;
398 endif 398 endif
399 endif
399 400
400 catch 401 catch
401 __err = trimerr (lasterr, "error"); 402 __err = trimerr (lasterr, "error");
402 warning (__warnstate.state, "quiet"); 403 warning (__warnstate.state, "quiet");
403 if (__warning) 404 if (__warning)