added sf_gamma

1 files changed, 4 insertions, 0 deletions

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
     ]