Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(frite)
  > 
  > test_check("frite")
  ── 1. Error: is.output.same returns logical (@test-is-output-same.R#4)  ────────
  invalid 'pos' argument
  1: expect_type(is.output.same(sum(1:3), prod), "logical") at testthat/test-is-output-same.R:4
  2: quasi_label(enquo(object))
  3: eval_bare(get_expr(quo), get_env(quo))
  4: is.output.same(sum(1:3), prod)
  5: find_call_piped(.call)
  6: exists("chain_parts", env)
  
  ── 2. Error: is.output.same returns false for outputs of different class (@test-
  invalid 'pos' argument
  1: expect_false(is.output.same(sum(1:3), prod)) at testthat/test-is-output-same.R:8
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: is.output.same(sum(1:3), prod)
  5: find_call_piped(.call)
  6: exists("chain_parts", env)
  
  ── 3. Error: find_call_piped return has type 'language' (@test_find_call_piped.R
  invalid 'pos' argument
  1: expect_type(find_call_piped(sum(1:3)), "language") at testthat/test_find_call_piped.R:4
  2: quasi_label(enquo(object))
  3: eval_bare(get_expr(quo), get_env(quo))
  4: find_call_piped(sum(1:3))
  5: exists("chain_parts", env)
  
  ── 4. Error: tictocify functions work when duped args are given (@test_tictocify
  invalid 'type' (character) of argument
  1: expect_output(reduce_timed(1:3, sum, .init = 0)) at testthat/test_tictocify.R:15
  2: quasi_capture(enquo(object), capture_output, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: capture_output_lines(code, print, width = width)
  5: eval_with_output(code, print = print, width = width)
  6: withr::with_output_sink(temp, withVisible(code))
  7: force(code)
  8: withVisible(code)
  9: eval_bare(get_expr(quo), get_env(quo))
  10: reduce_timed(1:3, sum, .init = 0)
  11: do.call(..f, map(.x = names(formals(..f)), .f = as.name))
  12: (function (.x, .f, ..., .init, .dir = c("forward", "backward")) 
     {
         reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
     })(.x, .f, ..., .init, .dir)
  13: reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
  14: fn(out, elt, ...)
  
  ── 5. Error: tictocify produces equal output to original (@test_tictocify.R#20) 
  invalid 'type' (character) of argument
  1: expect_equal(reduce_timed(1:3, sum, .init = 0), purrr::reduce(1:3, sum)) at testthat/test_tictocify.R:20
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: reduce_timed(1:3, sum, .init = 0)
  5: do.call(..f, map(.x = names(formals(..f)), .f = as.name))
  6: (function (.x, .f, ..., .init, .dir = c("forward", "backward")) 
     {
         reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
     })(.x, .f, ..., .init, .dir)
  7: reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
  8: fn(out, elt, ...)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 14 SKIPPED: 0 FAILED: 5
  1. Error: is.output.same returns logical (@test-is-output-same.R#4) 
  2. Error: is.output.same returns false for outputs of different class (@test-is-output-same.R#8) 
  3. Error: find_call_piped return has type 'language' (@test_find_call_piped.R#4) 
  4. Error: tictocify functions work when duped args are given (@test_tictocify.R#15) 
  5. Error: tictocify produces equal output to original (@test_tictocify.R#20) 
  
  Error: testthat unit tests failed
  Execution halted