# HG changeset patch
# User "Polishchuk Vladimir <address@hidden>"
# Date 1376298360 -10800
# Node ID c30390678d84330017332b6c61bf8e07762df551
# Parent  57680d1227ca2c613fc55ff7139295253dc1bfdd
add test of file orth.m it test bag if there is vector with big norm

diff -r 57680d1227ca -r c30390678d84 scripts/linear-algebra/orth.m
--- a/scripts/linear-algebra/orth.m	Sun Aug 11 22:05:42 2013 -0700
+++ b/scripts/linear-algebra/orth.m	Mon Aug 12 12:06:00 2013 +0300
@@ -89,4 +89,11 @@
 %!     assert (V'*V, eye (10), 100*eps);
 %!   endif
 %! endfor
+%!
+%!test
+%!   A = eye (10);
+%!   A(:, 10) *= 1e30;
+%!   V = orth (A);
+%!   [~,n]  = size(V);
+%!   assert (n, 10);