# HG changeset patch
# User jwe
# Date 1194369210 0
# Node ID 1ed1a94735a6f12cf61849bff550361bd6f2cb20
# Parent  a627f27c1e8e40d5a6fefd70cf5e4cc051684e79
[project @ 2007-11-06 17:13:30 by jwe]

diff -r a627f27c1e8e -r 1ed1a94735a6 src/data.cc
--- a/src/data.cc	Tue Nov 06 17:02:12 2007 +0000
+++ b/src/data.cc	Tue Nov 06 17:13:30 2007 +0000
@@ -2613,7 +2613,7 @@
 %!assert(norm(x,Inf), 7);
 %!assert(norm(x,-Inf), 1);
 %!assert(norm(x,"inf"), 7);
-%!assert(norm(x,"fro"), 10);
+%!assert(norm(x,"fro"), 10, -eps);
 %!assert(norm(x), 10);
 %!assert(norm([1e200, 1]), 1e200);
 %!assert(norm([3+4i, 3-4i, sqrt(31)]), 9, -4*eps);
@@ -2623,12 +2623,12 @@
 %!assert(norm(m,2), 34, -eps);
 %!assert(norm(m,Inf), 34);
 %!assert(norm(m,"inf"), 34);
-%!shared m2
+%!shared m2, flo, fhi
 %! m2 = [1,2;3,4];
 %! flo = 1e-300;
 %! fhi = 1e+300;
-%!assert (norm (flo*m2, "fro"), sqrt (30)*flo, -eps)
-%!assert (norm (fhi*m2, "fro"), sqrt (30)*fhi, -eps)
+%!assert (norm(flo*m2,"fro"), sqrt(30)*flo, -eps)
+%!assert (norm(fhi*m2,"fro"), sqrt(30)*fhi, -eps)
 */
 
 // Compute various norms of the vector X.