verifyAbstracTransition: transitions from TerminatedSt

Allow transitions from `TermiantedSt` to `ReservedOutboundSt` or `UnnegotiatedSt Inbound` state.
IntersectMBO · Oct 20, 2021 · 0227860 · 0227860
1 parent 61ceee2
commit 0227860
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/ouroboros-network-framework/test/Test/Ouroboros/Network/ConnectionManager.hs b/ouroboros-network-framework/test/Test/Ouroboros/Network/ConnectionManager.hs
@@ -1721,6 +1721,7 @@ verifyAbstractTransition Transition { fromState, toState } =
       --
 
       -- @Reserve@
+      (TerminatedSt, ReservedOutboundSt) -> True
       (UnknownConnectionSt, ReservedOutboundSt) -> True
       -- @Connected@
       (ReservedOutboundSt, UnnegotiatedSt Outbound) -> True
@@ -1759,6 +1760,7 @@ verifyAbstractTransition Transition { fromState, toState } =
       --
 
       -- @Accepted@
+      (TerminatedSt, UnnegotiatedSt Inbound) -> True
       (UnknownConnectionSt, UnnegotiatedSt Inbound) -> True
       -- @Overwritten@
       (ReservedOutboundSt, UnnegotiatedSt Inbound) -> True

diff --git a/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs b/ouroboros-network-framework/test/Test/Ouroboros/Network/Server2.hs
@@ -1605,7 +1605,7 @@ prop_multinode_Sim serverAcc (ArbDataFlow dataFlow) script =
                          -> AllProperty
                           . (counterexample $!
                               (  "\nUnexpected transition: "
-                              ++ ppTransition tr)
+                              ++ show tr)
                               )
                           . verifyAbstractTransition
                           $ tr