Mercurial > hg > octave-lyh
view test/test_args.m @ 6478:4da9255998e3
[project @ 2007-03-29 16:31:16 by jwe]
author | jwe |
---|---|
date | Thu, 29 Mar 2007 16:31:16 +0000 |
parents | 1ad66ea35fe5 |
children | 93c65f2a5668 |
line wrap: on
line source
%% Automatically generated from DejaGNU files %% test/octave.test/args/args-1.m %!function f () %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %!test %! f; %! assert(prog_output_assert("nargin: 0, nargout: 0")); %% test/octave.test/args/args-2.m %!function f (x, y) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %!test %! f (1); %! assert(prog_output_assert("nargin: 1, nargout: 0")); %% test/octave.test/args/args-3.m %!function [x, y] = f () %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %! x = 2; %!test %! x = f (); %! assert(prog_output_assert("nargin: 0, nargout: 1")); %% test/octave.test/args/args-4.m %!function [x, y] = f (a, b) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %! x = a; %!test %! z = f (1); %! assert(prog_output_assert("nargin: 1, nargout: 1")); %% test/octave.test/args/args-5.m %!function [varargout] = f (varargin) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %!test %! f; %! assert(prog_output_assert("nargin: 0, nargout: 0")); %% test/octave.test/args/args-6.m %!function [varargout] = f (x, varargin) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %!test %! f (1); %! assert(prog_output_assert("nargin: 1, nargout: 0")); %% test/octave.test/args/args-7.m %!function [x, varargout] = f (varargin) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %! x = 2; %!test %! x = f (); %! assert(prog_output_assert("nargin: 0, nargout: 1")); %% test/octave.test/args/args-8.m %!function [varargout] = f (varargin) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %! varargout{1} = (varargin{1}); %!test %! z = f (1); %! assert(prog_output_assert("nargin: 1, nargout: 1")); %% test/octave.test/args/args-9.m %!function [x, y, z] = f (a, b, c, d, e) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %!test %! [s, t] = f (1, 2, 3, 4); %! assert(prog_output_assert("nargin: 4, nargout: 2")); %% test/octave.test/args/args-10.m %!function [varargout] = f (varargin) %! printf_assert ("nargin: %d, nargout: %d\n", nargin, nargout); %! varargout{1} = 1; %! varargout{2} = 2; %! varargout{3} = 3; %! varargout{4} = 4; %!test %! [s, t, u, v] = f (1, 2, 3); %! assert(prog_output_assert("nargin: 3, nargout: 4"));