server-test: changed rethrow policies

Since we start using non-trivial attenuation, we can expect IO / multiplexer errors. They should not terminate a simulation.
IntersectMBO · Oct 14, 2021 · a6c841a · a6c841a
1 parent e8f2e56
commit a6c841a
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs b/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs
@@ -432,19 +432,21 @@ debugMuxErrorRethrowPolicy =
     mkRethrowPolicy $
       \_ MuxError { errorType } ->
         case errorType of
-          MuxIOException _ -> ShutdownPeer
-          MuxBearerClosed  -> ShutdownPeer
-          _                -> ShutdownNode
+          MuxIOException _   -> ShutdownPeer
+          MuxBearerClosed    -> ShutdownPeer
+          MuxSDUReadTimeout  -> ShutdownPeer
+          MuxSDUWriteTimeout -> ShutdownPeer
+          _                  -> ShutdownNode
 
 debugMuxRuntimeErrorRethrowPolicy :: RethrowPolicy
 debugMuxRuntimeErrorRethrowPolicy =
     mkRethrowPolicy $
-      \_ (_ :: MuxRuntimeError) -> ShutdownNode
+      \_ (_ :: MuxRuntimeError) -> ShutdownPeer
 
 debugIOErrorRethrowPolicy :: RethrowPolicy
 debugIOErrorRethrowPolicy =
     mkRethrowPolicy $
-      \_ (_ :: IOError) -> ShutdownNode
+      \_ (_ :: IOError) -> ShutdownPeer
 
 
 assertRethrowPolicy :: RethrowPolicy