mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-12-18 11:01:50 +03:00
16 lines
379 B
Haskell
16 lines
379 B
Haskell
|
module Cases where
|
||
|
|
|
||
|
|
import Test.Framework (Test, testGroup)
|
||
|
|
|
||
|
|
import qualified Cases.SingleThreaded as S
|
||
|
|
import qualified Cases.MultiThreaded as M
|
||
|
|
import qualified Cases.Litmus as L
|
||
|
|
|
||
|
|
-- | Run all the test cases.
|
||
|
|
testCases :: [Test]
|
||
|
|
testCases = map (uncurry testGroup)
|
||
|
|
[ ("Single Threaded", S.tests)
|
||
|
|
, ("Multi Threaded", M.tests)
|
||
|
|
, ("Litmus", L.tests)
|
||
|
|
]
|