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