Skip to content

Commit 3a1fe18

Browse files
committed
Attempt to make rabbitmq_amqp1_0 tests less flaky
(cherry picked from commit 67e5b54)
1 parent b3f57e3 commit 3a1fe18

File tree

1 file changed

+5
-0
lines changed
  • deps/rabbitmq_amqp1_0/test/system_SUITE_data/fsharp-tests

1 file changed

+5
-0
lines changed

deps/rabbitmq_amqp1_0/test/system_SUITE_data/fsharp-tests/Program.fs

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -399,6 +399,7 @@ module Test =
399399
use ac = connect uri
400400
let dest = "/amq/queue/test"
401401
let receiver = ReceiverLink(ac.Session, "test-receiver", dest)
402+
receiver.Receive()
402403
receiver.Close()
403404
failwith "expected exception not received"
404405
with
@@ -413,12 +414,16 @@ module Test =
413414
use ac = connect uri
414415
let dest = "/amq/queue/test"
415416
let receiver = ReceiverLink(ac.Session, "test-receiver", dest)
417+
receiver.Receive()
416418
receiver.Close()
417419
failwith "expected exception not received"
418420
with
419421
| :? Amqp.AmqpException as ex ->
420422
printfn "Exception %A" ex
421423
()
424+
| :? System.ObjectDisposedException as ex ->
425+
printfn "Exception %A" ex
426+
()
422427

423428
let (|AsLower|) (s: string) =
424429
match s with

0 commit comments

Comments
 (0)