mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-12-24 14:03:16 +03:00
20 lines
568 B
Haskell
Executable File
20 lines
568 B
Haskell
Executable File
module Examples where
|
|
|
|
import Test.Framework (Test, testGroup)
|
|
|
|
import qualified Examples.AutoUpdate as A
|
|
import qualified Examples.ClassLaws as C
|
|
import qualified Examples.Logger as L
|
|
import qualified Examples.Philosophers as P
|
|
import qualified Examples.SearchParty as S
|
|
|
|
-- | Run all the example tests.
|
|
testExamples :: [Test]
|
|
testExamples = map (uncurry testGroup)
|
|
[ ("auto-update", A.tests)
|
|
, ("Class Laws", C.tests)
|
|
, ("Dining Philosophers", P.tests)
|
|
, ("Message Logger", L.tests)
|
|
, ("Search Party", S.tests)
|
|
]
|