2016-03-31 16:45:55 +03:00
|
|
|
module Cases where
|
|
|
|
|
|
|
|
import qualified Cases.SingleThreaded as S
|
|
|
|
import qualified Cases.MultiThreaded as M
|
2017-06-07 16:03:00 +03:00
|
|
|
import qualified Cases.Refinement as R
|
2017-09-20 22:45:47 +03:00
|
|
|
import qualified Cases.Regressions as G
|
2016-03-31 16:45:55 +03:00
|
|
|
import qualified Cases.Litmus as L
|
2017-03-04 01:06:09 +03:00
|
|
|
import qualified Cases.Async as A
|
2017-08-10 22:22:03 +03:00
|
|
|
import qualified Cases.Discard as D
|
2016-03-31 16:45:55 +03:00
|
|
|
|
2017-09-20 01:17:02 +03:00
|
|
|
import Common
|
|
|
|
|
2016-03-31 16:45:55 +03:00
|
|
|
-- | Run all the test cases.
|
|
|
|
testCases :: [Test]
|
2017-09-20 01:17:02 +03:00
|
|
|
testCases =
|
|
|
|
[ testGroup "Single Threaded" S.tests
|
|
|
|
, testGroup "Multi Threaded" M.tests
|
|
|
|
, testGroup "Refinement" R.tests
|
|
|
|
, testGroup "Litmus" L.tests
|
|
|
|
, testGroup "Async" A.tests
|
|
|
|
, testGroup "Discard" D.tests
|
2017-09-20 22:45:47 +03:00
|
|
|
, testGroup "Regressions" G.tests
|
2016-03-31 16:45:55 +03:00
|
|
|
]
|