2016-03-31 16:45:55 +03:00
|
|
|
module Examples where
|
|
|
|
|
|
|
|
import qualified Examples.AutoUpdate as A
|
|
|
|
import qualified Examples.ClassLaws as C
|
|
|
|
import qualified Examples.Logger as L
|
|
|
|
import qualified Examples.Philosophers as P
|
2016-03-31 17:08:37 +03:00
|
|
|
import qualified Examples.SearchParty as S
|
2016-03-31 16:45:55 +03:00
|
|
|
|
2017-09-20 01:17:02 +03:00
|
|
|
import Common
|
2017-05-27 18:43:14 +03:00
|
|
|
|
2016-03-31 16:45:55 +03:00
|
|
|
-- | Run all the example tests.
|
|
|
|
testExamples :: [Test]
|
2017-05-27 18:43:14 +03:00
|
|
|
testExamples =
|
2017-09-20 01:17:02 +03:00
|
|
|
[ testGroup "auto-update" A.tests
|
2017-05-27 18:43:14 +03:00
|
|
|
, testGroup "Class Laws" C.tests
|
|
|
|
, testGroup "Dining Philosophers" P.tests
|
2017-09-20 01:17:02 +03:00
|
|
|
, testGroup "Message Logger" L.tests
|
2017-05-27 18:43:14 +03:00
|
|
|
, testGroup "Search Party" S.tests
|
2016-03-31 16:45:55 +03:00
|
|
|
]
|