Running ‘testthat.R’ [19s/79s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(kantorovich)
  > 
  > test_check("kantorovich")
  
   *** caught segfault ***
  address 552ee090, cause 'memory not mapped'
  
  Traceback:
   1: .Call(bigrational_length, x)
   2: length.bigq(current)
   3: length(current)
   4: attr.all.equal(target, current, tolerance = tolerance, scale = scale,     ...)
   5: all.equal.bigq(target[[i]], current[[i]], check.attributes = check.attributes,     use.names = use.names, ...)
   6: all.equal(target[[i]], current[[i]], check.attributes = check.attributes,     use.names = use.names, ...)
   7: all.equal.list(x, y, ...)
   8: all.equal(x, y, ...)
   9: compare.default(object, expected)
  10: compare(object, expected)
  11: expect_identical(arrange_names(mu, nu), structure(list(mu = structure(as.raw(c(2,     0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0,     1, 0, 0, 0, 1, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,     0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0, 0,     1, 0, 0, 0, 2, 0, 0, 0)), .Names = c("1", "2", NA, NA, NA,     NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,     NA, NA, NA, NA, NA, NA, NA, NA)), nu = structure(as.raw(c(2,     0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0,     1, 0, 0, 0, 3, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,     0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0, 0,     1, 0, 0, 0, 4, 0, 0, 0)), .Names = c("1", "2", NA, NA, NA,     NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,     NA, NA, NA, NA, NA, NA, NA, NA))), .Names = c("mu", "nu")))
  12: eval(expr, envir, enclos)
  13: eval(code, test_env)
  14: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  15: doTryCatch(return(expr), name, parentenv, handler)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  18: doTryCatch(return(expr), name, parentenv, handler)
  19: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  20: tryCatchList(expr, classes, parentenv, handlers)
  21: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  22: test_code(desc, code, env = parent.frame())
  23: test_that("test arrange in bigq class with same lengths", {    mu <- setNames(as.bigq(c(1/2, 1/2)), c("a", "b"))    nu <- setNames(as.bigq(c(1/4, 3/4)), c("a", "b"))    expect_identical(arrange_names(mu, nu), list(mu = mu, nu = nu))    mu <- as.bigq(c(1/2, 1/2))    nu <- as.bigq(c(1/4, 3/4))    expect_identical(arrange_names(mu, nu), structure(list(mu = structure(as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 1, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 2, 0, 0, 0)), .Names = c("1", "2", NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA)), nu = structure(as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 3, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 4, 0, 0, 0)), .Names = c("1", "2", NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA))), .Names = c("mu",         "nu")))    mu <- setNames(mu, 1:2)    expect_identical(arrange_names(mu, nu), structure(list(mu = structure(as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 1, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 2, 0, 0, 0)), .Names = c("1", "2", NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA)), nu = structure(as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 3, 0, 0, 0)), class = "bigq", denominator = as.raw(c(2,         0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 4, 0, 0, 0, 1, 0, 0,         0, 1, 0, 0, 0, 4, 0, 0, 0)), .Names = c("1", "2", NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,         NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA))), .Names = c("mu",         "nu")))    mu <- setNames(mu, c("a", "b"))    expect_error(arrange_names(mu, nu))    nu <- setNames(nu, c("b", "a"))    expect_identical(arrange_names(mu, nu), list(mu = mu, nu = nu))    mu <- setNames(as.bigq(c(1/2, 1/2)), c("a", "b"))    nu <- setNames(as.bigq(c(1/4, 3/4)), c("", "b"))    expect_error(arrange_names(mu, nu))})
  24: eval(expr, envir, enclos)
  25: eval(exprs, env)
  26: source_file(path, new.env(parent = env), chdir = TRUE)
  27: force(code)
  28: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  29: FUN(X[[i]], ...)
  30: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  31: force(code)
  32: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  33: test_files(paths, reporter = reporter, env = env, ...)
  34: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  35: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  36: run_tests(package, test_path, filter, reporter, ...)
  37: test_check("kantorovich")
  An irrecoverable exception occurred. R is aborting now ...