Add dotnet test

(cherry picked from commit 0271ceb)

Author: kjnilsson

deps/rabbitmq_amqp1_0/test/system_SUITE.erl

@@ -10,6 +10,7 @@
 -include_lib("common_test/include/ct.hrl").
 -include_lib("rabbit_common/include/rabbit_framing.hrl").
 
+-compile(nowarn_export_all).
 -compile(export_all).
 
 all() ->
@@ -24,6 +25,7 @@ groups() ->
           roundtrip,
           roundtrip_to_amqp_091,
           default_outcome,
+          no_routes_is_released,
           outcomes,
           fragmentation,
           message_annotations,
@@ -153,6 +155,14 @@ default_outcome(Config) ->
         {dotnet, "default_outcome"}
       ]).
 
+no_routes_is_released(Config) ->
+    Ch = rabbit_ct_client_helpers:open_channel(Config, 0),
+    amqp_channel:call(Ch, #'exchange.declare'{exchange = <<"no_routes_is_released">>,
+                                              durable = true}),
+    run(Config, [
+        {dotnet, "no_routes_is_released"}
+      ]).
+
 outcomes(Config) ->
     run(Config, [
         {dotnet, "outcomes"}

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

@@ -71,6 +71,7 @@ module AmqpClient =
 
 [<AutoOpen>]
 module Test =
+
     let assertEqual a b =
         if a <> b then
             failwith (sprintf "Expected: %A\r\nGot: %A" a b)
@@ -131,6 +132,33 @@ module Test =
             receiver.Close()
         assertEqual cond errorName
 
+    let no_routes_is_released uri =
+        // tests that a message sent to an exchange that resolves no routes for the
+        // binding key returns the Released outcome, rather than Accepted
+        use ac = connect uri
+        let address = "/exchange/no_routes_is_released"
+        let sender = SenderLink(ac.Session, "released-sender", address)
+        let trySet (mre: AutoResetEvent) =
+            try mre.Set() |> ignore with _ -> ()
+
+        let mutable outcome = null
+        use mre = new System.Threading.AutoResetEvent(false)
+
+        let msg = new Message("hi"B,
+                              Header = Header(Ttl = 500u),
+                              Properties = new Properties(Subject = "no_routes"))
+        let cb = new OutcomeCallback (fun l m o x -> outcome <- o; trySet mre)
+        sender.Send(msg, cb, null)
+        mre.WaitOne(1000) |> ignore
+
+        match outcome with
+        | :? Released ->
+            ()
+        | _ ->
+            failwith (sprintf "Expected: Released\r\nGot: %A" outcome)
+
+        ()
+
     let roundtrip uri =
         use c = connect uri
         let sender, receiver = senderReceiver c "test" "roundtrip-q"
@@ -523,6 +551,9 @@ let main argv =
     | [AsLower "streams"; uri] ->
         streams uri
         0
+    | [AsLower "no_routes_is_released"; uri] ->
+        no_routes_is_released uri
+        0
     | _ ->
         printfn "test %A not found. usage: <test> <uri>" argv
         1