Running ‘test-all.R’ [43s/54s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library(testthat)
  > test_check("diffrprojects")
  Loading required package: diffrprojects
  Loading required package: stringb
  Loading required package: rtext
  ── FAILURE (test_diff_align.R:9:3): diff_align works on basic level ────────────
  `{ ... }` threw an error.
  Message: cannot xtfrm 'x'
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_diff_align.R:9:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─diffrprojects::diff_align("", "") test_diff_align.R:9:20
    7.   ├─stringb:::tokenizer(text1)
    8.   └─stringb:::text_tokenize_lines.default(text1)
    9.     ├─stringb::text_tokenize(string, "\n")
   10.     └─stringb:::text_tokenize.default(string, "\n")
   11.       └─stringb:::stringb_arrange(token, "from", "to")
   12.         ├─df[eval(parse(text = order_call)), ]
   13.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   14.         ├─base::eval(parse(text = order_call))
   15.         │ └─base::eval(parse(text = order_call))
   16.         └─base::order(df["from"], df["to"])
   17.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   18.             └─base:::FUN(X[[i]], ...)
   19.               ├─base::as.vector(xtfrm(x))
   20.               ├─base::xtfrm(x)
   21.               └─base::xtfrm.default(x)
  
  ── FAILURE (test_diff_align.R:11:3): diff_align works on basic level ───────────
  `{ ... }` threw an error.
  Message: cannot xtfrm 'x'
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_diff_align.R:11:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─diffrprojects::diff_align("", "2") test_diff_align.R:11:20
    7.   ├─stringb:::tokenizer(text1)
    8.   └─stringb:::text_tokenize_lines.default(text1)
    9.     ├─stringb::text_tokenize(string, "\n")
   10.     └─stringb:::text_tokenize.default(string, "\n")
   11.       └─stringb:::stringb_arrange(token, "from", "to")
   12.         ├─df[eval(parse(text = order_call)), ]
   13.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   14.         ├─base::eval(parse(text = order_call))
   15.         │ └─base::eval(parse(text = order_call))
   16.         └─base::order(df["from"], df["to"])
   17.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   18.             └─base:::FUN(X[[i]], ...)
   19.               ├─base::as.vector(xtfrm(x))
   20.               ├─base::xtfrm(x)
   21.               └─base::xtfrm.default(x)
  
  ── FAILURE (test_diff_align.R:12:3): diff_align works on basic level ───────────
  `{ ... }` threw an error.
  Message: cannot xtfrm 'x'
  Class:   simpleError/error/condition
  Backtrace:
       █
    1. ├─testthat::expect_error(...) test_diff_align.R:12:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─diffrprojects::diff_align("1", "") test_diff_align.R:12:20
    7.   ├─stringb:::tokenizer(text2)
    8.   └─stringb:::text_tokenize_lines.default(text2)
    9.     ├─stringb::text_tokenize(string, "\n")
   10.     └─stringb:::text_tokenize.default(string, "\n")
   11.       └─stringb:::stringb_arrange(token, "from", "to")
   12.         ├─df[eval(parse(text = order_call)), ]
   13.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   14.         ├─base::eval(parse(text = order_call))
   15.         │ └─base::eval(parse(text = order_call))
   16.         └─base::order(df["from"], df["to"])
   17.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   18.             └─base:::FUN(X[[i]], ...)
   19.               ├─base::as.vector(xtfrm(x))
   20.               ├─base::xtfrm(x)
   21.               └─base::xtfrm.default(x)
  
  ── ERROR (test_diff_align.R:13:3): diff_align works on basic level ─────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_diff_align.R:13:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects::diff_align("", "") test_diff_align.R:14:4
    5.   ├─stringb:::tokenizer(text1)
    6.   └─stringb:::text_tokenize_lines.default(text1)
    7.     ├─stringb::text_tokenize(string, "\n")
    8.     └─stringb:::text_tokenize.default(string, "\n")
    9.       └─stringb:::stringb_arrange(token, "from", "to")
   10.         ├─df[eval(parse(text = order_call)), ]
   11.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   12.         ├─base::eval(parse(text = order_call))
   13.         │ └─base::eval(parse(text = order_call))
   14.         └─base::order(df["from"], df["to"])
   15.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   16.             └─base:::FUN(X[[i]], ...)
   17.               ├─base::as.vector(xtfrm(x))
   18.               ├─base::xtfrm(x)
   19.               └─base::xtfrm.default(x)
  
  ── ERROR (test_diff_align.R:47:3): diff_align works on level 2 ─────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_diff_align.R:47:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects::diff_align("a\nc\ne", "a\nb\nc", maxDist = Inf) test_diff_align.R:48:4
    5.   ├─stringb:::tokenizer(text1)
    6.   └─stringb:::text_tokenize_lines.default(text1)
    7.     ├─stringb::text_tokenize(string, "\n")
    8.     └─stringb:::text_tokenize.default(string, "\n")
    9.       └─stringb:::stringb_arrange(token, "from", "to")
   10.         ├─df[eval(parse(text = order_call)), ]
   11.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   12.         ├─base::eval(parse(text = order_call))
   13.         │ └─base::eval(parse(text = order_call))
   14.         └─base::order(df["from"], df["to"])
   15.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   16.             └─base:::FUN(X[[i]], ...)
   17.               ├─base::as.vector(xtfrm(x))
   18.               ├─base::xtfrm(x)
   19.               └─base::xtfrm.default(x)
  
  ── ERROR (test_diff_align.R:58:3): diff_align works with ignore option ─────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_diff_align.R:58:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects::diff_align(...) test_diff_align.R:59:4
    5.   ├─stringb:::tokenizer(text1)
    6.   └─stringb:::text_tokenize_lines.default(text1)
    7.     ├─stringb::text_tokenize(string, "\n")
    8.     └─stringb:::text_tokenize.default(string, "\n")
    9.       └─stringb:::stringb_arrange(token, "from", "to")
   10.         ├─df[eval(parse(text = order_call)), ]
   11.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   12.         ├─base::eval(parse(text = order_call))
   13.         │ └─base::eval(parse(text = order_call))
   14.         └─base::order(df["from"], df["to"])
   15.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   16.             └─base:::FUN(X[[i]], ...)
   17.               ├─base::as.vector(xtfrm(x))
   18.               ├─base::xtfrm(x)
   19.               └─base::xtfrm.default(x)
  
  ── ERROR (test_diff_align.R:70:3): diff_align works with clean option ──────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_diff_align.R:70:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects::diff_align(...) test_diff_align.R:71:4
    5.   ├─stringb:::tokenizer(text1)
    6.   └─stringb:::text_tokenize_lines.default(text1)
    7.     ├─stringb::text_tokenize(string, "\n")
    8.     └─stringb:::text_tokenize.default(string, "\n")
    9.       └─stringb:::stringb_arrange(token, "from", "to")
   10.         ├─df[eval(parse(text = order_call)), ]
   11.         ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   12.         ├─base::eval(parse(text = order_call))
   13.         │ └─base::eval(parse(text = order_call))
   14.         └─base::order(df["from"], df["to"])
   15.           └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   16.             └─base:::FUN(X[[i]], ...)
   17.               ├─base::as.vector(xtfrm(x))
   18.               ├─base::xtfrm(x)
   19.               └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_align.r:10:3): diffrproject text_align works ─────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:10:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─dp$text_align() test_dp_align.r:17:4
    5.   └─self$text_align(...)
    6.     └─diffrprojects::diff_align(...)
    7.       ├─stringb:::tokenizer(text1)
    8.       └─stringb:::text_tokenize_lines.default(text1)
    9.         ├─stringb::text_tokenize(string, "\n")
   10.         └─stringb:::text_tokenize.default(string, "\n")
   11.           └─stringb:::stringb_arrange(token, "from", "to")
   12.             ├─df[eval(parse(text = order_call)), ]
   13.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   14.             ├─base::eval(parse(text = order_call))
   15.             │ └─base::eval(parse(text = order_call))
   16.             └─base::order(df["from"], df["to"])
   17.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   18.                 └─base:::FUN(X[[i]], ...)
   19.                   ├─base::as.vector(xtfrm(x))
   20.                   ├─base::xtfrm(x)
   21.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_align.r:77:3): diffrproject alignment_delete works ───────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:77:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─dp$text_align() test_dp_align.r:82:4
    5.   └─self$text_align(...)
    6.     └─diffrprojects::diff_align(...)
    7.       ├─stringb:::tokenizer(text1)
    8.       └─stringb:::text_tokenize_lines.default(text1)
    9.         ├─stringb::text_tokenize(string, "\n")
   10.         └─stringb:::text_tokenize.default(string, "\n")
   11.           └─stringb:::stringb_arrange(token, "from", "to")
   12.             ├─df[eval(parse(text = order_call)), ]
   13.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   14.             ├─base::eval(parse(text = order_call))
   15.             │ └─base::eval(parse(text = order_call))
   16.             └─base::order(df["from"], df["to"])
   17.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   18.                 └─base:::FUN(X[[i]], ...)
   19.                   ├─base::as.vector(xtfrm(x))
   20.                   ├─base::xtfrm(x)
   21.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_align.r:147:3): diffrproject alignment_data_set() ────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:147:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrproject$new()$text_add(list("abcd", "bcdaa", "ccdabbcd"))$text_link()$debug()$text_align(...) test_dp_align.r:148:4
    5.   └─self$text_align(...)
    6.     └─diffrprojects::diff_align(...)
    7.       └─diffrprojects:::tokenizer(text1)
    8.         ├─stringb::text_tokenize(x, "") test_dp_align.r:154:39
    9.         └─stringb:::text_tokenize.default(x, "")
   10.           └─stringb:::stringb_arrange(token, "from", "to")
   11.             ├─df[eval(parse(text = order_call)), ]
   12.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   13.             ├─base::eval(parse(text = order_call))
   14.             │ └─base::eval(parse(text = order_call))
   15.             └─base::order(df["from"], df["to"])
   16.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   17.                 └─base:::FUN(X[[i]], ...)
   18.                   ├─base::as.vector(xtfrm(x))
   19.                   ├─base::xtfrm(x)
   20.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_align.r:221:3): diffrproject alignment_data_code() ───────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_true(...) test_dp_align.r:221:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrproject$new()$text_add(list("abcd", "bcdaa", "ccdabbcd"))$text_link()$debug()$text_align(...) test_dp_align.r:222:4
    5.   └─self$text_align(...)
    6.     └─diffrprojects::diff_align(...)
    7.       └─diffrprojects:::tokenizer(text1)
    8.         ├─stringb::text_tokenize(x, "") test_dp_align.r:228:39
    9.         └─stringb:::text_tokenize.default(x, "")
   10.           └─stringb:::stringb_arrange(token, "from", "to")
   11.             ├─df[eval(parse(text = order_call)), ]
   12.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   13.             ├─base::eval(parse(text = order_call))
   14.             │ └─base::eval(parse(text = order_call))
   15.             └─base::order(df["from"], df["to"])
   16.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   17.                 └─base:::FUN(X[[i]], ...)
   18.                   ├─base::as.vector(xtfrm(x))
   19.                   ├─base::xtfrm(x)
   20.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_export.r:6:3): imported equals exported ──────────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. └─diffrproject$new()$text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", ... test_dp_export.r:6:2
    2.   └─self$text_align(...)
    3.     └─diffrprojects::diff_align(...)
    4.       ├─stringb:::tokenizer(text1)
    5.       └─stringb:::text_tokenize_lines.default(text1)
    6.         ├─stringb::text_tokenize(string, "\n")
    7.         └─stringb:::text_tokenize.default(string, "\n")
    8.           └─stringb:::stringb_arrange(token, "from", "to")
    9.             ├─df[eval(parse(text = order_call)), ]
   10.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   11.             ├─base::eval(parse(text = order_call))
   12.             │ └─base::eval(parse(text = order_call))
   13.             └─base::order(df["from"], df["to"])
   14.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   15.                 └─base:::FUN(X[[i]], ...)
   16.                   ├─base::as.vector(xtfrm(x))
   17.                   ├─base::xtfrm(x)
   18.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_dp_loadsave.r:6:3): loaded equals saved ─────────────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. └─diffrproject$new()$text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", ... test_dp_loadsave.r:6:2
    2.   └─self$text_align(...)
    3.     └─diffrprojects::diff_align(...)
    4.       ├─stringb:::tokenizer(text1)
    5.       └─stringb:::text_tokenize_lines.default(text1)
    6.         ├─stringb::text_tokenize(string, "\n")
    7.         └─stringb:::text_tokenize.default(string, "\n")
    8.           └─stringb:::stringb_arrange(token, "from", "to")
    9.             ├─df[eval(parse(text = order_call)), ]
   10.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   11.             ├─base::eval(parse(text = order_call))
   12.             │ └─base::eval(parse(text = order_call))
   13.             └─base::order(df["from"], df["to"])
   14.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   15.                 └─base:::FUN(X[[i]], ...)
   16.                   ├─base::as.vector(xtfrm(x))
   17.                   ├─base::xtfrm(x)
   18.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_tools.r:48:3): as.data.frame methods work ───────────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. └─dp$text_align() test_tools.r:48:2
    2.   └─self$text_align(...)
    3.     └─diffrprojects::diff_align(...)
    4.       ├─stringb:::tokenizer(text1)
    5.       └─stringb:::text_tokenize_lines.default(text1)
    6.         ├─stringb::text_tokenize(string, "\n")
    7.         └─stringb:::text_tokenize.default(string, "\n")
    8.           └─stringb:::stringb_arrange(token, "from", "to")
    9.             ├─df[eval(parse(text = order_call)), ]
   10.             ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
   11.             ├─base::eval(parse(text = order_call))
   12.             │ └─base::eval(parse(text = order_call))
   13.             └─base::order(df["from"], df["to"])
   14.               └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   15.                 └─base:::FUN(X[[i]], ...)
   16.                   ├─base::as.vector(xtfrm(x))
   17.                   ├─base::xtfrm(x)
   18.                   └─base::xtfrm.default(x)
  
  ── ERROR (test_tools.r:428:3): dp_arrange works ────────────────────────────────
  Error: cannot xtfrm 'x'
  Backtrace:
       █
    1. ├─testthat::expect_identical(...) test_tools.r:428:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─diffrprojects:::dp_arrange(data.frame(i = 10:9), i) test_tools.r:429:4
    5.   ├─df[eval(parse(text = order_call)), ]
    6.   ├─base::`[.data.frame`(df, eval(parse(text = order_call)), )
    7.   ├─base::eval(parse(text = order_call))
    8.   │ └─base::eval(parse(text = order_call))
    9.   └─base::order(df["i"])
   10.     └─base::lapply(z, function(x) if (is.object(x)) as.vector(xtfrm(x)) else x)
   11.       └─base:::FUN(X[[i]], ...)
   12.         ├─base::as.vector(xtfrm(x))
   13.         ├─base::xtfrm(x)
   14.         └─base::xtfrm.default(x)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  FAILURE (test_diff_align.R:9:3): diff_align works on basic level
  FAILURE (test_diff_align.R:11:3): diff_align works on basic level
  FAILURE (test_diff_align.R:12:3): diff_align works on basic level
  ERROR (test_diff_align.R:13:3): diff_align works on basic level
  ERROR (test_diff_align.R:47:3): diff_align works on level 2
  ERROR (test_diff_align.R:58:3): diff_align works with ignore option
  ERROR (test_diff_align.R:70:3): diff_align works with clean option
  ERROR (test_dp_align.r:10:3): diffrproject text_align works
  ERROR (test_dp_align.r:77:3): diffrproject alignment_delete works
  ERROR (test_dp_align.r:147:3): diffrproject alignment_data_set()
  ERROR (test_dp_align.r:221:3): diffrproject alignment_data_code()
  ERROR (test_dp_export.r:6:3): imported equals exported
  ERROR (test_dp_loadsave.r:6:3): loaded equals saved
  ERROR (test_tools.r:48:3): as.data.frame methods work
  ERROR (test_tools.r:428:3): dp_arrange works
  
  [ FAIL 15 | WARN 0 | SKIP 0 | PASS 87 ]
  Error: Test failures
  Execution halted