"Hash functions match openssl command line tool"
"HMAC functions match openssl command line tool"
"Connection interface matches raw interface"
"Connection interface matches string interface"

Hash functions match openssl command line tool

Error in `stringhash(x, algo, key)`: OpenSSL error: 0020810AF72E0000:error:0308010C:digital envelope routines:inner_evp_generic_fetch:unsupported:/usr/src/crypto/openssl/crypto/evp/evp_fetch.c:373:Global default library context, Algorithm (MD4 : 71), Properties (<null>)

HMAC functions match openssl command line tool

Error in `parse_pkcs12(buf, password)`: OpenSSL error: 0020810AF72E0000:error:0308010C:digital envelope routines:inner_evp_generic_fetch:unsupported:/usr/src/crypto/openssl/crypto/evp/evp_fetch.c:373:Global default library context, Algorithm (RC2-40-CBC : 0), Properties ()

expect_error(read_p12("../google.dk/wildcard-google.dk-chain-password.p12", password = ""), "password")
p2 <- read_p12("../google.dk/wildcard-google.dk-chain-password.p12", password = "password")
leaf <- read_cert("../google.dk/wildcard-google.dk-leaf.crt", der = TRUE)
expect_error(read_p12("../certigo/example-root.p12", password = ""), "password")
b1 <- read_p12("../certigo/example-root.p12", password = "password")
expect_error(read_p12("../certigo/example-leaf.p12", password = ""), "password")
b2<- read_p12("../certigo/example-leaf.p12", password = "password")
expect_error(read_p12("../certigo/example-elliptic-sha1.p12", password = ""), "password")
b3 <- read_p12("../certigo/example-elliptic-sha1.p12", password = "password")
test_that("roundtrip p12 key and cert", {
buf <- write_p12(key = k3, cert = c3, name = "example-elliptic-sha1")
buf <- write_p12(ca = bundle, password = 'test')
msg <- pkcs7_decrypt("../keys/encrypted.rsa.p7b", key = "../keys/id_rsa")
buf <- pkcs7_encrypt(testdata, cert = "../keys/id_rsa.crt")

context("Test salting works with various algorithms")
test_that("MD4 salts multiple values", {
test_that("MD5 salts multiple values", {
test_that("RIPEMD160 salts single values", {
test_that("RIPEMD160 salts multiple values", {
test_that("SHA1 salts multiple values", {
test_that("SHA256 salts single values", {
test_that("SHA256 salts multiple values", {
test_that("SHA512 salts single values", {
test_that("SHA512 salts multiple values", {

"Test salting works with various algorithms"