revdep/library/simts/old/digest/tinytest/test_digest2int.R

In SMAC-Group/simts: Time Series Analysis Tools

suppressMessages(library(digest))

input <- letters[1:5]
hashed_seed_0 <- c(-902917054L, 14385563L, -289776295L, 592496261L, 286663184L)
expect_equal(digest2int(input), hashed_seed_0)

hashed_seed_1 <- c(14385563L, -289776295L, 592496261L, 286663184L, 1208324078L)
expect_equal(digest2int(input, 1L), hashed_seed_1)

# should fail if uint32_t on the system is not a 32-bit unsigned integer
expect_equal(digest2int("cat sat on the mat"), 562079877L)
expect_equal(digest2int("The quick brown fox jumps over the lazy dog"), 1369346549L)