1context("Upload File")
2
3test_that("File upload", {
4  file <- system.file('DESCRIPTION', package = 'curl')
5  res <- curl_upload(file, httpbin('/anything'), verbose = FALSE)
6  data <- jsonlite::parse_json(rawToChar(res$content))$data
7  input <- rawToChar(readBin(file, raw(), file.info(file)$size))
8  expect_identical(data, input)
9})
10