Mercurial > octave-nkf

comparison scripts/statistics/base/skewness.m @ 20550:76f67400649e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use '-local' option to warning to simplify BIST tests. * dos.m, unix.m, savepath.m, kurtosis.m, skewness.m: Use '-local' option to warning instead of unwind/protect block.
author Rik <rik@octave.org>
date Fri, 25 Sep 2015 21:00:29 -0700
parents d9341b422488
children
comparison
equal deleted inserted replaced
20549:71e60880105a 20550:76f67400649e
150 %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single")) 150 %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single"))
151 %!assert (skewness (single ([1 2]), 0), single (NaN)) 151 %!assert (skewness (single ([1 2]), 0), single (NaN))
152 152
153 ## Verify no "divide-by-zero" warnings 153 ## Verify no "divide-by-zero" warnings
154 %!test 154 %!test
155 %! wstate = warning ("query", "Octave:divide-by-zero"); 155 %! warning ("on", "Octave:divide-by-zero", "local");
156 %! warning ("on", "Octave:divide-by-zero"); 156 %! lastwarn (""); # clear last warning
157 %! unwind_protect 157 %! skewness (1);
158 %! lastwarn (""); # clear last warning 158 %! assert (lastwarn (), "");
159 %! skewness (1);
160 %! assert (lastwarn (), "");
161 %! unwind_protect_cleanup
162 %! warning (wstate, "Octave:divide-by-zero");
163 %! end_unwind_protect
164 159
165 ## Test input validation 160 ## Test input validation
166 %!error skewness () 161 %!error skewness ()
167 %!error skewness (1, 2, 3) 162 %!error skewness (1, 2, 3)
168 %!error <X must be a numeric vector or matrix> skewness (['A'; 'B']) 163 %!error <X must be a numeric vector or matrix> skewness (['A'; 'B'])
170 %!error <FLAG must be 0 or 1> skewness (1, [1 0]) 165 %!error <FLAG must be 0 or 1> skewness (1, [1 0])
171 %!error <DIM must be an integer> skewness (1, [], ones (2,2)) 166 %!error <DIM must be an integer> skewness (1, [], ones (2,2))
172 %!error <DIM must be an integer> skewness (1, [], 1.5) 167 %!error <DIM must be an integer> skewness (1, [], 1.5)
173 %!error <DIM must be .* a valid dimension> skewness (1, [], 0) 168 %!error <DIM must be .* a valid dimension> skewness (1, [], 0)
174 %!error <DIM must be .* a valid dimension> skewness (1, [], 3) 169 %!error <DIM must be .* a valid dimension> skewness (1, [], 3)
170