/usr/share/doc/r-cran-curl/tests/testthat/test-upload.R

context("Upload File")

test_that("File upload", {
  file <- system.file('DESCRIPTION', package = 'curl')
  res <- curl_upload(file, httpbin('/anything'), verbose = FALSE)
  data <- jsonlite::parse_json(rawToChar(res$content))$data
  input <- rawToChar(readBin(file, raw(), file.info(file)$size))
  expect_identical(data, input)
})

Generated by dwww version 1.15 on Tue Jun 25 12:52:14 CEST 2024.