allTests :: [(String, TestOptions, [TestOptions -> IO TestResult])]
allTests =
- [ ("PeerMap", fast, testPeerMap)
+ [ ("Utils", fast, testUtils)
+ , ("PeerMap", fast, testPeerMap)
, ("Container", fast, testContainer)
, ("Instance", fast, testInstance)
, ("Node", fast, testNode)
, ("Text", fast, testText)
, ("OpCodes", fast, testOpCodes)
+ , ("Jobs", fast, testJobs)
, ("Loader", fast, testLoader)
, ("Cluster", slow, testCluster)
]