# HG changeset patch
# User Rik <octave@nomad.inbox5.com>
# Date 1292294771 28800
# Node ID 34c5cd5a17ecda5d093ccc6f34daaeaa653eb91a
# Parent  7bb759d617e273f1bfe7adae01fa0cfe1af07a8e
betapdf.m: Add test for large values of alpha and beta.

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-13  Rik  <octave@nomad.inbox5.com>
+
+	* statistics/distributions/betapdf.m: Add test for large values of
+	alpha and beta.
+
 2010-12-13  Rik  <octave@nomad.inbox5.com>
 
 	* strings/strmatch.m: Add test with null search pattern.
diff --git a/scripts/statistics/distributions/betapdf.m b/scripts/statistics/distributions/betapdf.m
--- a/scripts/statistics/distributions/betapdf.m
+++ b/scripts/statistics/distributions/betapdf.m
@@ -96,3 +96,6 @@
   endif
 
 endfunction
+
+%% Test large values for betapdf
+%!assert (betapdf(0.5, 1000, 1000), 35.678, 1e-3)