# HG changeset patch
# User Rik <rik@octave.org>
# Date 1381158475 25200
# Node ID a13ff452153828c89a42ca382b115a84093143db
# Parent  8334144458a461c23fdd2cd77f5a8419a6a31d2c
skewness.m: Simplify %!test for division-by-zero.

* scripts/statistics/base/skewness.m: Use "local" option to warning()
rather than unwind_protect block to simplify code.

diff -r 8334144458a4 -r a13ff4521538 scripts/statistics/base/skewness.m
--- a/scripts/statistics/base/skewness.m	Mon Oct 07 15:21:06 2013 +0200
+++ b/scripts/statistics/base/skewness.m	Mon Oct 07 08:07:55 2013 -0700
@@ -148,16 +148,12 @@
 %!assert (skewness (single ([1:5 10])), single (1.0513283), eps ("single"))
 %!assert (skewness (single ([1 2]), 0), single (NaN))
 
-## Verify no "division-by-zero" warnings
 %!test
-%! wstate = warning ("query", "Octave:divide-by-zero");
-%! unwind_protect
-%!   lastwarn ("");  # clear last warning
-%!   skewness (1);
-%!   assert (lastwarn (), "");
-%! unwind_protect_cleanup
-%!   warning (wstate, "Octave:divide-by-zero");
-%! end_unwind_protect
+%! ## Verify no "division-by-zero" warnings
+%! warning ("on", "Octave:divide-by-zero", "local");
+%! lastwarn ("");  # clear last warning
+%! skewness (1);
+%! assert (lastwarn (), "");
 
 ## Test input validation
 %!error skewness ()