iGraphMatch

*

*

*

*

tests

  Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [11s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(iGraphMatch)
  Thanks for using iGraphMatch!
  We'd love to get feedback on what you like, what you don't like,
  and how you are using the package.
  See ?iGraphMatch for contact information.
  > 
  > test_check("iGraphMatch")
  Sparse part
  10 x 10 sparse Matrix of class "dgCMatrix"
                                                                        
   [1,]  .     .    -0.77  .     1.4000 -0.15  .     -0.32 -0.0076  0.55
   [2,] -0.46  .    -1.10  1.30  0.3400  .    -0.160  .     .      -1.20
   [3,] -1.10  .     .     .     0.0069  .     .      .     .       0.56
   [4,] -1.10 -1.10  .     .     .      -0.37  .      .     1.6000  .   
   [5,] -0.28  .     .     .     .       .     .      .    -0.1800  .   
   [6,] -1.40 -0.97 -0.17  .     .      -1.00 -0.035 -0.19 -1.3000  2.50
   [7,]  .     0.85  .     .    -0.6700 -0.17  0.660 -0.72  .       .   
   [8,] -1.40  .    -0.47 -0.99  1.8000  0.70  .     -0.58  .       .   
   [9,] -0.86  .     0.26  .     0.6500  .     .     -1.80  .       2.10
  [10,]  .     .     .     1.60  .      -0.40 -0.500  1.40 -0.5200  .   
  plus left factor
  10 x 3 Matrix of class "dgeMatrix"
              [,1]      [,2]      [,3]
   [1,] 0.11613577 0.3100942 0.9830440
   [2,] 0.30302180 0.7425694 0.6392046
   [3,] 0.47880269 0.6389113 0.6607546
   [4,] 0.34483055 0.9925160 0.5283594
   [5,] 0.60071414 0.1282698 0.3174938
   [6,] 0.07608332 0.8832396 0.7678555
   [7,] 0.95599261 0.8100834 0.5263085
   [8,] 0.02220682 0.8218512 0.7323019
   [9,] 0.84171063 0.8347027 0.3076657
  [10,] 0.63244245 0.7327322 0.4041733
  times right factor transpose
  10 x 3 Matrix of class "dgeMatrix"
             [,1]       [,2]      [,3]
   [1,] 0.2044024 0.47922247 0.5089206
   [2,] 0.9856331 0.85031192 0.4944386
   [3,] 0.5663108 0.42233068 0.7970529
   [4,] 0.2803751 0.03139212 0.5669589
   [5,] 0.1850557 0.25814665 0.1066968
   [6,] 0.7580614 0.33484473 0.8076484
   [7,] 0.5667813 0.13354967 0.5671121
   [8,] 0.9321736 0.49954639 0.2122409
   [9,] 0.6386933 0.80213563 0.7495793
  [10,] 0.7007481 0.33715324 0.3072184
  Sparse part
  10 x 10 sparse Matrix of class "dgCMatrix"
                                                                        
   [1,]  .     .    -0.77  .     1.4000 -0.15  .     -0.32 -0.0076  0.55
   [2,] -0.46  .    -1.10  1.30  0.3400  .    -0.160  .     .      -1.20
   [3,] -1.10  .     .     .     0.0069  .     .      .     .       0.56
   [4,] -1.10 -1.10  .     .     .      -0.37  .      .     1.6000  .   
   [5,] -0.28  .     .     .     .       .     .      .    -0.1800  .   
   [6,] -1.40 -0.97 -0.17  .     .      -1.00 -0.035 -0.19 -1.3000  2.50
   [7,]  .     0.85  .     .    -0.6700 -0.17  0.660 -0.72  .       .   
   [8,] -1.40  .    -0.47 -0.99  1.8000  0.70  .     -0.58  .       .   
   [9,] -0.86  .     0.26  .     0.6500  .     .     -1.80  .       2.10
  [10,]  .     .     .     1.60  .      -0.40 -0.500  1.40 -0.5200  .   
  plus left factor
  10 x 3 Matrix of class "dgeMatrix"
              [,1]      [,2]      [,3]
   [1,] 0.11613577 0.3100942 0.9830440
   [2,] 0.30302180 0.7425694 0.6392046
   [3,] 0.47880269 0.6389113 0.6607546
   [4,] 0.34483055 0.9925160 0.5283594
   [5,] 0.60071414 0.1282698 0.3174938
   [6,] 0.07608332 0.8832396 0.7678555
   [7,] 0.95599261 0.8100834 0.5263085
   [8,] 0.02220682 0.8218512 0.7323019
   [9,] 0.84171063 0.8347027 0.3076657
  [10,] 0.63244245 0.7327322 0.4041733
  times right factor transpose
  10 x 3 Matrix of class "dgeMatrix"
             [,1]       [,2]      [,3]
   [1,] 0.2044024 0.47922247 0.5089206
   [2,] 0.9856331 0.85031192 0.4944386
   [3,] 0.5663108 0.42233068 0.7970529
   [4,] 0.2803751 0.03139212 0.5669589
   [5,] 0.1850557 0.25814665 0.1066968
   [6,] 0.7580614 0.33484473 0.8076484
   [7,] 0.5667813 0.13354967 0.5671121
   [8,] 0.9321736 0.49954639 0.2122409
   [9,] 0.6386933 0.80213563 0.7495793
  [10,] 0.7007481 0.33715324 0.3072184
  splrMatrix
  Dimension:  10 10
  Lower rank matrix is rank:  3
   *** caught segfault ***
  address 0x1, cause 'invalid permissions'
  
  Traceback:
   1: eigen(A[[ch]])
   2: graph_match_Umeyama(A, B, seeds, similarity)
   3: gm(A, B, seeds, startm, method = "Umeyama")
   4: eval(code, test_env)
   5: eval(code, test_env)
   6: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
   7: doTryCatch(return(expr), name, parentenv, handler)
   8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9: tryCatchList(expr, classes, parentenv, handlers)
  10: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  11: doWithOneRestart(return(expr), restart)
  12: withOneRestart(expr, restarts[[1L]])
  13: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  14: test_code(code, parent.frame())
  15: test_that("matching correspondence between graph1 and graph2 for directed graphs",     {        tt <- gm(A, B, seeds, startm, method = "Umeyama")        expect_snapshot_output(print(tt))        expect_snapshot_output(print(round(as.matrix(tt$soft),             4)))    })
  16: eval(code, test_env)
  17: eval(code, test_env)
  18: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  19: doTryCatch(return(expr), name, parentenv, handler)
  20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  21: tryCatchList(expr, classes, parentenv, handlers)
  22: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  23: doWithOneRestart(return(expr), restart)
  24: withOneRestart(expr, restarts[[1L]])
  25: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  26: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  27: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  28: FUN(X[[i]], ...)
  29: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  34: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  35: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, shuffle = shuffle,     error_call = error_call)
  36: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel, shuffle = shuffle)
  37: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  38: test_check("iGraphMatch")
  An irrecoverable exception occurred. R is aborting now ...

*

*

*

*

*

*

*

*

*