Running 'testthat.R' [60s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > 
  > all.pkgs <- c("testthat", "dplyr", "dtplyr", "data.table", "magrittr", "survey", "zoo")
  > 
  > 
  > if (all(vapply(all.pkgs, requireNamespace, logical(1L), quietly = TRUE))) {
  +   
  +   library(testthat)
  +   library(grattan)
  +   library(hutils)
  +   library(data.table)
  +   library(magrittr)
  +   
  +   if (identical(Sys.getenv("CIRCLECI"), "true")) {
  +     test_check("grattan",
  +                reporter = JunitReporter$new(file = "junit_result.xml"))
  +   } else {
  +     test_check("grattan")
  +   }
  + }
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  <XMLInputError: XML content does not seem to be XML: ''>
  -- 1. Error: cpi returns reasonable forecasts (@test_cpi.R#203)  ---------------
  non-character object(s)
  1: expect_gt(cpi_inflator(from_nominal_price = 1, from_fy = "2016-17", to_fy = "2018-19", 
         adjustment = "none", useABSConnection = FALSE, allow.projection = TRUE), cpi_inflator(from_nominal_price = 1, 
         from_fy = "2016-17", to_fy = "2017-18", adjustment = "none", useABSConnection = TRUE, 
         allow.projection = FALSE)) at testthat/test_cpi.R:203
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: cpi_inflator(from_nominal_price = 1, from_fy = "2016-17", to_fy = "2017-18", adjustment = "none", 
         useABSConnection = TRUE, allow.projection = FALSE)
  5: as.data.frame(cpi) %>% as.data.table(cpi) %>% .[endsWith(obsTime, "Q1")] %>% .[, 
         `:=`(fy_year, yr2fy(as.integer(sub("-Q1", "", obsTime, fixed = TRUE))))]
  6: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  7: eval(quote(`_fseq`(`_lhs`)), env, env)
  8: eval(quote(`_fseq`(`_lhs`)), env, env)
  9: `_fseq`(`_lhs`)
  10: freduce(value, `_function_list`)
  11: function_list[[i]](value)
  12: .[endsWith(obsTime, "Q1")]
  13: `[.data.table`(., endsWith(obsTime, "Q1"))
  14: tryCatch(eval(.massagei(isub), x, parent.frame()), error = function(e) .checkTypos(e, 
         names(x)))
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  17: value[[3L]](cond)
  18: .checkTypos(e, names(x))
  19: stop(err$message, call. = FALSE)
  
  == testthat results  ===========================================================
  OK: 834 SKIPPED: 105 FAILED: 1
  1. Error: cpi returns reasonable forecasts (@test_cpi.R#203) 
  
  Error: testthat unit tests failed
  Execution halted