Mercurial > hg > octave-nkf
diff src/parse.y @ 7562:c827f5673321
move tests to individual source files
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 06 Mar 2008 02:27:55 -0500 |
parents | 8470a6b0b769 |
children | 1f662945c2be |
line wrap: on
line diff
--- a/src/parse.y +++ b/src/parse.y @@ -3983,6 +3983,89 @@ return retval; } +/* + +%% test/octave.test/eval/eval-1.m +%!#test +%! x = 1; +%! assert(eval ("x"),1); + +%% test/octave.test/eval/eval-2.m +%!test +%! x = 1; +%! assert(eval ("x;")); + +%% test/octave.test/eval/eval-3.m +%!test +%! x = 1; +%! assert(eval ("x;"),1); + +%% FIXME +%% Disable this test as adding the ";" is redundant with eval-1 and +%% in any case is a syntax error with assert +%% test/octave.test/eval/eval-4.m +%!#test +%! x = 1; +%! assert(eval ("x");,1); + +%% test/octave.test/eval/eval-5.m +%!test +%! eval ("flipud = 2;"); +%! assert(flipud,2); + +%% test/octave.test/eval/eval-6.m +%!function y = f () +%! eval ("flipud = 2;"); +%! y = flipud; +%!test +%! assert(f,2); + +%% test/octave.test/eval/eval-7.m +%!#test +%! eval ("x = 1"); +%! assert(x,1); + +%% test/octave.test/eval/eval-8.m +%!test +%! eval ("x = 1;") +%! assert(x,1); + +%% test/octave.test/eval/eval-9.m +%!test +%! eval ("x = 1;"); +%! assert(x,1); + +%% test/octave.test/eval/eval-10.m +%!#test +%! eval ("x = 1") +%! assert(x,1); + +%% test/octave.test/eval/eval-11.m +%!test +%! x = 1; +%! y = eval ("x"); +%! assert(y,1); + +%% test/octave.test/eval/eval-12.m +%!test +%! x = 1; +%! y = eval ("x;"); +%! assert(y,1); + +%% test/octave.test/eval/eval-13.m +%!test +%! x = 1; +%! y = eval ("x;"); +%! assert(y,1); + +%% test/octave.test/eval/eval-14.m +%!test +%! x = 1; +%! y = eval ("x"); +%! assert(y,1); + +*/ + DEFUN (assignin, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} assignin (@var{context}, @var{varname}, @var{value})\n\