$ docker run --rm --name validator-libsodium-usage-r-cran-sodium-diffie-hellman-batch12-2732 -t --mount type=bind,src=/tmp/validator-status-libsodium-usage-r-cran-sodium-diffie-hellman-batch12,dst=/validator/status validator-libsodium-shared bash -lc 'set -euo pipefail
/validator/tests/_shared/install_override_debs.sh
exec /validator/tests/_shared/run_library_tests.sh "$@"' validator-testcase libsodium usage-r-cran-sodium-diffie-hellman-batch12 -- bash -c 'PS4=$1; shift; set -x; source "$@"' validator-xtrace '__VALIDATOR_XTRACE__ ' /validator/tests/libsodium/tests/cases/usage/usage-r-cran-sodium-diffie-hellman-batch12.sh
no override packages found; continuing with apt originals
suppressMessages(library(sodium))
sk_a <- keygen()
pk_a <- pubkey(sk_a)
sk_b <- keygen()
pk_b <- pubkey(sk_b)

shared_ab <- diffie_hellman(sk_a, pk_b)
shared_ba <- diffie_hellman(sk_b, pk_a)
stopifnot(is.raw(shared_ab))
stopifnot(length(shared_ab) == 32)
stopifnot(identical(shared_ab, shared_ba))

sk_c <- keygen()
shared_cb <- diffie_hellman(sk_c, pk_a)
stopifnot(!identical(shared_cb, shared_ab))

cat("ok", length(shared_ab), "\n")
'
ok 32