[Debian-med-packaging] curl/7.60.0-1 appears to break r-cran-curl/3.2-1 autopkgtest in testing

[Andreas Tille]

Hi Jeroen,

when the latest curl is installed r-cran-curl test suite is failing.
Here is a full log of the Debian autopkgtest [1] (scroll down to end!).

I can repsroduce this on my local installation:

R version 3.4.4 (2018-03-15) -- "Someone to Lean On"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(curl)
> 
> test_check("curl")
This is libcurl version 7.60.0 with OpenSSL/1.0.2o 
Using test server: http://hb.opencpu.org 

 *** caught segfault ***
address 0x2040000fce0, cause 'memory not mapped'

Traceback:
 1: .Call(R_curl_fetch_memory, enc2utf8(url), handle, nonblocking)
 2: curl_fetch_memory(httpbin("deflate"), handle = h)
 3: rawToChar(curl_fetch_memory(httpbin("deflate"), handle = h)$content)
 4: jsonlite::fromJSON(rawToChar(curl_fetch_memory(httpbin("deflate"),     handle = h)$content))
 5: eval_bare(get_expr(quo), get_env(quo))
 6: quasi_label(enquo(object), label)
 7: expect_equal(jsonlite::fromJSON(rawToChar(curl_fetch_memory(httpbin("deflate"),     handle = h)$content))$deflate, TRUE)
 8: eval(code, test_env)
 9: eval(code, test_env)
10: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
11: doTryCatch(return(expr), name, parentenv, handler)
12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
13: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
14: doTryCatch(return(expr), name, parentenv, handler)
15: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
16: tryCatchList(expr, classes, parentenv, handlers)
17: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
18: test_code(desc, code, env = parent.frame())
19: test_that("Compression and destroying connection", {    con <- curl(httpbin("deflate"), handle = h)    expect_equal(jsonlite::fromJSON(readLines(con))$deflate,         TRUE)    expect_false(isOpen(con))    close(con)    expect_equal(jsonlite::fromJSON(rawToChar(curl_fetch_memory(httpbin("deflate"),         handle = h)$content))$deflate, TRUE)    con <- curl(httpbin("gzip"), handle = h)    expect_equal(jsonlite::fromJSON(readLines(con))$gzipped,         TRUE)    expect_false(isOpen(con))    close(con)    expect_equal(jsonlite::fromJSON(rawToChar(curl_fetch_memory(httpbin("gzip"),         handle = h)$content))$gzipped, TRUE)})
20: eval(code, test_env)
21: eval(code, test_env)
22: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
23: doTryCatch(return(expr), name, parentenv, handler)
24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
26: doTryCatch(return(expr), name, parentenv, handler)
27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
28: tryCatchList(expr, classes, parentenv, handlers)
29: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
30: test_code(NULL, exprs, env)
31: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
32: force(code)
33: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE,             wrap = wrap)        end_context()    })
34: FUN(X[[i]], ...)
35: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
36: force(code)
37: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE, wrap = wrap))
38: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
39: test_dir(path = test_path, reporter = reporter, env = env, filter = filter,     ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     wrap = wrap)
40: test_package_dir(package = package, test_path = test_path, filter = filter,     reporter = reporter, ..., stop_on_failure = stop_on_failure,     stop_on_warning = stop_on_warning, wrap = wrap)
41: test_check("curl")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault


Please let me know if you need further information.

Kind regards

      Andreas.


[1] https://ci.debian.net/data/autopkgtest/testing/amd64/r/r-cran-curl/331318/log.gz

-- 
http://fam-tille.de