Merge pull request #262 from well-typed/edsko/intro-regression-tests

Introduce `Test.Regression.*` hierarchy

Author: edsko

grapesy/grapesy.cabal

@@ -222,11 +222,11 @@ test-suite test-grapesy
       Test.Driver.Dialogue.Generation
       Test.Driver.Dialogue.TestClock
       Test.Prop.Dialogue
+      Test.Regression.Issue102
       Test.Sanity.BrokenDeployments
       Test.Sanity.Compression
       Test.Sanity.Disconnect
       Test.Sanity.EndOfStream
-      Test.Sanity.Exception
       Test.Sanity.Interop
       Test.Sanity.StreamingType.CustomFormat
       Test.Sanity.StreamingType.NonStreaming

grapesy/test-grapesy/Main.hs

@@ -14,11 +14,11 @@ import GHC.Conc.Sync (threadLabel)
 #endif
 
 import Test.Prop.Dialogue                     qualified as Dialogue
+import Test.Regression.Issue102               qualified as Issue102
 import Test.Sanity.BrokenDeployments          qualified as BrokenDeployments
 import Test.Sanity.Compression                qualified as Compression
 import Test.Sanity.Disconnect                 qualified as Disconnect
 import Test.Sanity.EndOfStream                qualified as EndOfStream
-import Test.Sanity.Exception                  qualified as Exception
 import Test.Sanity.Interop                    qualified as Interop
 import Test.Sanity.StreamingType.CustomFormat qualified as StreamingType.CustomFormat
 import Test.Sanity.StreamingType.NonStreaming qualified as StreamingType.NonStreaming
@@ -36,10 +36,12 @@ main = do
               , StreamingType.CustomFormat.tests
               ]
           , Compression.tests
-          , Exception.tests
           , Interop.tests
           , BrokenDeployments.tests
           ]
+      , testGroup "Regression" [
+            Issue102.tests
+          ]
       , testGroup "Prop" [
             Dialogue.tests
           ]

grapesy/test-grapesy/Test/Sanity/Exception.hs renamed to grapesy/test-grapesy/Test/Regression/Issue102.hs

@@ -14,7 +14,7 @@
 --    (server), and
 -- 2. future calls are still possible (client), and more handlers can be started
 --    to deal with future calls (server).
-module Test.Sanity.Exception (tests) where
+module Test.Regression.Issue102 (tests) where
 
 import Control.Concurrent.Async
 import Control.Exception
@@ -38,7 +38,7 @@ import Test.Driver.ClientServer
 import Test.Util.Exception
 
 tests :: TestTree
-tests = testGroup "Test.Sanity.Exception" [
+tests = testGroup "Issue102" [
       testCase "client" test_clientException
     , testCase "server" test_serverException