Index: tol_tests/tol/Bugzilla/bug_001398/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001398/test.tol	(revision e88e327654b8fd76d57e44bc0e6991ee63ddb5d9)
+++ tol_tests/tol/Bugzilla/bug_001398/test.tol	(revision e88e327654b8fd76d57e44bc0e6991ee63ddb5d9)
@@ -0,0 +1,34 @@
+/* -*- mode: C++ -*- */
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a resolved bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary
+Real bugNum_ =  1398;
+Text email_ = "josp.jorge@gmail.com"; 
+Text summary_="Error en gsl_cdf_beta_Pinv con GSL 1.13";
+Text link_ = GetTolBugzillaLink(bugNum_);
+
+//Write here the initial test TOL code if needed
+Real x = gsl_cdf_beta_Pinv(0.9999999868417623,
+                           24.95643274099755,
+                           918.6566331776214);
+Real expected = 0.06581172725382078;
+
+Set partialResults_ = [[ expected, x ]];
+
+//This is a messure of the success of the test 
+Real quality_ = If( IsUnknown(x), 0, 2/( 1 + Exp( Abs ( x - expected ) ) ) );
+
+//Return the results 
+Set resultStr_ =
+  @strTestStatus(summary_, link_, quality_,
+                 "Partial results = "<<partialResults_,
+                 "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                 email_);
+WriteLn(""<<resultStr_);
+resultStr_;
+
+/* */
+