Running ‘testthat.R’ [15s/28s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(databraryr)
  Welcome to the databraryr package.
  > 
  > test_check("databraryr")
  
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Not logged in. Only public information will be returned.
  
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     NULL request object. Will generate default.
  Not logged in. Only public information will be returned.
  NULL request object. Will generate default.
  Not logged in. Only public information will be returned.
  
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Not logged in. Only public information will be returned.
  
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     
  Downloading: 1.9 kB     [ FAIL 29 | WARN 1 | SKIP 0 | PASS 769 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-assign_constants.R:2:3'): assign_constants returns list ──────
  "list" %in% class(assign_constants()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-download_asset.R:35:3'): download_asset returns character string ──
  is.character(download_asset()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-download_session_zip.R:28:3'): download_session_zip returns string ──
  is.character(download_session_zip()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-download_volume_zip.R:24:3'): download_volume_zip returns string ──
  is.character(download_volume_zip()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-get_db_stats.R:3:3'): get_db_stats returns a data.frame by default ──
  Error in `httr2::resp_status(resp)`: `resp` must be an HTTP response object, not `NULL`.
  Backtrace:
      ▆
   1. ├─testthat::expect_true("data.frame" %in% class(get_db_stats())) at test-get_db_stats.R:3:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─"data.frame" %in% class(get_db_stats())
   5. └─databraryr::get_db_stats()
   6.   └─httr2::resp_status(resp = resp)
   7.     └─httr2:::check_response(resp)
   8.       └─httr2:::stop_input_type(...)
   9.         └─rlang::abort(message, ..., call = call, arg = arg)
  ── Error ('test-get_db_stats.R:7:3'): get_db_stats returns a data.frame with 'good' values for type parameter ──
  Error in `httr2::resp_status(resp)`: `resp` must be an HTTP response object, not `NULL`.
  Backtrace:
      ▆
   1. ├─testthat::expect_true(...) at test-get_db_stats.R:7:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::is.data.frame(get_db_stats("people"))
   5. └─databraryr::get_db_stats("people")
   6.   └─httr2::resp_status(resp = resp)
   7.     └─httr2:::check_response(resp)
   8.       └─httr2:::stop_input_type(...)
   9.         └─rlang::abort(message, ..., call = call, arg = arg)
  ── Failure ('test-get_session_as_df.R:3:3'): get_session_as_df returns a data frame ──
  "data.frame" %in% class(get_session_as_df()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-get_session_by_name.R:3:3'): get_session_by_name returns a list or is NULL. ──
  <assertError/simpleError/error/condition>
  Error: volume_json is not a list
  Backtrace:
      ▆
   1. ├─testthat::expect_true(...) at test-get_session_by_name.R:3:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─databraryr::get_session_by_name()
   5.   └─databraryr (local) extract_session_metadata(volume_json)
   6.     └─assertthat::assert_that(is.list(volume_json))
  ── Failure ('test-list_assets_by_type.R:3:3'): list_assets_by_type returns data.frame ──
  class(list_assets_by_type()) == "data.frame" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-list_assets_in_session.R:3:3'): list_assets_by_type returns data.frame ──
  class(list_assets_in_session()) == "data.frame" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-list_containers_records.R:3:3'): list_containers_records returns data.frame ──
  "list" %in% class(list_containers_records()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-list_session_assets.R:14:3'): list_session_assets rejects bad input parameters ──
  `list_session_assets(vb = -1)` did not throw the expected error.
  ── Failure ('test-list_session_assets.R:15:3'): list_session_assets rejects bad input parameters ──
  `list_session_assets(vb = 3)` did not throw the expected error.
  ── Failure ('test-list_volume_metadata.R:3:3'): list_volume_metadata returns data.frame ──
  class(list_volume_metadata()) == "data.frame" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-list_volume_sessions.R:3:3'): list_volume_sessions returns data.frame given valid vol_id ──
  "data.frame" %in% class(list_volume_sessions()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-logout_db.R:9:3'): logout_db returns logical ───────────────────
  <httr2_http_403/httr2_http/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(rq)`: HTTP 403 Forbidden.
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.logical(logout_db())) at test-logout_db.R:9:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─databraryr::logout_db()
   5.   └─httr2::req_perform(rq)
   6.     └─httr2:::handle_resp(req, resp, error_call = error_call)
   7.       └─httr2:::resp_abort(resp, req, body, call = error_call)
   8.         └─rlang::abort(...)
  ── Error ('test-logout_db.R:13:1'): (code run outside of `test_that()`) ────────
  <httr2_http_403/httr2_http/httr2_error/rlang_error/error/condition>
  Error in `httr2::req_perform(rq)`: HTTP 403 Forbidden.
  Backtrace:
      ▆
   1. └─databraryr::logout_db() at test-logout_db.R:13:1
   2.   └─httr2::req_perform(rq)
   3.     └─httr2:::handle_resp(req, resp, error_call = error_call)
   4.       └─httr2:::resp_abort(resp, req, body, call = error_call)
   5.         └─rlang::abort(...)
  ── Failure ('test-read_csv_data_as_df.R:3:3'): read_csv_data_as_df returns data.frame ──
  is.data.frame(read_csv_data_as_df()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-search_for_keywords.R:3:3'): search_for_keywords returns list ──
  class(search_for_keywords()) == "list" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-search_for_tags.R:3:3'): search_for_tags returns character ───
  "character" %in% class(search_for_tags()) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:3:3'): get_file_duration returns an integer array ────
  class(get_file_duration()) == "integer" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:4:3'): get_file_duration returns an integer array ────
  length(get_file_duration()) == 1 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:19:3'): get_asset_segment_range returns an integer array ──
  class(get_asset_segment_range()) == "integer" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:20:3'): get_asset_segment_range returns an integer array ──
  length(get_asset_segment_range()) == 2 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:43:3'): get_permission_levels returns a character array ──
  class(get_permission_levels()) == "character" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:44:3'): get_permission_levels returns a character array ──
  length(get_permission_levels()) == 6 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:55:3'): get_release_levels returns a character array ──
  class(get_release_levels()) == "character" is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-utils.R:56:3'): get_release_levels returns a character array ──
  length(get_release_levels()) == 4 is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-utils.R:68:3'): get_supported_file_types returns data.frame ────
  Error in `UseMethod("rename")`: no applicable method for 'rename' applied to an object of class "NULL"
  Backtrace:
      ▆
   1. ├─testthat::expect_true(is.data.frame(get_supported_file_types())) at test-utils.R:68:3
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─base::is.data.frame(get_supported_file_types())
   5. └─databraryr::get_supported_file_types()
   6.   └─dplyr::rename(ft, asset_type = "name", asset_type_id = "id")
  
  [ FAIL 29 | WARN 1 | SKIP 0 | PASS 769 ]
  Error: Test failures
  Execution halted