|
7775
|
1 ## Copyright (C) 2006, 2007, 2008 John W. Eaton |
|
7016
|
2 ## |
|
|
3 ## This file is part of Octave. |
|
|
4 ## |
|
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
|
6 ## under the terms of the GNU General Public License as published by |
|
|
7 ## the Free Software Foundation; either version 3 of the License, or (at |
|
|
8 ## your option) any later version. |
|
|
9 ## |
|
|
10 ## Octave is distributed in the hope that it will be useful, but |
|
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
13 ## General Public License for more details. |
|
|
14 ## |
|
|
15 ## You should have received a copy of the GNU General Public License |
|
|
16 ## along with Octave; see the file COPYING. If not, see |
|
|
17 ## <http://www.gnu.org/licenses/>. |
|
|
18 |
|
7775
|
19 ######################################## |
|
|
20 ## No inputs or no outputs |
|
5590
|
21 |
|
7775
|
22 ## no input or output arguments |
|
5590
|
23 %!function f () |
|
7775
|
24 %! assert (nargin, 0); |
|
|
25 %! assert (nargout, 0); |
|
5590
|
26 %!test |
|
|
27 %! f; |
|
|
28 |
|
7775
|
29 ## one input with two possible inputs |
|
5590
|
30 %!function f (x, y) |
|
7775
|
31 %! assert (nargin, 1); |
|
|
32 %! assert (nargout, 0); |
|
5590
|
33 %!test |
|
|
34 %! f (1); |
|
|
35 |
|
7775
|
36 ## no inputs, one of multiple outputs |
|
5590
|
37 %!function [x, y] = f () |
|
7775
|
38 %! assert (nargin, 0); |
|
|
39 %! assert (nargout, 1); |
|
5590
|
40 %! x = 2; |
|
|
41 %!test |
|
7775
|
42 %! assert (f (), 2); |
|
5590
|
43 |
|
7775
|
44 ## one of multiple inputs, one of multiple outputs |
|
5590
|
45 %!function [x, y] = f (a, b) |
|
7775
|
46 %! assert (nargin, 1); |
|
|
47 %! assert (nargout, 1); |
|
5590
|
48 %! x = a; |
|
|
49 %!test |
|
7775
|
50 %! assert (f (1), 1); |
|
|
51 |
|
|
52 ######################################## |
|
|
53 ## Varargin, varargout |
|
5590
|
54 |
|
7775
|
55 ## varargin and varargout with no inputs or outputs |
|
5590
|
56 %!function [varargout] = f (varargin) |
|
7775
|
57 %! assert (nargin, 0); |
|
|
58 %! assert (nargout, 0); |
|
5590
|
59 %!test |
|
|
60 %! f; |
|
|
61 |
|
7775
|
62 ## varargin and varargout with one input |
|
5590
|
63 %!function [varargout] = f (x, varargin) |
|
7775
|
64 %! assert (nargin, 1); |
|
|
65 %! assert (nargout, 0); |
|
5590
|
66 %!test |
|
|
67 %! f (1); |
|
|
68 |
|
7775
|
69 ## varargin and varargout with one output |
|
5590
|
70 %!function [x, varargout] = f (varargin) |
|
7775
|
71 %! assert (nargin, 0); |
|
|
72 %! assert (nargout, 1); |
|
5590
|
73 %! x = 2; |
|
|
74 %!test |
|
7775
|
75 %! assert (f (), 2); |
|
5590
|
76 |
|
7775
|
77 ## varargin and varargout with one input and output |
|
5590
|
78 %!function [varargout] = f (varargin) |
|
7775
|
79 %! assert (nargin, 1); |
|
|
80 %! assert (nargout, 1); |
|
|
81 %! varargout{1} = varargin{1}; |
|
5590
|
82 %!test |
|
7775
|
83 %! assert (f (1), 1); |
|
5590
|
84 |
|
7775
|
85 ## multiple inputs, multiple outputs, but not all of either |
|
|
86 ## WARNING: The original test did not assign the outputs, it just |
|
|
87 ## requested them, and I think that is supposed to be an error. It also |
|
|
88 ## still has a non-assigned output argument. |
|
5590
|
89 %!function [x, y, z] = f (a, b, c, d, e) |
|
7775
|
90 %! assert (nargin, 4); |
|
|
91 %! assert (nargout, 2); |
|
|
92 %! x = a; |
|
|
93 %! y = b; |
|
5590
|
94 %!test |
|
|
95 %! [s, t] = f (1, 2, 3, 4); |
|
7775
|
96 %! assert([s t], [1 2]); |
|
5590
|
97 |
|
7775
|
98 ## Fully used varargin and varargout |
|
5590
|
99 %!function [varargout] = f (varargin) |
|
7775
|
100 %! assert (nargin, 3); |
|
|
101 %! assert (nargout, 4); |
|
|
102 %! varargout{1} = varargin{1}; |
|
|
103 %! varargout{2} = varargin{2}; |
|
|
104 %! varargout{3} = varargin{3}; |
|
5590
|
105 %! varargout{4} = 4; |
|
|
106 %!test |
|
|
107 %! [s, t, u, v] = f (1, 2, 3); |
|
7775
|
108 %! assert([s t u v], [1 2 3 4]); |
|
|
109 |
|
|
110 ## Test default arguments |
|
|
111 ## numeric |
|
|
112 %!function f (x = 0) |
|
|
113 %! assert (x, 0) |
|
|
114 %!test |
|
|
115 %! f() |
|
|
116 |
|
|
117 ## numeric vector (spaces) |
|
|
118 %!function f (x = [0 1 2]) |
|
|
119 %! assert (x, [0 1 2]) |
|
|
120 %!test |
|
|
121 %! f() |
|
|
122 |
|
|
123 ## numeric vector (range) |
|
|
124 %!function f (x = 1:3) |
|
|
125 %! assert (x, 1:3) |
|
|
126 %!test |
|
|
127 %! f() |
|
|
128 |
|
|
129 ## numeric vector (commas) |
|
|
130 %!function f (x = [0,1,2]) |
|
|
131 %! assert (x, [0 1 2]) |
|
|
132 %!test |
|
|
133 %! f() |
|
|
134 |
|
|
135 ## numeric vector (commas and spaces) |
|
|
136 %!function f (x = [0, 1, 2]) |
|
|
137 %! assert (x, [0 1 2]) |
|
|
138 %!test |
|
|
139 %! f() |
|
|
140 |
|
|
141 ## numeric matrix |
|
|
142 %!function f (x = [0, 1, 2;3, 4, 5]) |
|
|
143 %! assert (x, [0 1 2;3 4 5]) |
|
|
144 %!test |
|
|
145 %! f() |
|
|
146 |
|
|
147 ## empty cell |
|
|
148 %!function f (x = {}) |
|
|
149 %! assert (x, {}) |
|
|
150 %!test |
|
|
151 %! f() |
|
5590
|
152 |
|
7775
|
153 ## full cell |
|
|
154 %!function f (x = {1}) |
|
|
155 %! assert (x, {1}) |
|
|
156 %!test |
|
|
157 %! f() |
|
|
158 |
|
|
159 ## many cells |
|
|
160 %!function f (x = {1 'a' "b" 2.0 struct("a", 3)}) |
|
|
161 %! assert (x, {1 'a' "b" 2.0 struct("a", 3)}) |
|
|
162 %!test |
|
|
163 %! f() |
|
|
164 |
|
|
165 ## struct |
|
|
166 %!function f (x = struct("a", 3)) |
|
|
167 %! assert (x, struct ("a", 3)) |
|
|
168 %!test |
|
|
169 %! f() |
|
|
170 |
|
|
171 ## char (double quotes) |
|
|
172 %!function f (x = "a") |
|
|
173 %! assert (x, "a") |
|
|
174 %!test |
|
|
175 %! f() |
|
|
176 |
|
|
177 ## char (single quotes) |
|
|
178 %!function f (x = 'a') |
|
|
179 %! assert (x, "a") |
|
|
180 %!test |
|
|
181 %! f() |
|
|
182 |
|
|
183 ## char (string, double quotes) |
|
|
184 %!function f (x = "abc123") |
|
|
185 %! assert (x, "abc123") |
|
|
186 %!test |
|
|
187 %! f() |
|
|
188 |
|
|
189 ## char (string, double quotes, punctuation) |
|
|
190 %!function f (x = "abc123`1234567890-=~!@#$%^&*()_+[]{}|;':\",./<>?\\") |
|
|
191 %! assert (x, "abc123`1234567890-=~!@#$%^&*()_+[]{}|;':\",./<>?\\") |
|
|
192 %!test |
|
|
193 %! f() |
|
|
194 |
|
|
195 ## Function handle (builtin) |
|
|
196 %!function f (x = @sin) |
|
|
197 %! assert (x, @sin) |
|
|
198 %!xtest |
|
|
199 %! f() |
|
|
200 |
|
|
201 ## Function handle (anonymous) |
|
|
202 %!function f (x = @(x) x.^2) |
|
|
203 %! assert (x, @(x) x.^2) |
|
|
204 %!xtest |
|
|
205 %! f() |
