@@ -241,7 +241,7 @@ verify (transport, transportInternals) script = do
241241 mEv <- tryPopR allEvents
242242 case mEv of
243243 Just ev -> go (ev : acc)
244− Nothing -> return acc
244+ Nothing -> return (reverse acc)
245245
246246 st <- execStateT (runScript script) initialRunState
247247 actualEvents <- collectEvents st
@@ -532,6 +532,18 @@ script_Bug1 = [
532532 , Connect 1 0
533533 ]
534534
535+-- | Test ordering of sends
536+script_MultipleSends :: Script
537+script_MultipleSends = [
538+ NewEndPoint
539+ , Connect 0 0
540+ , Send 0 ["A"]
541+ , Send 0 ["B"]
542+ , Send 0 ["C"]
543+ , Send 0 ["D"]
544+ , Send 0 ["E"]
545+ ]
546+
535547-- | Simulate broken network connection during send
536548script_BreakSend :: Script
537549script_BreakSend = [
@@ -592,7 +604,8 @@ tests transport = [
592604 testOne "Bug1" transport script_Bug1
593605 ]
594606 , testGroup "Specific scripts" [
595− testOne "BreakSend" transport script_BreakSend
607+ testOne "BreakMultipleSends" transport script_MultipleSends
608+ , testOne "BreakSend" transport script_BreakSend
596609 , testOne "BreakConnect1" transport script_BreakConnect1
597610 , testOne "BreakConnect2" transport script_BreakConnect2
598611 , testOne "BreakSendReconnect" transport script_BreakSendReconnect