Mercurial > octave-nkf

changeset 7741:72c0489653ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix tests
author John W. Eaton <jwe@octave.org>
date Wed, 30 Apr 2008 14:08:40 -0400
parents 39930366b709
children 95ecf219a582
files src/ChangeLog src/data.cc
diffstat 2 files changed, 26 insertions(+), 21 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Wed Apr 30 03:30:34 2008 -0400
+++ b/src/ChangeLog	Wed Apr 30 14:08:40 2008 -0400
@@ -1,5 +1,8 @@
 2008-04-30  John W. Eaton  <jwe@octave.org>
 
+	* data.cc: Fix tests.  Use "%!assert", not "%! assert" for
+	individual assert tests.
+
 	* ov-fcn-handle.cc: Create handle pointing to flops instead of log2.
 
 2008-04-30  Jaroslav Hajek <highegg@gmail.com>
--- a/src/data.cc	Wed Apr 30 03:30:34 2008 -0400
+++ b/src/data.cc	Wed Apr 30 14:08:40 2008 -0400
@@ -529,11 +529,11 @@
 }
 
 /*
-%! assert (size (atan2 (zeros (0, 2), zeros (0, 2))), [0, 2])
-%! assert (size (atan2 (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
-%! assert (size (atan2 (rand (2, 3, 4), 1), [2, 3, 4])
-%! assert (size (atan2 (1, rand (2, 3, 4)), [2, 3, 4])
-%! assert (size (atan2 (1, 2), [1, 1])
+%!assert (size (atan2 (zeros (0, 2), zeros (0, 2))), [0, 2])
+%!assert (size (atan2 (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
+%!assert (size (atan2 (rand (2, 3, 4), 1)), [2, 3, 4])
+%!assert (size (atan2 (1, rand (2, 3, 4))), [2, 3, 4])
+%!assert (size (atan2 (1, 2)), [1, 1])
 */
 
 DEFUN (hypot, args, ,
@@ -678,12 +678,12 @@
 }
 
 /*
-%! assert (size (hypot (zeros (0, 2), zeros (0, 2))), [0, 2])
-%! assert (size (hypot (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
-%! assert (size (hypot (rand (2, 3, 4), 1), [2, 3, 4])
-%! assert (size (hypot (1, rand (2, 3, 4)), [2, 3, 4])
-%! assert (size (hypot (1, 2), [1, 1])
-%! assert (hypot (1:10,1:10), sqrt(2) * [1:10]);
+%!assert (size (hypot (zeros (0, 2), zeros (0, 2))), [0, 2])
+%!assert (size (hypot (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
+%!assert (size (hypot (rand (2, 3, 4), 1)), [2, 3, 4])
+%!assert (size (hypot (1, rand (2, 3, 4))), [2, 3, 4])
+%!assert (size (hypot (1, 2)), [1, 1])
+%!assert (hypot (1:10, 1:10), sqrt(2) * [1:10], 16*eps)
 */
 
 template<typename T, typename ET>
@@ -747,15 +747,17 @@
 }
 
 /*
-%! assert(log2 ([1/4, 1/2, 1, 2, 4]), [-2, -1, 0, 1, 2]);
-%! assert(log2(Inf), Inf);
-%! assert(isnan(log2(NaN)));
-%! assert(log2(4*i), 2 + log2(1*i));
-%! assert(log2(complex(0,Inf)), Inf + log2(i));
+%!assert(log2 ([1/4, 1/2, 1, 2, 4]), [-2, -1, 0, 1, 2]);
+%!assert(log2(Inf), Inf);
+%!assert(isnan(log2(NaN)));
+%!assert(log2(4*i), 2 + log2(1*i));
+%!assert(log2(complex(0,Inf)), Inf + log2(i));
+
 %!test
 %! [f, e] = log2 ([0,-1; 2,-4; Inf,-Inf]);
 %! assert (f, [0,-0.5; 0.5,-0.5; Inf,-Inf]);
 %! assert (e, [0,1;2,3;0,0])
+
 %!test
 %! [f, e] = log2 (complex (zeros (3, 2), [0,-1; 2,-4; Inf,-Inf]));
 %! assert (f, complex (zeros (3, 2), [0,-0.5; 0.5,-0.5; Inf,-Inf]));
@@ -883,11 +885,11 @@
 }
 
 /*
-%! assert (size (fmod (zeros (0, 2), zeros (0, 2))), [0, 2])
-%! assert (size (fmod (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
-%! assert (size (fmod (rand (2, 3, 4), 1), [2, 3, 4])
-%! assert (size (fmod (1, rand (2, 3, 4)), [2, 3, 4])
-%! assert (size (fmod (1, 2), [1, 1])
+%!assert (size (fmod (zeros (0, 2), zeros (0, 2))), [0, 2])
+%!assert (size (fmod (rand (2, 3, 4), zeros (2, 3, 4))), [2, 3, 4])
+%!assert (size (fmod (rand (2, 3, 4), 1), [2, 3, 4])
+%!assert (size (fmod (1, rand (2, 3, 4)), [2, 3, 4])
+%!assert (size (fmod (1, 2), [1, 1])
 */
 
 #define NATIVE_REDUCTION_1(FCN, TYPE, DIM) \