Mercurial > octave-nkf

comparison scripts/statistics/base/skewness.m @ 17605:8f2f8c9b2620

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
skewness.m: Backout cset a13ff4521538 until fix for bug #40199 is found. * scripts/statistics/base/skewness.m: Don't use warning(..., "local") syntax.
author Rik <rik@octave.org>
date Tue, 08 Oct 2013 10:57:28 -0700
parents a53a97faf61a
children 279d4bde41d5
comparison
equal deleted inserted replaced
17604:4975ccb0a916 17605:8f2f8c9b2620
146 146
147 ## Test behaviour on single input 147 ## Test behaviour on single input
148 %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single")) 148 %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single"))
149 %!assert (skewness (single ([1 2]), 0), single (NaN)) 149 %!assert (skewness (single ([1 2]), 0), single (NaN))
150 150
151 ## Verify no "division-by-zero" warnings
151 %!test 152 %!test
152 %! ## Verify no "division-by-zero" warnings 153 %! wstate = warning ("query", "Octave:divide-by-zero");
153 %! warning ("on", "Octave:divide-by-zero", "local"); 154 %! unwind_protect
154 %! lastwarn (""); # clear last warning 155 %! lastwarn (""); # clear last warning
155 %! skewness (1); 156 %! skewness (1);
156 %! assert (lastwarn (), ""); 157 %! assert (lastwarn (), "");
158 %! unwind_protect_cleanup
159 %! warning (wstate, "Octave:divide-by-zero");
160 %! end_unwind_protect
157 161
158 ## Test input validation 162 ## Test input validation
159 %!error skewness () 163 %!error skewness ()
160 %!error skewness (1, 2, 3) 164 %!error skewness (1, 2, 3)
161 %!error <X must be a numeric vector or matrix> skewness (['A'; 'B']) 165 %!error <X must be a numeric vector or matrix> skewness (['A'; 'B'])