Mercurial > hg > octave-jordi

comparison scripts/testfun/test.m @ 5803:c86a550a91c0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-05-10 18:15:19 by jwe]
author jwe
date Wed, 10 May 2006 18:15:19 +0000
parents 7e7ed81f5566
children 9c134531c2c4
comparison
equal deleted inserted replaced
5802:6c0e46b5c6e2 5803:c86a550a91c0
404 endif 404 endif
405 405
406 ## evaluate code for test, shared, and assert. 406 ## evaluate code for test, shared, and assert.
407 if (!isempty(__code)) 407 if (!isempty(__code))
408 try 408 try
409 fprintf (stderr, "%s\n", __code);
410 eval(sprintf("function %s__test__(%s)\n%s\nendfunction", ... 409 eval(sprintf("function %s__test__(%s)\n%s\nendfunction", ...
411 __shared_r,__shared, __code)); 410 __shared_r,__shared, __code));
412 eval(sprintf("%s__test__(%s);", __shared_r, __shared)); 411 eval(sprintf("%s__test__(%s);", __shared_r, __shared));
413 catch 412 catch
414 __success = 0; 413 __success = 0;