sdk/R/tests/testthat/test-HttpRequest.R

   1 context("Http Parser")
   2
   3
   4 test_that(paste("createQuery generates and encodes query portion of http",
   5                 "request based on filters, limit and offset parameters"), {
   6
   7     http <- HttpRequest$new()
   8     filters <- list(list("color", "=", "red"))
   9     limit <- 20
  10     offset <- 50
  11     expect_that(http$createQuery(filters, limit, offset),
  12                 equals(paste0("/?filters=%5B%5B%22color%22%2C%22%3D%22%2C%22red",
  13                               "%22%5D%5D&limit=20&offset=50")))
  14 })
  15
  16 test_that(paste("createQuery generates and empty string",
  17                 "when filters, limit and offset parameters are set to NULL"), {
  18
  19     http <- HttpRequest$new()
  20     expect_that(http$createQuery(NULL, NULL, NULL), equals(""))
  21 })