# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1267048426 18000
# Node ID 7ed1f2e831bafb4364070da82f5cd109f1a8a813
# Parent  a3635bc1ea19c34cf6010b2d9fd14660b3d4c456
qr.cc: increase tolerance for test

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-24  Jaroslav Hajek  <highegg@gmail.com>
 
 	* TEMPLATE-INST/Array-tc.cc: Remove Array2 instantiation.
@@ -106,8 +110,6 @@
 
 2010-02-19  John W. Eaton  <jwe@octave.org>
 
-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>
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
@@ -1318,7 +1318,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)
 %!