Mercurial > hg > octave-nkf
diff test/test_prefer.m @ 5794:1138ced03f14
[project @ 2006-05-08 20:23:04 by jwe]
author | jwe |
---|---|
date | Mon, 08 May 2006 20:23:07 +0000 |
parents | faafc2d98b8d |
children | 93c65f2a5668 |
line wrap: on
line diff
--- a/test/test_prefer.m +++ b/test/test_prefer.m @@ -98,37 +98,37 @@ %% FIXME How the hell do I test this one in test/assert %% test/octave.test/prefer/prefer-19.m %!#test -%! pid = print_answer_id_name -%! print_answer_id_name = 0; +%! pid = print_answer_id_name (); +%! print_answer_id_name (0); %! a = 1 -%! print_answer_id_name = pid; +%! print_answer_id_name (pid); %% FIXME How the hell do I test this one in test/assert %% test/octave.test/prefer/prefer-20.m %!#test -%! pid = print_answer_id_name -%! print_answer_id_name = 1; +%! pid = print_answer_id_name (); +%! print_answer_id_name (1); %! a = 1 -%! print_answer_id_name = pid; +%! print_answer_id_name (pid); %% test/octave.test/prefer/prefer-21.m %!test -%! ped = print_empty_dimensions; -%! print_empty_dimensions = 0; +%! ped = print_empty_dimensions (); +%! print_empty_dimensions (0); %! a = cell (1, 1); %! b = type -q a; %! assert(!isempty(findstr(b,"[]"))); %! assert(isempty(findstr(b,"[](0x0)"))); -%! print_empty_dimensions = ped; +%! print_empty_dimensions (ped); %% test/octave.test/prefer/prefer-22.m %!test -%! ped = print_empty_dimensions; -%! print_empty_dimensions = 1; +%! ped = print_empty_dimensions (); +%! print_empty_dimensions (1); %! a = cell (1, 1); %! b = type -q a; %! assert(!isempty(findstr(b,"[](0x0)"))); -%! print_empty_dimensions = ped; +%! print_empty_dimensions (ped); %% test/octave.test/prefer/prefer-23.m %!assert(all (size (inv ([])) == [0, 0])); @@ -143,8 +143,8 @@ %% test/octave.test/prefer/prefer-27.m %!test -%! sp = save_precision; -%! save_precision = 1; +%! sp = save_precision (); +%! save_precision (1); %! x = pi; %! nm = tmpnam(); %! save("-text",nm,"x"); @@ -152,12 +152,12 @@ %! load(nm); %! unlink(nm); %! assert(x,3); -%! save_precision = sp; +%! save_precision (sp); %% test/octave.test/prefer/prefer-28.m %!test -%! sp = save_precision; -%! save_precision = 5; +%! sp = save_precision (); +%! save_precision (5); %! x = pi; %! nm = tmpnam(); %! save("-text",nm,"x"); @@ -165,29 +165,29 @@ %! load(nm); %! unlink(nm); %! assert(x,3.1416); -%! save_precision = sp; +%! save_precision (sp); %% FIXME Same problem as above!!! %% test/octave.test/prefer/prefer-29.m %!function f () %! 1 %!#test -%! sf = silent_functions; -%! silent_functions = 0; +%! sf = silent_functions (); +%! silent_functions (0); %! f %! assert(??); -%! silent_functions = sf; +%! silent_functions (sf); %% FIXME Same problem as above!!! %% test/octave.test/prefer/prefer-30.m %!function f () %! 1 %!#test -%! sf = silent_functions; -%! silent_functions = 1; +%! sf = silent_functions (); +%! silent_functions (1); %! f %! assert(??); -%! silent_functions = sf; +%! silent_functions (sf); %% test/octave.test/prefer/prefer-32.m %!test