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