Cleaned up infrastructure for calling tests

diff --git a/testsrc/runtests.hs b/testsrc/runtests.hs
index e915fe686ca3bfbc32c1dd323bcb1f6d87c16ca6..74b38d96033124d6262271201e374170d5ae39d1 100644 (file)
--- 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