Running ‘testthat.R’ [1s/22s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ecb)
  > 
  > test_check("ecb")
  1. Error: get_data returns a data frame (@tests.R#6) ---------------------------
  HTTP failure: 500
  1: get_data(key, filter) at testthat/tests.R:6
  2: make_request(query_url, "data")
  3: check_status(req)
  4: stop("HTTP failure: ", req$status_code, "\n", httr::content(req, "text"))
  
  2. Error: get_dataflows returns a data frame (@tests.R#12) ---------------------
  HTTP failure: 500
  3.78091002.1483858694.4216b36a
  1: expect_equal(class(get_dataflows()), c("tbl_df", "tbl", "data.frame")) at testthat/tests.R:12
  2: compare(object, expected, ...)
  3: get_dataflows()
  4: make_request(query_url, "metadata")
  5: check_status(req)
  6: stop("HTTP failure: ", req$status_code, "\n", httr::content(req, "text"))
  
  3. Error: get_dimensions returns a list of data frames (@tests.R#16) -----------
  HTTP failure: 500
  3.78091002.1483858696.4216b46c
  1: get_dimensions("ICP.M.DE.N.000000+XEF000.4.ANR") at testthat/tests.R:16
  2: make_request(query_url, "metadata")
  3: check_status(req)
  4: stop("HTTP failure: ", req$status_code, "\n", httr::content(req, "text"))
  
  4. Failure: malformed series key returns 404 error (@tests.R#25) ---------------
  error$message does not match "404".
  Actual value: "HTTP failure: 500\nError code: 3.78091002.1483858696.4216b4f1"
  
  
  5. Failure: malformed series key returns 404 error (@tests.R#26) ---------------
  error$message does not match "404".
  Actual value: "HTTP failure: 500\nError code: 3.78091002.1483858697.4216b597"
  
  
  6. Failure: malformed series key returns 404 error (@tests.R#27) ---------------
  error$message does not match "404".
  Actual value: "HTTP failure: 500\nError code: 3.78091002.1483858697.4216b60c"
  
  
  7. Error: get_description returns a character vector (@tests.R#32) -------------
  HTTP failure: 500
  3.78091002.1483858699.4216b787
  1: get_description(key) at testthat/tests.R:32
  2: vapply(get_dimensions(key), function(x) x$value[x$dim == "TITLE_COMPL"], character(1))
  3: get_dimensions(key)
  4: make_request(query_url, "metadata")
  5: check_status(req)
  6: stop("HTTP failure: ", req$status_code, "\n", httr::content(req, "text"))
  
  testthat results ================================================================
  OK: 0 SKIPPED: 0 FAILED: 7
  1. Error: get_data returns a data frame (@tests.R#6) 
  2. Error: get_dataflows returns a data frame (@tests.R#12) 
  3. Error: get_dimensions returns a list of data frames (@tests.R#16) 
  4. Failure: malformed series key returns 404 error (@tests.R#25) 
  5. Failure: malformed series key returns 404 error (@tests.R#26) 
  6. Failure: malformed series key returns 404 error (@tests.R#27) 
  7. Error: get_description returns a character vector (@tests.R#32) 
  
  Error: testthat unit tests failed
  Execution halted