Layout
[darcs-mirrors/vector.git] / old-testsuite / Main.hs
1 module Main where
2
3 import Testsuite.Stream as Stream
4 import Testsuite.Vector as Vector
5 import Testsuite.Utils.Test
6
7 main =
8 do
9 (_, s) <- execTestM tests
10 mapM_ putStrLn (summarise s)
11 where
12 tests = mapM_ runTest [Stream.tests, Vector.tests]
13