From c566cfe2ba0aad4ef054a55b402209980a90d994 Mon Sep 17 00:00:00 2001
From: Gael Guennebaud <g.gael@free.fr>
Date: Wed, 15 Oct 2014 23:37:47 +0200
Subject: Make SVD unit test even more tough

---
 test/svd_common.h | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'test/svd_common.h')

diff --git a/test/svd_common.h b/test/svd_common.h
index 347ea8046..4c172cf9d 100644
--- a/test/svd_common.h
+++ b/test/svd_common.h
@@ -269,12 +269,14 @@ void svd_fill_random(MatrixType &m)
   
   m = U * d.asDiagonal() * VT;
   
-  // cancel some coeffs
+  // (partly) cancel some coeffs
   if(!(dup && unit_uv))
   {
-    Index n  = internal::random<Index>(0,m.size()-1);
+    Matrix<Scalar,Dynamic,1> samples(7);
+    samples << 0, 5.60844e-313, -5.60844e-313, 4.94e-324, -4.94e-324, -1./NumTraits<RealScalar>::highest(), 1./NumTraits<RealScalar>::highest();
+    Index n = internal::random<Index>(0,m.size()-1);
     for(Index i=0; i<n; ++i)
-      m(internal::random<Index>(0,m.rows()-1), internal::random<Index>(0,m.cols()-1)) = Scalar(0);
+      m(internal::random<Index>(0,m.rows()-1), internal::random<Index>(0,m.cols()-1)) = samples(internal::random<Index>(0,6));
   }
 }
 
-- 
cgit v1.2.3