$ docker run --rm --name validator-libsodium-usage-r-cran-sodium-auth-roundtrip-2732 -t --mount type=bind,src=/tmp/validator-status-libsodium-usage-r-cran-sodium-auth-roundtrip,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-auth-roundtrip -- bash -c 'PS4=$1; shift; set -x; source "$@"' validator-xtrace '__VALIDATOR_XTRACE__ ' /validator/tests/libsodium/tests/cases/usage/usage-r-cran-sodium-auth-roundtrip.sh
no override packages found; continuing with apt originals
suppressMessages(library(sodium))
key_a <- as.raw(rep(0x11, 32))
key_b <- as.raw(rep(0x22, 32))
msg <- charToRaw("r sodium auth payload")
tag_a <- data_tag(msg, key_a)
stopifnot(is.raw(tag_a))
stopifnot(length(tag_a) == 32)
tag_a2 <- data_tag(msg, key_a)
stopifnot(identical(tag_a, tag_a2))
tag_b <- data_tag(msg, key_b)
stopifnot(!identical(tag_a, tag_b))
msg2 <- charToRaw("r sodium auth payload!")
tag_a_msg2 <- data_tag(msg2, key_a)
stopifnot(!identical(tag_a, tag_a_msg2))
cat("ok", length(tag_a), "\n")
'
ok 32