From: John Goerzen <jgoerzen@complete.org>
Date: Mon, 11 Aug 2008 21:26:44 +0000 (-0500)
Subject: Cleaned up infrastructure for calling tests
X-Git-Url: https://code.delx.au/offlineimap/commitdiff_plain/1ef2c287396dbaf05c58cfd10c84b012b5a1c19b?hp=3b5012bdd7866700e87b43523c2ed5a725ab9ed5

Cleaned up infrastructure for calling tests
---

diff --git a/testsrc/runtests.hs b/testsrc/runtests.hs
index e915fe6..74b38d9 100644
--- a/testsrc/runtests.hs
+++ b/testsrc/runtests.hs
@@ -28,11 +28,15 @@ import Data.Word
 import TestInfrastructure
 
 import qualified TestSyncable
+import qualified TestConnection
 
 q :: Testable a => String -> a -> HU.Test
 q = qccheck (defaultConfig {configMaxTest = 250})
 
-allt = TestSyncable.allt
+tl msg t = HU.TestLabel msg $ HU.TestList t
+
+allt = [tl "TestSyncable" TestSyncable.allt,
+        tl "TestConnection" TestConnection.allt]
 
 testh = HU.runTestTT $ HU.TestList allt
 testv = runVerbTestText (HU.putTextToHandle stderr True) $ HU.TestList allt