@@ -12,6 +12,7 @@ testlog(msg) = println(msg)
12
12
13
13
function runtests (;virtualhost= " /" , host= " localhost" , port= AMQPClient. AMQP_DEFAULT_PORT, auth_params= AMQPClient. DEFAULT_AUTH_PARAMS)
14
14
verify_spec ()
15
+ test_types ()
15
16
@test default_exchange_name (" direct" ) == " amq.direct"
16
17
@test default_exchange_name () == " "
17
18
@test AMQPClient. method_name (AMQPClient. TAMQPMethodPayload (:Basic , :Ack , (1 , false ))) == " Basic.Ack"
@@ -180,4 +181,25 @@ function verify_spec()
180
181
end
181
182
end
182
183
184
+ function test_types ()
185
+ d = Dict {String,Any} (
186
+ " bool" => 0x1 ,
187
+ " int" => 10 ,
188
+ " uint" => 0x1 ,
189
+ " float" => rand (),
190
+ " shortstr" => convert (AMQPClient. TAMQPShortStr, randstring (10 )),
191
+ " longstr" => convert (AMQPClient. TAMQPLongStr, randstring (1024 )))
192
+ ft = convert (AMQPClient. TAMQPFieldTable, d)
193
+ iob = IOBuffer ()
194
+ show (iob, ft)
195
+ @test length (take! (iob)) > 0
196
+
197
+ fields = [Pair {Symbol,AMQPClient.TAMQPField} (:bit , AMQPClient. TAMQPBit (0x1 )),
198
+ Pair {Symbol,AMQPClient.TAMQPField} (:shortstr , convert (AMQPClient. TAMQPShortStr, randstring (10 ))),
199
+ Pair {Symbol,AMQPClient.TAMQPField} (:longstr , convert (AMQPClient. TAMQPLongStr, randstring (1024 ))),
200
+ Pair {Symbol,AMQPClient.TAMQPField} (:fieldtable , ft)]
201
+ show (iob, fields)
202
+ @test length (take! (iob)) > 0
203
+ end
204
+
183
205
end # module AMQPTestCoverage
0 commit comments