# HG changeset patch
# User Tatsuro MATSUOKA  <tmacchant@yahoo.co.jp>
# Date 1218181677 -7200
# Node ID 8d0f0e69164404781bdd1552e150068f7757fd52
# Parent  a0d567862eb80bafbfd2fb153c67571dfeca985f
fix failing test for randp

diff -r a0d567862eb8 -r 8d0f0e691644 src/ChangeLog
--- a/src/ChangeLog	Mon Aug 04 22:32:47 2008 -0400
+++ b/src/ChangeLog	Fri Aug 08 09:47:57 2008 +0200
@@ -1,3 +1,7 @@
+2008-08-08  Tatsuro MATSUOKA  <tmacchant@yahoo.co.jp>
+
+	* A patch fntests for rand.cc for octave for windows (cygwin, mingw ,msvc)
+
 2008-08-01  Francesco Potorti <Potorti@isti.cnr.it>
 
 	* graphics.cc (axes::properties::properties,
diff -r a0d567862eb8 -r 8d0f0e691644 src/DLD-FUNCTIONS/rand.cc
--- a/src/DLD-FUNCTIONS/rand.cc	Mon Aug 04 22:32:47 2008 -0400
+++ b/src/DLD-FUNCTIONS/rand.cc	Fri Aug 08 09:47:57 2008 +0200
@@ -950,7 +950,7 @@
 %!test
 %! % Test fixed state
 %! randp("seed",1);
-%! assert(randp(1e9,1,6),[1000006208 1000012224 999981120 999963520 999963072 999981440])
+%! assert(randp(1e9,1,6),[1000006208 1000012224 999981120 999963520 999963072 999981440]],1e-6))
 %!test
 %! if (__random_statistical_tests__)
 %!   % statistical tests may fail occasionally.