summaryrefslogtreecommitdiff
path: root/examples/tests.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2007-11-04 20:09:26 +0000
committerAlberto Ruiz <aruiz@um.es>2007-11-04 20:09:26 +0000
commit130093b52ac22a2932c0d9ac0448349428d3eaac (patch)
tree239702d8b94dffd2207cca99ef6bc7b3687fe9bd /examples/tests.hs
parentbd0949d9aac35b4cf12b0f42e41390bb4a9c21b8 (diff)
installation instructions
Diffstat (limited to 'examples/tests.hs')
-rw-r--r--examples/tests.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/examples/tests.hs b/examples/tests.hs
index ad70266..210f8ef 100644
--- a/examples/tests.hs
+++ b/examples/tests.hs
@@ -14,6 +14,7 @@ import Test.HUnit hiding ((~:),test)
14import System.Random(randomRs,mkStdGen) 14import System.Random(randomRs,mkStdGen)
15import System.Info 15import System.Info
16import Data.List(foldl1') 16import Data.List(foldl1')
17import System(getArgs)
17 18
18type RM = Matrix Double 19type RM = Matrix Double
19type CM = Matrix (Complex Double) 20type CM = Matrix (Complex Double)
@@ -452,4 +453,8 @@ bigtests = do
452 , test "eigC" $ eigTest bigmatc 453 , test "eigC" $ eigTest bigmatc
453 ] 454 ]
454 455
455main = tests 456main = do
457 args <- getArgs
458 if "--big" `elem` args
459 then bigtests
460 else tests