mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-12-18 02:51:42 +03:00
18 lines
455 B
Haskell
Executable File
18 lines
455 B
Haskell
Executable File
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
|
|
import qualified Cases.Async as A
|
|
|
|
-- | Run all the test cases.
|
|
testCases :: [Test]
|
|
testCases = map (uncurry testGroup)
|
|
[ ("Single Threaded", S.tests)
|
|
, ("Multi Threaded", M.tests)
|
|
, ("Litmus", L.tests)
|
|
, ("Async", A.tests)
|
|
]
|