Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(humanize)
  > 
  > test_check("humanize")
  ── 1. Error: natural_size decimal works as expected (@test_filesize.R#5)  ──────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(natural_size) at testthat/test_filesize.R:5
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 2. Error: natural_size binary works as expected (@test_filesize.R#13)  ──────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(natural_size, suffix_type = "binary") at testthat/test_filesize.R:13
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 3. Error: natural_size gnu works as expected (@test_filesize.R#21)  ─────────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(natural_size, suffix_type = "gnu") at testthat/test_filesize.R:21
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 4. Error: count_as_ordinal works as expected (@test_number.R#5)  ────────────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(count_as_ordinal) at testthat/test_number.R:5
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 5. Error: number_as_comma works as expected (@test_number.R#15)  ────────────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(number_as_comma) at testthat/test_number.R:15
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 6. Error: count_as_ap works as expected (@test_number.R#26)  ────────────────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(count_as_ap) at testthat/test_number.R:26
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 7. Error: count_as_word works as expected (@test_number.R#40)  ──────────────
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(count_as_word) at testthat/test_number.R:40
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 8. Error: seconds_to_natural_delta no months works as expected (@test_time.R#
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(seconds_to_natural_delta, use_months = FALSE) at testthat/test_time.R:38
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 9. Error: seconds_to_natural_delta with months works as expected (@test_time.
  there is no package called 'purrr'
  1: test_input %>% purrr::map_chr(seconds_to_natural_delta) at testthat/test_time.R:80
  2: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3: eval(quote(`_fseq`(`_lhs`)), env, env)
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: `_fseq`(`_lhs`)
  6: freduce(value, `_function_list`)
  7: withVisible(function_list[[k]](value))
  8: function_list[[k]](value)
  9: purrr::map_chr
  10: getExportedValue(pkg, name)
  11: asNamespace(ns)
  12: getNamespace(ns)
  13: loadNamespace(name)
  14: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  15: withOneRestart(expr, restarts[[1L]])
  16: doWithOneRestart(return(expr), restart)
  
  ── 10. Error: natural_time works as expected (@test_time.R#145)  ───────────────
  there is no package called 'purrr'
  1: with_mock(now = function(x) {
         right_now
     }, test_output <- test_list %>% purrr::map_chr(natural_time), .env = "lubridate") at testthat/test_time.R:145
  2: eval(code[[length(code)]], parent.frame())
  3: eval(code[[length(code)]], parent.frame())
  4: test_list %>% purrr::map_chr(natural_time)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: purrr::map_chr
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: loadNamespace(name)
  17: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  18: withOneRestart(expr, restarts[[1L]])
  19: doWithOneRestart(return(expr), restart)
  
  ── 11. Error: natural_time no months works as expected (@test_time.R#214)  ─────
  there is no package called 'purrr'
  1: with_mock(now = function(x) {
         right_now
     }, test_output <- test_list %>% purrr::map_chr(natural_time, use_months = FALSE), 
         .env = "lubridate") at testthat/test_time.R:214
  2: eval(code[[length(code)]], parent.frame())
  3: eval(code[[length(code)]], parent.frame())
  4: test_list %>% purrr::map_chr(natural_time, use_months = FALSE)
  5: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  6: eval(quote(`_fseq`(`_lhs`)), env, env)
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: `_fseq`(`_lhs`)
  9: freduce(value, `_function_list`)
  10: withVisible(function_list[[k]](value))
  11: function_list[[k]](value)
  12: purrr::map_chr
  13: getExportedValue(pkg, name)
  14: asNamespace(ns)
  15: getNamespace(ns)
  16: loadNamespace(name)
  17: withRestarts(stop(cond), retry_loadNamespace = function() NULL)
  18: withOneRestart(expr, restarts[[1L]])
  19: doWithOneRestart(return(expr), restart)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 12 SKIPPED: 0 FAILED: 11
  1. Error: natural_size decimal works as expected (@test_filesize.R#5) 
  2. Error: natural_size binary works as expected (@test_filesize.R#13) 
  3. Error: natural_size gnu works as expected (@test_filesize.R#21) 
  4. Error: count_as_ordinal works as expected (@test_number.R#5) 
  5. Error: number_as_comma works as expected (@test_number.R#15) 
  6. Error: count_as_ap works as expected (@test_number.R#26) 
  7. Error: count_as_word works as expected (@test_number.R#40) 
  8. Error: seconds_to_natural_delta no months works as expected (@test_time.R#38) 
  9. Error: seconds_to_natural_delta with months works as expected (@test_time.R#80) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted