Running ‘testthat.R’ [111s/184s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(lintr)
  > 
  > # suppress printing environment name (noisy)
  > invisible({
  +   loadNamespace("patrick")
  +   loadNamespace("withr")
  + })
  > 
  > test_check("lintr")
  [ FAIL 9 | WARN 0 | SKIP 1 | PASS 5146 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • data.table cannot be loaded (1): 'test-methods.R:155:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-assignment_linter.R:19:3'): assignment_linter blocks disallowed usages ──
  check #2: message "syntax error" did not match "unexpected"
  Backtrace:
      ▆
   1. └─lintr::expect_lint(...) at test-assignment_linter.R:19:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[2L]], dots[[2L]][[2L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-cyclocomp_linter.R:9:3'): returns the correct linting ────────
  check #1: message "syntax error" did not match "unexpected symbol"
  Backtrace:
      ▆
   1. └─lintr::expect_lint(...) at test-cyclocomp_linter.R:9:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-error.R:9:3'): returns the correct linting ───────────────────
  check #1: message "syntax error" did not match "unexpected end of input"
  Backtrace:
      ▆
   1. └─lintr::expect_lint(...) at test-error.R:9:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-error.R:18:3'): returns the correct linting ──────────────────
  check #1: message "syntax error" did not match "unexpected end of input"
  Backtrace:
      ▆
   1. └─lintr::expect_lint(...) at test-error.R:18:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-error.R:19:3'): returns the correct linting ──────────────────
  check #1: message "syntax error" did not match "unexpected '='"
  Backtrace:
      ▆
   1. └─lintr::expect_lint("x += 1", rex::rex("unexpected '='"), linter) at test-error.R:19:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-error.R:20:3'): returns the correct linting ──────────────────
  check #1: message "syntax error" did not match "unexpected '\\}'"
  Backtrace:
      ▆
   1. └─lintr::expect_lint("{x = }", rex::rex("unexpected '}'"), linter) at test-error.R:20:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-error.R:21:3'): returns the correct linting ──────────────────
  check #1: message "syntax error" did not match "unexpected ';'"
  Backtrace:
      ▆
   1. └─lintr::expect_lint("x = ;", rex::rex("unexpected ';'"), linter) at test-error.R:21:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  ── Failure ('test-get_source_expressions.R:97:5'): Multi-byte character truncated by parser is ignored ──
  error$message (`actual`) not identical to "unexpected input" (`expected`).
  
  `actual`:   "syntax error"    
  `expected`: "unexpected input"
  Backtrace:
      ▆
   1. └─lintr (local) with_content_to_parse(...) at test-get_source_expressions.R:96:3
   2.   └─base::eval(substitute(code), envir = content_env) at test-get_source_expressions.R:12:3
   3.     └─base::eval(substitute(code), envir = content_env)
   4.       └─testthat::expect_identical(error$message, "unexpected input") at test-get_source_expressions.R:97:5
  ── Failure ('test-indentation_linter.R:831:3'): it doesn't error on invalid code ──
  check #1: message "syntax error" did not match structure("unexpected '\\)'", class = "regex")
  Backtrace:
      ▆
   1. └─lintr::expect_lint(...) at test-indentation_linter.R:831:3
   2.   └─(function() {...
   3.     └─base::Map(...)
   4.       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.         └─lintr (local) `<fn>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   6.           └─base::lapply(...)
   7.             └─lintr (local) FUN(X[[i]], ...)
  
  [ FAIL 9 | WARN 0 | SKIP 1 | PASS 5146 ]
  Error: Test failures
  Execution halted