# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1266615091 18000
# Node ID 36317747577a2f862358d660c40490325b24c291
# Parent  de2d43bcb0838a943433ac03d2a9de366ca01f63
qr.cc: increase tolerance for test result

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-02-19  John W. Eaton  <jwe@octave.org>
+
+	* DLD-FUNCTIONS/qr.cc: Increase tolerance for test.
+
 2010-02-19  Jaroslav Hajek  <highegg@gmail.com>
 
 	* ov-lazy-idx.cc (octave_lazy_index::reshape,
diff --git a/src/DLD-FUNCTIONS/qr.cc b/src/DLD-FUNCTIONS/qr.cc
--- a/src/DLD-FUNCTIONS/qr.cc
+++ b/src/DLD-FUNCTIONS/qr.cc
@@ -1331,7 +1331,7 @@
 %!
 %! [Q,R] = qr(AA);
 %! [Q,R] = qrdelete(Q,R,3);
-%! assert(norm(vec(Q'*Q - eye(5)),Inf) < 1e1*eps)
+%! assert(norm(vec(Q'*Q - eye(5)),Inf) < 16*eps)
 %! assert(norm(vec(triu(R)-R),Inf) == 0)
 %! assert(norm(vec(Q*R - [AA(:,1:2) AA(:,4)]),Inf) < norm(AA)*1e1*eps)
 %!