From 0b2ef444e0cf694843141e7b2f833ff1c303c6f8 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 25 Jul 2007 09:57:38 +0000
Subject: added sf_gamma

---
 examples/tests.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'examples')

diff --git a/examples/tests.hs b/examples/tests.hs
index eb8f50d..66afca6 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -298,9 +298,13 @@ exponentialTest = do
     let expected = exp 30.0
     assertBool "exp_e10_e" ( abs (v*10^e - expected) < 4E-2 ) 
 
+gammaTest = do
+    assertBool "gamma" (gamma 5 == 24.0)
+
 tests = TestList
     [ TestCase $ besselTest
     , TestCase $ exponentialTest
+    , TestCase $ gammaTest
     , TestCase $ polySolveTest
     , TestCase $ integrateTest
     ]
-- 
cgit v1.2.3