R Under development (unstable) (2025-08-18 r88641 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # 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(dplyr)

Attaching package: 'dplyr'

The following object is masked from 'package:testthat':

    matches

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> library(rcdf)
> 
> test_check("rcdf")
[1] "DB_HOST=localhost"  "DB_USER=root"       "DB_PASS=\"secret\""
[1] "DB_HOST=localhost" "DB_USER=root"     
character(0)
[1] "DB_HOST=localhost" "DB_USER=root"     
i Writing csv
i Writing json
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 59 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-read_rcdf.R:81:3'): read_rcdf throws error if decryption key is invalid ──
Error in `aes_any(data, key, iv, FALSE, mode)`: OpenSSL error: EC5C0100:error:1C800064:Provider routines:ossl_cipher_unpadblock:bad decrypt:providers/implementations/ciphers/ciphercommon_block.c:107:

Backtrace:
     ▆
  1. ├─testthat::expect_error(...) at test-read_rcdf.R:81:3
  2. │ └─testthat:::expect_condition_matching(...)
  3. │   └─testthat:::quasi_capture(...)
  4. │     ├─testthat (local) .capture(...)
  5. │     │ └─base::withCallingHandlers(...)
  6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  7. └─rcdf::read_rcdf(path = mock_rcdf, decryption_key = "invalid_key")
  8.   └─rcdf:::decrypt_key(data = meta, key = decryption_key, password = password)
  9.     └─rcdf:::decrypt_info_aes(data$key_app, key = list(aes_key = key))
 10.       └─openssl::aes_cbc_decrypt(...)
 11.         └─openssl:::aes_decrypt(data, key, iv, "cbc")
 12.           └─openssl:::aes_any(data, key, iv, FALSE, mode)

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 59 ]
Error: Test failures
In addition: Warning message:
call dbDisconnect() when finished working with a connection 
Execution halted