tested rabbitmq_parse_uri

PecanProject · Jul 1, 2023 · e9516fa · e9516fa
1 parent c6a4d2d
commit e9516fa
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/base/remote/tests/testthat/test.rabbitmq.R b/base/remote/tests/testthat/test.rabbitmq.R
@@ -0,0 +1,8 @@
+test_that("`rabbitmq_parse_uri()` able to parse the rabbitmq uri to smaller variables", {
+  uri <- "amqp://guest:guest@localhost:15672/myvhost"
+  result <- rabbitmq_parse_uri(uri)
+  expect_equal(result$url, "http://localhost:15672/")
+  expect_equal(result$vhost$path, c("myvhost"))
+  expect_equal(result$username, "guest")
+  expect_equal(result$password, "guest")
+})