Running ‘testthat.R’ [2s/4s]
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
  <HTML><HEAD>
  <TITLE>Internal Server Error</TITLE>
  </HEAD><BODY>
  <H1>Internal Server Error - Read</H1>
  The server encountered an internal error or misconfiguration and was unable to
  complete your request.<P>
  Reference&#32;&#35;3&#46;ac710617&#46;1516559430&#46;45d53938
  </BODY></HTML>
  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
  <HTML><HEAD>
  <TITLE>Internal Server Error</TITLE>
  </HEAD><BODY>
  <H1>Internal Server Error - Read</H1>
  The server encountered an internal error or misconfiguration and was unable to
  complete your request.<P>
  Reference&#32;&#35;3&#46;ac710617&#46;1516559431&#46;45d53bc9
  </BODY></HTML>
  1: expect_equal(class(get_dataflows()), c("tbl_df", "tbl", "data.frame")) at testthat/tests.R:12
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_dataflows()
  5: make_request(query_url, "metadata")
  6: check_status(req)
  7: 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
  <HTML><HEAD>
  <TITLE>Internal Server Error</TITLE>
  </HEAD><BODY>
  <H1>Internal Server Error - Read</H1>
  The server encountered an internal error or misconfiguration and was unable to
  complete your request.<P>
  Reference&#32;&#35;3&#46;ac710617&#46;1516559432&#46;45d5423a
  </BODY></HTML>
  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)  ───────────
  `get_data(key)` threw an error with unexpected message.
  Expected match: "404"
  Actual message: "HTTP failure: 500\n<HTML><HEAD>\n<TITLE>Internal Server Error</TITLE>\n</HEAD><BODY>\n<H1>Internal Server Error - Read</H1>\nThe server encountered an internal error or misconfiguration and was unable to\ncomplete your request.<P>\nReference&#32;&#35;3&#46;ac710617&#46;1516559432&#46;45d54857\n</BODY></HTML>\n"
  
  ── 5. Failure: malformed series key returns 404 error (@tests.R#26)  ───────────
  `get_dimensions(key)` threw an error with unexpected message.
  Expected match: "404"
  Actual message: "HTTP failure: 500\n<HTML><HEAD>\n<TITLE>Internal Server Error</TITLE>\n</HEAD><BODY>\n<H1>Internal Server Error - Read</H1>\nThe server encountered an internal error or misconfiguration and was unable to\ncomplete your request.<P>\nReference&#32;&#35;3&#46;ac710617&#46;1516559433&#46;45d54b9d\n</BODY></HTML>\n"
  
  ── 6. Failure: malformed series key returns 404 error (@tests.R#27)  ───────────
  `get_description(key)` threw an error with unexpected message.
  Expected match: "404"
  Actual message: "HTTP failure: 500\n<HTML><HEAD>\n<TITLE>Internal Server Error</TITLE>\n</HEAD><BODY>\n<H1>Internal Server Error - Read</H1>\nThe server encountered an internal error or misconfiguration and was unable to\ncomplete your request.<P>\nReference&#32;&#35;3&#46;ac710617&#46;1516559433&#46;45d55027\n</BODY></HTML>\n"
  
  ── 7. Error: get_description returns a character vector (@tests.R#32)  ─────────
  HTTP failure: 500
  <HTML><HEAD>
  <TITLE>Internal Server Error</TITLE>
  </HEAD><BODY>
  <H1>Internal Server Error - Read</H1>
  The server encountered an internal error or misconfiguration and was unable to
  complete your request.<P>
  Reference&#32;&#35;3&#46;ac710617&#46;1516559434&#46;45d553c5
  </BODY></HTML>
  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