tests/testthat/test-utils.R

In ropensci/crul: HTTP Client

context("encode")
test_that("encode", {
  aa <- encode(hb())
  bb <- encode(I(hb()))

  expect_is(aa, "character")
  expect_is(bb, "AsIs")

  expect_match(aa, "%3A")
  expect_false(grepl("%3A", bb))
})


context("has_name")
test_that("has_name", {
  expect_false(has_name(5))
  expect_true(all(has_name(mtcars)))
  expect_true(has_name(list(a = 5)))
  expect_false(has_name(list(5)))
})


context("has_namez")
test_that("has_namez", {
  expect_false(has_namez(5))
  expect_true(has_namez(mtcars))
  expect_true(has_namez(list(a = 5)))
  expect_false(has_namez(list(5)))
})


context("make_query")
test_that("make_query", {
  aa <- make_query(list(foo = "hello", bar = "world"))

  expect_is(aa, "character")
  expect_match(aa, "foo")
  expect_match(aa, "&")
  expect_match(aa, "=")
})


context("curl_opts_check")
test_that("curl_opts_check works", {
  expect_null(curl_opts_check(verbose = TRUE))
  expect_null(curl_opts_check(timeout_ms = 0.001))
  expect_error(
    curl_opts_check(httppost = 1), "the following curl options are not allowed")
})

context("num_format")
test_that("num_format works", {
  expect_null(num_format(NULL))
  expect_equal(num_format(c("hello", "goodbye")),
               c("hello", "goodbye"))
  expect_equal(num_format(c(11, 0.00005, 200000)),
               c("11", "0.00005", "200000"))
})