Mercurial > octave-nkf

changeset 7742:95ecf219a582

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:18:36 -0400
parents 72c0489653ac
children fbe27e477578
files scripts/ChangeLog scripts/elfun/acot.m scripts/elfun/acsc.m scripts/elfun/acsch.m scripts/elfun/asec.m scripts/elfun/asech.m scripts/specfun/pow2.m
diffstat 7 files changed, 11 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/ChangeLog	Wed Apr 30 14:18:36 2008 -0400
@@ -1,3 +1,8 @@
+2008-04-30  John W. Eaton  <jwe@octave.org>
+
+	* elfun/acot.m, elfun/acsc.m, elfun/acsch.m, elfun/asec.m,
+	elfun/asech.m, specfun/pow2.m: Fix tests.
+
 2008-04-30  Jaroslav Hajek <highegg@gmail.com>
 
 	* specfun/log2.m: Delete. 
--- a/scripts/elfun/acot.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/elfun/acot.m	Wed Apr 30 14:18:36 2008 -0400
@@ -39,9 +39,7 @@
 %! rt3 = sqrt (3);
 %! x = [rt3, 1, rt3/3, 0, -rt3/3, -1, -rt3];
 %! v = [pi/6, pi/4, pi/3, pi/2, -pi/3, -pi/4, -pi/6];
-%! assert(all (abs (acot (x) - v) < sqrt (eps))
-%! 
-%! );
+%! assert(all (abs (acot (x) - v) < sqrt (eps)));
 
 %!error acot ();
 
--- a/scripts/elfun/acsc.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/elfun/acsc.m	Wed Apr 30 14:18:36 2008 -0400
@@ -39,8 +39,7 @@
 %! rt3 = sqrt (3);
 %! v = [pi/6, pi/4, pi/3, pi/2, pi/3, pi/4, pi/6];
 %! x = [2, rt2, 2*rt3/3, 1, 2*rt3/3, rt2, 2];
-%! assert(all (abs (acsc (x) - v) < sqrt (eps))
-%! );
+%! assert(all (abs (acsc (x) - v) < sqrt (eps)));
 
 %!error acsc ();
 
--- a/scripts/elfun/acsch.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/elfun/acsch.m	Wed Apr 30 14:18:36 2008 -0400
@@ -37,8 +37,7 @@
 %!test
 %! v = [pi/2*i, -pi/2*i];
 %! x = [-i, i];
-%! assert(all (abs (acsch (x) - v) < sqrt (eps))
-%! );
+%! assert(all (abs (acsch (x) - v) < sqrt (eps)));
 
 %!error acsch ();
 
--- a/scripts/elfun/asec.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/elfun/asec.m	Wed Apr 30 14:18:36 2008 -0400
@@ -39,9 +39,7 @@
 %! rt3 = sqrt (3);
 %! v = [0, pi/6, pi/4, pi/3, 2*pi/3, 3*pi/4, 5*pi/6, pi];
 %! x = [1, 2*rt3/3, rt2, 2, -2, -rt2, -2*rt3/3, -1];
-%! assert(all (abs (asec (x) - v) < sqrt (eps))
-%! 
-%! );
+%! assert(all (abs (asec (x) - v) < sqrt (eps)));
 
 %!error asec ();
 
--- a/scripts/elfun/asech.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/elfun/asech.m	Wed Apr 30 14:18:36 2008 -0400
@@ -37,8 +37,7 @@
 %!test
 %! v = [0, pi*i];
 %! x = [1, -1];
-%! assert(all (abs (asech (x) - v) < sqrt (eps))
-%! );
+%! assert(all (abs (asech (x) - v) < sqrt (eps)));
 
 %!error asech ();
 
--- a/scripts/specfun/pow2.m	Wed Apr 30 14:08:40 2008 -0400
+++ b/scripts/specfun/pow2.m	Wed Apr 30 14:18:36 2008 -0400
@@ -66,8 +66,7 @@
 %! x = [3, 0, -3, 4, 0, -4, 5, 0, -5];
 %! y = [-2, -2, -2, 1, 1, 1, 3, 3, 3];
 %! z = x .* (2 .^ y);
-%! assert(all (abs (pow2 (x,y) - z) < sqrt (eps))
-%! );
+%! assert(all (abs (pow2 (x,y) - z) < sqrt (eps)));
 
 %!error pow2();