$ docker run --rm --name validator-libsodium-usage-r-cran-sodium-pwhash-deterministic-48096 -t --mount type=bind,src=/tmp/validator-status-libsodium-usage-r-cran-sodium-pwhash-deterministic,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-pwhash-deterministic -- bash -c 'PS4=$1; shift; set -x; source "$@"' validator-xtrace '__VALIDATOR_XTRACE__ ' /validator/tests/libsodium/tests/cases/usage/usage-r-cran-sodium-pwhash-deterministic.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))
salt <- as.raw(rep(0x33, 32))
password <- "r sodium pwhash payload"

key_a <- scrypt(charToRaw(password), salt = salt, size = 32)
stopifnot(is.raw(key_a))
stopifnot(length(key_a) == 32)

key_b <- scrypt(charToRaw(password), salt = salt, size = 32)
stopifnot(identical(key_a, key_b))

# Different password under the same salt must change the digest.
key_other_pw <- scrypt(charToRaw("different password"), salt = salt, size = 32)
stopifnot(!identical(key_a, key_other_pw))

# Different salt under the same password must change the digest.
salt_other <- as.raw(rep(0x44, 32))
key_other_salt <- scrypt(charToRaw(password), salt = salt_other, size = 32)
stopifnot(!identical(key_a, key_other_salt))

# A different requested size produces a different-length digest.
key_64 <- scrypt(charToRaw(password), salt = salt, size = 64)
stopifnot(length(key_64) == 64)

cat("ok", length(key_a), length(key_64), "\n")
'
ok 32 64