$ docker run --rm --name validator-libsodium-usage-r-cran-sodium-r18-data-tag-deterministic-same-inputs-2732 -t --mount type=bind,src=/tmp/validator-status-libsodium-usage-r-cran-sodium-r18-data-tag-deterministic-same-inputs,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-r18-data-tag-deterministic-same-inputs -- bash -c 'PS4=$1; shift; set -x; source "$@"' validator-xtrace '__VALIDATOR_XTRACE__ ' /validator/tests/libsodium/tests/cases/usage/usage-r-cran-sodium-r18-data-tag-deterministic-same-inputs.sh
no override packages found; continuing with apt originals
suppressMessages(library(sodium))
key <- keygen()
msg <- charToRaw("r18 sodium data_tag determinism vector")
t1 <- data_tag(msg, key)
t2 <- data_tag(msg, key)
stopifnot(is.raw(t1), length(t1) == 32)
stopifnot(is.raw(t2), length(t2) == 32)
stopifnot(identical(t1, t2))
key2 <- keygen()
t3 <- data_tag(msg, key2)
stopifnot(is.raw(t3), length(t3) == 32)
stopifnot(!identical(t1, t3))
cat("ok deterministic tag\n")
'
ok deterministic tag