1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
import Data.Tagged (Tagged (..), untag)
import Test.Tasty (TestTree, defaultMain, testGroup)
import qualified Data.HashPSQ as HashPSQ
import qualified Data.HashPSQ.Tests
import qualified Data.IntPSQ as IntPSQ
import qualified Data.IntPSQ.Tests
import qualified Data.OrdPSQ as OrdPSQ
import qualified Data.OrdPSQ.Tests
import qualified Data.PSQ.Class.Tests
import Data.PSQ.Class.Util
main :: IO ()
main = defaultMain $ testGroup "psqueues"
[ testGroup "Data.IntPSQ.Tests"
Data.IntPSQ.Tests.tests
, testGroup "Data.HashPSQ.Tests"
Data.HashPSQ.Tests.tests
, testGroup "Data.OrdPSQ.Tests"
Data.OrdPSQ.Tests.tests
, testGroup "Data.PSQ.Class.Tests IntPSQ" $ untag
(Data.PSQ.Class.Tests.tests
:: Tagged IntPSQ.IntPSQ [TestTree])
, testGroup "Data.PSQ.Class.Tests PSQ" $ untag
(Data.PSQ.Class.Tests.tests
:: Tagged (OrdPSQ.OrdPSQ Int) [TestTree])
, testGroup "Data.PSQ.Class.Tests HashPSQ" $ untag
(Data.PSQ.Class.Tests.tests
:: Tagged (HashPSQ.HashPSQ LousyHashedInt) [TestTree])
]
|
