tests/testthat/test-ConstructTicketJsonBody.R

test_that("ConstructTicketJsonBody works with udf datagrid request", {

  Originalquery <- structure(list(method = "POST", url = "http://localhost:9060/api/udf/",
                 status_code = 200L, headers = structure(list(`Access-Control-Allow-Origin` = "*",
                                                              `X-Request-Id` = "1e09229d-b273-4fba-805f-5ee45a653e4a",
                                                              `Content-Type` = "application/json; charset=utf-8", `Content-Length` = "928",
                                                              ETag = "W/\"3a0-crkdF5s2n+iaDoEpF4jgubpoGO8\"", Date = "Fri, 22 Dec 2023 21:36:36 GMT",
                                                              Connection = "keep-alive"), class = "httr2_headers"),
                 body = as.raw(c(0x7b, 0x22, 0x72, 0x65, 0x73, 0x70, 0x6f,
                                 0x6e, 0x73, 0x65, 0x73, 0x22, 0x3a, 0x5b, 0x7b, 0x22, 0x63,
                                 0x6f, 0x6c, 0x75, 0x6d, 0x6e, 0x48, 0x65, 0x61, 0x64, 0x65,
                                 0x72, 0x73, 0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x31,
                                 0x2c, 0x22, 0x64, 0x61, 0x74, 0x61, 0x22, 0x3a, 0x5b, 0x5b,
                                 0x22, 0x41, 0x41, 0x50, 0x4c, 0x2e, 0x4f, 0x22, 0x2c, 0x22,
                                 0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69,
                                 0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65,
                                 0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d, 0x41, 0x52,
                                 0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47, 0x2e, 0x20,
                                 0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44, 0x29, 0x22,
                                 0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c, 0x74, 0x72,
                                 0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x30, 0x33, 0x37, 0x38,
                                 0x33, 0x33, 0x31, 0x30, 0x30, 0x35, 0x22, 0x5d, 0x2c, 0x5b,
                                 0x22, 0x47, 0x4f, 0x4f, 0x47, 0x2e, 0x4f, 0x22, 0x2c, 0x22,
                                 0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69,
                                 0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65,
                                 0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d, 0x41, 0x52,
                                 0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47, 0x2e, 0x20,
                                 0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44, 0x29, 0x22,
                                 0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c, 0x74, 0x72,
                                 0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x30, 0x32, 0x30, 0x37,
                                 0x39, 0x4b, 0x31, 0x30, 0x37, 0x39, 0x22, 0x5d, 0x2c, 0x5b,
                                 0x22, 0x49, 0x49, 0x49, 0x2e, 0x4c, 0x22, 0x2c, 0x22, 0x47,
                                 0x42, 0x70, 0x22, 0x2c, 0x22, 0x4f, 0x72, 0x64, 0x69, 0x6e,
                                 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61, 0x72, 0x65, 0x73,
                                 0x22, 0x2c, 0x22, 0x4c, 0x4f, 0x4e, 0x44, 0x4f, 0x4e, 0x20,
                                 0x53, 0x54, 0x4f, 0x43, 0x4b, 0x20, 0x45, 0x58, 0x43, 0x48,
                                 0x41, 0x4e, 0x47, 0x45, 0x22, 0x2c, 0x22, 0x58, 0x4c, 0x4f,
                                 0x4e, 0x22, 0x2c, 0x74, 0x72, 0x75, 0x65, 0x2c, 0x22, 0x47,
                                 0x42, 0x30, 0x30, 0x42, 0x31, 0x59, 0x57, 0x34, 0x34, 0x30,
                                 0x39, 0x22, 0x5d, 0x2c, 0x5b, 0x22, 0x4d, 0x4d, 0x4d, 0x22,
                                 0x2c, 0x22, 0x55, 0x53, 0x44, 0x22, 0x2c, 0x22, 0x4f, 0x72,
                                 0x64, 0x69, 0x6e, 0x61, 0x72, 0x79, 0x20, 0x53, 0x68, 0x61,
                                 0x72, 0x65, 0x73, 0x22, 0x2c, 0x22, 0x4e, 0x4f, 0x20, 0x4d,
                                 0x41, 0x52, 0x4b, 0x45, 0x54, 0x20, 0x28, 0x45, 0x2e, 0x47,
                                 0x2e, 0x20, 0x55, 0x4e, 0x4c, 0x49, 0x53, 0x54, 0x45, 0x44,
                                 0x29, 0x22, 0x2c, 0x22, 0x58, 0x58, 0x58, 0x58, 0x22, 0x2c,
                                 0x74, 0x72, 0x75, 0x65, 0x2c, 0x22, 0x55, 0x53, 0x38, 0x38,
                                 0x35, 0x37, 0x39, 0x59, 0x31, 0x30, 0x31, 0x30, 0x22, 0x5d,
                                 0x5d, 0x2c, 0x22, 0x68, 0x65, 0x61, 0x64, 0x65, 0x72, 0x4f,
                                 0x72, 0x69, 0x65, 0x6e, 0x74, 0x61, 0x74, 0x69, 0x6f, 0x6e,
                                 0x22, 0x3a, 0x22, 0x68, 0x6f, 0x72, 0x69, 0x7a, 0x6f, 0x6e,
                                 0x74, 0x61, 0x6c, 0x22, 0x2c, 0x22, 0x68, 0x65, 0x61, 0x64,
                                 0x65, 0x72, 0x73, 0x22, 0x3a, 0x5b, 0x5b, 0x7b, 0x22, 0x64,
                                 0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65,
                                 0x22, 0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74, 0x72, 0x75, 0x6d,
                                 0x65, 0x6e, 0x74, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
                                 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
                                 0x3a, 0x22, 0x43, 0x75, 0x72, 0x72, 0x65, 0x6e, 0x63, 0x79,
                                 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a,
                                 0x22, 0x54, 0x52, 0x2e, 0x50, 0x52, 0x49, 0x43, 0x45, 0x43,
                                 0x4c, 0x4f, 0x53, 0x45, 0x2e, 0x43, 0x75, 0x72, 0x72, 0x65,
                                 0x6e, 0x63, 0x79, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
                                 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
                                 0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74, 0x72, 0x75, 0x6d, 0x65,
                                 0x6e, 0x74, 0x20, 0x54, 0x79, 0x70, 0x65, 0x22, 0x2c, 0x22,
                                 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a, 0x22, 0x54, 0x52,
                                 0x2e, 0x49, 0x4e, 0x53, 0x54, 0x52, 0x55, 0x4d, 0x45, 0x4e,
                                 0x54, 0x54, 0x59, 0x50, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22,
                                 0x64, 0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d,
                                 0x65, 0x22, 0x3a, 0x22, 0x45, 0x78, 0x63, 0x68, 0x61, 0x6e,
                                 0x67, 0x65, 0x20, 0x4e, 0x61, 0x6d, 0x65, 0x22, 0x2c, 0x22,
                                 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22, 0x3a, 0x22, 0x54, 0x52,
                                 0x2e, 0x45, 0x58, 0x43, 0x48, 0x41, 0x4e, 0x47, 0x45, 0x4e,
                                 0x41, 0x4d, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
                                 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
                                 0x3a, 0x22, 0x45, 0x78, 0x63, 0x68, 0x61, 0x6e, 0x67, 0x65,
                                 0x20, 0x4d, 0x61, 0x72, 0x6b, 0x65, 0x74, 0x20, 0x49, 0x64,
                                 0x65, 0x6e, 0x74, 0x69, 0x66, 0x69, 0x65, 0x72, 0x20, 0x43,
                                 0x6f, 0x64, 0x65, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c,
                                 0x64, 0x22, 0x3a, 0x22, 0x54, 0x52, 0x2e, 0x45, 0x58, 0x43,
                                 0x48, 0x41, 0x4e, 0x47, 0x45, 0x4d, 0x41, 0x52, 0x4b, 0x45,
                                 0x54, 0x49, 0x44, 0x43, 0x4f, 0x44, 0x45, 0x22, 0x7d, 0x2c,
                                 0x7b, 0x22, 0x64, 0x69, 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e,
                                 0x61, 0x6d, 0x65, 0x22, 0x3a, 0x22, 0x49, 0x6e, 0x73, 0x74,
                                 0x72, 0x75, 0x6d, 0x65, 0x6e, 0x74, 0x20, 0x49, 0x73, 0x20,
                                 0x41, 0x63, 0x74, 0x69, 0x76, 0x65, 0x20, 0x46, 0x6c, 0x61,
                                 0x67, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22,
                                 0x3a, 0x22, 0x54, 0x52, 0x2e, 0x49, 0x4e, 0x53, 0x54, 0x52,
                                 0x55, 0x4d, 0x45, 0x4e, 0x54, 0x49, 0x53, 0x41, 0x43, 0x54,
                                 0x49, 0x56, 0x45, 0x22, 0x7d, 0x2c, 0x7b, 0x22, 0x64, 0x69,
                                 0x73, 0x70, 0x6c, 0x61, 0x79, 0x4e, 0x61, 0x6d, 0x65, 0x22,
                                 0x3a, 0x22, 0x49, 0x53, 0x49, 0x4e, 0x20, 0x43, 0x6f, 0x64,
                                 0x65, 0x22, 0x2c, 0x22, 0x66, 0x69, 0x65, 0x6c, 0x64, 0x22,
                                 0x3a, 0x22, 0x54, 0x52, 0x2e, 0x49, 0x53, 0x49, 0x4e, 0x43,
                                 0x4f, 0x44, 0x45, 0x22, 0x7d, 0x5d, 0x5d, 0x2c, 0x22, 0x72,
                                 0x6f, 0x77, 0x48, 0x65, 0x61, 0x64, 0x65, 0x72, 0x73, 0x43,
                                 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x31, 0x2c, 0x22, 0x74,
                                 0x6f, 0x74, 0x61, 0x6c, 0x43, 0x6f, 0x6c, 0x75, 0x6d, 0x6e,
                                 0x73, 0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x37, 0x2c,
                                 0x22, 0x74, 0x6f, 0x74, 0x61, 0x6c, 0x52, 0x6f, 0x77, 0x73,
                                 0x43, 0x6f, 0x75, 0x6e, 0x74, 0x22, 0x3a, 0x35, 0x7d, 0x5d,
                                 0x7d)), request = structure(list(url = "http://localhost:9060/api/udf/",
                                                                  method = NULL, headers = structure(list(`x-tr-applicationid` = "nokeyhere",
                                                                                                          `Content-Type` = "application/json"), redact = character(0)),
                                                                  body = list(data = list(Entity = list(E = "DataGrid_StandardAsync",
                                                                                                        W = list(requests = list(list(instruments = c("AAPL.O",
                                                                                                                                                      "GOOG.O", "III.L", "MMM"), fields = list(list(name = "TR.PriceClose.Currency"),
                                                                                                                                                                                               list(name = "TR.InstrumentType"), list(name = "TR.ExchangeName"),
                                                                                                                                                                                               list(name = "TR.ExchangeMarketIdCode"), list(
                                                                                                                                                                                                 name = "TR.InstrumentIsActive"), list(name = "TR.ISINCode"))))))),
                                                                              type = "json", content_type = "application/json",
                                                                              params = list(auto_unbox = TRUE, digits = 22, null = "null")),
                                                                  fields = list(), options = list(useragent = "RefinitivR (https://github.com/GreenGrassBlueOcean/RefinitivR)"),
                                                                  policies = list()), class = "httr2_request"), cache = list()), class = "httr2_response")


  ticket <- 'somehashcode'

  testoutcome <- suppressMessages(ConstructTicketJsonBody(query = Originalquery, ticket = ticket, debug = TRUE))

  CorrectAnswer <- list(Entity = list(E = "DataGrid_StandardAsync", W = list(requests = list(
    list(ticket = "somehashcode")))))

  expect_equal(testoutcome, CorrectAnswer)
})
GreenGrassBlueOcean/RefinitivR documentation built on Dec. 16, 2024, 2:32 a.m.