Stages a small test for header support in properties.

atheriel · Jun 10, 2019 · 3889e78 · 3889e78
1 parent 005b8ef
commit 3889e78
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-properties.R b/tests/testthat/test-properties.R
@@ -19,6 +19,12 @@ testthat::test_that("Encoding and decoding properties works correctly", {
     regexp = "'priority' must be an integer"
   )
 
+  # Header support.
+  testthat::expect_warning(
+    amqp_properties("x-expires" = "180000"),
+    regexp = "Additional property arguments are not yet supported"
+  )
+
   valid_props <- list(
     content_type = "text/plain", content_encoding = "UTF-8", delivery_mode = 2,
     priority = 2, correlation_id = "2", reply_to = "1", expiration = "2020",