1
2suppressMessages(library(digest))
3
4input <- letters[1:5]
5hashed_seed_0 <- c(-902917054L, 14385563L, -289776295L, 592496261L, 286663184L)
6expect_equal(digest2int(input), hashed_seed_0)
7
8hashed_seed_1 <- c(14385563L, -289776295L, 592496261L, 286663184L, 1208324078L)
9expect_equal(digest2int(input, 1L), hashed_seed_1)
10
11# should fail if uint32_t on the system is not a 32-bit unsigned integer
12expect_equal(digest2int("cat sat on the mat"), 562079877L)
13expect_equal(digest2int("The quick brown fox jumps over the lazy dog"), 1369346549L)
14