$ docker run --rm --name validator-libsodium-usage-r-cran-sodium-bin2hex-roundtrip-48096 -t --mount type=bind,src=/tmp/validator-status-libsodium-usage-r-cran-sodium-bin2hex-roundtrip,dst=/validator/status --mount type=bind,src=/home/runner/work/validator/validator/.work/pages-artifacts/debs/port/libsodium,dst=/override-debs,readonly 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-bin2hex-roundtrip -- bash -c 'PS4=$1; shift; set -x; source "$@"' validator-xtrace '__VALIDATOR_XTRACE__ ' /validator/tests/libsodium/tests/cases/usage/usage-r-cran-sodium-bin2hex-roundtrip.sh
installing override packages from /override-debs
(Reading database ... (Reading database ... 5%(Reading database ... 10%(Reading database ... 15%(Reading database ... 20%(Reading database ... 25%(Reading database ... 30%(Reading database ... 35%(Reading database ... 40%(Reading database ... 45%(Reading database ... 50%(Reading database ... 55%(Reading database ... 60%(Reading database ... 65%(Reading database ... 70%(Reading database ... 75%(Reading database ... 80%(Reading database ... 85%(Reading database ... 90%(Reading database ... 95%(Reading database ... 100%(Reading database ... 22270 files and directories currently installed.)
Preparing to unpack .../libsodium-dev_1.0.18-1ubuntu0.24.04.1+safelibs1778011697_amd64.deb ...
Unpacking libsodium-dev:amd64 (1.0.18-1ubuntu0.24.04.1+safelibs1778011697) over (1.0.18-1ubuntu0.24.04.1) ...
Preparing to unpack .../libsodium23_1.0.18-1ubuntu0.24.04.1+safelibs1778011697_amd64.deb ...
Unpacking libsodium23:amd64 (1.0.18-1ubuntu0.24.04.1+safelibs1778011697) over (1.0.18-1ubuntu0.24.04.1) ...
Setting up libsodium23:amd64 (1.0.18-1ubuntu0.24.04.1+safelibs1778011697) ...
Setting up libsodium-dev:amd64 (1.0.18-1ubuntu0.24.04.1+safelibs1778011697) ...
Processing triggers for libc-bin (2.39-0ubuntu8.7) ...
suppressMessages(library(sodium))
sk <- keygen()
stopifnot(is.raw(sk))
stopifnot(length(sk) == 32)

hex_str <- bin2hex(sk)
stopifnot(is.character(hex_str))
stopifnot(nchar(hex_str) == 64)
stopifnot(grepl("^[0-9a-f]{64}$", hex_str))

decoded <- hex2bin(hex_str)
stopifnot(is.raw(decoded))
stopifnot(length(decoded) == 32)
stopifnot(identical(decoded, sk))

# Roundtripping a fixed value matches a known hex string exactly.
fixed <- as.raw(c(0x00, 0xff, 0x10, 0x20, 0x30))
stopifnot(identical(bin2hex(fixed), "00ff102030"))
stopifnot(identical(hex2bin("00ff102030"), fixed))

cat("ok", nchar(hex_str), "\n")
'
ok 64