1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--
-- Test with threads
--
import qualified TestOrdECMWithThreads as OrdTest
import qualified TestHashECMWithThreads as HashTest
import qualified TestOrdECMWithThreadsInvalidating as OrdTestInvalidating
import qualified TestHashECMWithThreadsInvalidating as HashTestInvalidating
testWithThreads = do
HashTest.testWithThreads
OrdTest.testWithThreads
HashTestInvalidating.testWithThreadsInvalidating
OrdTestInvalidating.testWithThreadsInvalidating
return ()
main = testWithThreads
|
