CRAN Package Check Results for Package digest

Last updated on 2019-05-21 17:48:16 CEST.

Check Details

Version: 0.6.19
Check: tests
Result: ERROR
     Running ‘AESTest.R’
     Comparing ‘AESTest.Rout’ to ‘AESTest.Rout.save’ ... OK
     Running ‘crc32.R’
     Running ‘digest2intTest.R’
     Running ‘digestTest.R’
     Running ‘hmacTest.R’
     Comparing ‘hmacTest.Rout’ to ‘hmacTest.Rout.save’ ... OK
     Running ‘load-unload.R’
     Running ‘num2hexTest.R’
     Running ‘raw.R’
     Running ‘sha1Test.R’
    Running the tests in ‘tests/digestTest.R’ failed.
    Complete output:
     >
     > ## tests for digest, taken from the examples in the manual page
     >
     > stopifnot(require(digest))
     Loading required package: digest
     >
     > ## Standard RFC 1321 test vectors
     > md5Input <-
     + c("",
     + "a",
     + "abc",
     + "message digest",
     + "abcdefghijklmnopqrstuvwxyz",
     + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",
     + paste("12345678901234567890123456789012345678901234567890123456789012",
     + "345678901234567890", sep=""))
     > md5Output <-
     + c("d41d8cd98f00b204e9800998ecf8427e",
     + "0cc175b9c0f1b6a831c399e269772661",
     + "900150983cd24fb0d6963f7d28e17f72",
     + "f96b697d7cb7938d525a2f31aaf161d0",
     + "c3fcd3d76192e4007dfb496cca67e13b",
     + "d174ab98d277d9f5a5611c2c9f419d9f",
     + "57edf4a22be3c955ac49da2e2107b67a")
     >
     > for (i in seq(along.with=md5Input)) {
     + md5 <- digest(md5Input[i], serialize=FALSE)
     + stopifnot(identical(md5, md5Output[i]))
     + cat(md5, "\n")
     + }
     d41d8cd98f00b204e9800998ecf8427e
     0cc175b9c0f1b6a831c399e269772661
     900150983cd24fb0d6963f7d28e17f72
     f96b697d7cb7938d525a2f31aaf161d0
     c3fcd3d76192e4007dfb496cca67e13b
     d174ab98d277d9f5a5611c2c9f419d9f
     57edf4a22be3c955ac49da2e2107b67a
     >
     > ## md5 raw output test
     > for (i in seq(along.with=md5Input)) {
     + md5 <- digest(md5Input[i], serialize=FALSE, raw=TRUE)
     + md5 <- gsub(" ","",capture.output(cat(md5)))
     + stopifnot(identical(md5, md5Output[i]))
     + cat(md5, "\n")
     + }
     d41d8cd98f00b204e9800998ecf8427e
     0cc175b9c0f1b6a831c399e269772661
     900150983cd24fb0d6963f7d28e17f72
     f96b697d7cb7938d525a2f31aaf161d0
     c3fcd3d76192e4007dfb496cca67e13b
     d174ab98d277d9f5a5611c2c9f419d9f
     57edf4a22be3c955ac49da2e2107b67a
     >
     > sha1Input <-
     + c("abc",
     + "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
     + NULL)
     > sha1Output <-
     + c("a9993e364706816aba3e25717850c26c9cd0d89d",
     + "84983e441c3bd26ebaae4aa1f95129e5e54670f1",
     + "34aa973cd4c4daa4f61eeb2bdbad27316534016f")
     >
     > for (i in seq(along.with=sha1Input)) {
     + sha1 <- digest(sha1Input[i], algo="sha1", serialize=FALSE)
     + stopifnot(identical(sha1, sha1Output[i]))
     + cat(sha1, "\n")
     + }
     a9993e364706816aba3e25717850c26c9cd0d89d
     84983e441c3bd26ebaae4aa1f95129e5e54670f1
     >
     > ## sha1 raw output test
     > for (i in seq(along.with=sha1Input)) {
     + sha1 <- digest(sha1Input[i], algo="sha1", serialize=FALSE, raw=TRUE)
     + print(sha1)
     + sha1 <- gsub(" ","",capture.output(cat(sha1)))
     + print(sha1)
     + print(sha1Output[i])
     + stopifnot(identical(sha1, sha1Output[i]))
     + cat(sha1, "\n")
     + }
     [1] a9 99 3e 36 47 06 81 6a ba 3e 25 71 78 50 c2 6c 9c d0 d8 9d
     [1] "a9993e364706816aba3e25717850c26c9cd0d89d"
     [1] "a9993e364706816aba3e25717850c26c9cd0d89d"
     a9993e364706816aba3e25717850c26c9cd0d89d
     [1] 84 98 3e 44 1c 3b d2 6e ba ae 4a a1 f9 51 29 e5 e5 46 70 f1
     [1] "84983e441c3bd26ebaae4aa1f95129e5e54670f1"
     [1] "84983e441c3bd26ebaae4aa1f95129e5e54670f1"
     84983e441c3bd26ebaae4aa1f95129e5e54670f1
     >
     >
     > ## sha512 test
     > sha512Input <-c(
     + "",
     + "The quick brown fox jumps over the lazy dog."
     + )
     > sha512Output <- c(
     + "cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e",
     + "91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bbc6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed")
     >
     > for (i in seq(along.with=sha512Input)) {
     + sha512 <- digest(sha512Input[i], algo="sha512", serialize=FALSE)
     + stopifnot(identical(sha512, sha512Output[i]))
     + cat(sha512, "\n")
     + }
     cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e
     91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bbc6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed
     >
     > ## sha512 raw output test
     > for (i in seq(along.with=sha512Input)) {
     + sha512 <- digest(sha512Input[i], algo="sha512", serialize=FALSE, raw=TRUE)
     + print(sha512)
     +
     + sha512 <- gsub(" ","",capture.output(cat(sha512)))
     + print(sha512)
     + print(sha512Output[i])
     + stopifnot(identical(sha512, sha512Output[i]))
     + cat(sha512, "\n")
     + }
     [1] cf 83 e1 35 7e ef b8 bd f1 54 28 50 d6 6d 80 07 d6 20 e4 05 0b 57 15 dc 83
     [26] f4 a9 21 d3 6c e9 ce 47 d0 d1 3c 5d 85 f2 b0 ff 83 18 d2 87 7e ec 2f 63 b9
     [51] 31 bd 47 41 7a 81 a5 38 32 7a f9 27 da 3e
     [1] "cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e"
     [1] "cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e"
     cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e
     [1] 91 ea 12 45 f2 0d 46 ae 9a 03 7a 98 9f 54 f1 f7 90 f0 a4 76 07 ee b8 a1 4d
     [26] 12 89 0c ea 77 a1 bb c6 c7 ed 9c f2 05 e6 7b 7f 2b 8f d4 c7 df d3 a7 a8 61
     [51] 7e 45 f3 c4 63 d4 81 c7 e5 86 c3 9a c1 ed
     [1] "91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bbc6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed"
     [1] "91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bbc6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed"
     91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bbc6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed
     >
     >
     >
     > crc32Input <-
     + c("abc",
     + "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
     + NULL)
     > crc32Output <-
     + c("352441c2",
     + "171a3f5f",
     + "2ef80172")
     >
     > for (i in seq(along.with=crc32Input)) {
     + crc32 <- digest(crc32Input[i], algo="crc32", serialize=FALSE)
     + stopifnot(identical(crc32, crc32Output[i]))
     + cat(crc32, "\n")
     + }
     352441c2
     171a3f5f
     >
     > ## one of the FIPS-
     > sha1 <- digest("abc", algo="sha1", serialize=FALSE)
     > stopifnot(identical(sha1, "a9993e364706816aba3e25717850c26c9cd0d89d"))
     >
     > ## This one seems to give slightly different output depending on the R version used
     > ##
     > ## # example of a digest of a standard R list structure
     > ## cat(digest(list(LETTERS, data.frame(a=letters[1:5],
     > ## b=matrix(1:10,
     > ## ncol=2)))), "\n")
     >
     > ## these outputs were calculated using xxh32sum
     > xxhash32Input <-
     + c("abc",
     + "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
     + "")
     > xxhash32Output <-
     + c("32d153ff",
     + "89ea60c3",
     + "02cc5d05")
     >
     > for (i in seq(along.with=xxhash32Input)) {
     + xxhash32 <- digest(xxhash32Input[i], algo="xxhash32", serialize=FALSE)
     + cat(xxhash32, "\n")
     + stopifnot(identical(xxhash32, xxhash32Output[i]))
     + }
     32d153ff
     89ea60c3
     02cc5d05
     >
     > ## these outputs were calculated using xxh64sum
     > xxhash64Input <-
     + c("abc",
     + "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
     + "")
     > xxhash64Output <-
     + c("44bc2cf5ad770999",
     + "f06103773e8585df",
     + "ef46db3751d8e999")
     >
     > for (i in seq(along.with=xxhash64Input)) {
     + xxhash64 <- digest(xxhash64Input[i], algo="xxhash64", serialize=FALSE)
     + cat(xxhash64, "\n")
     + stopifnot(identical(xxhash64, xxhash64Output[i]))
     + }
     44bc2cf5ad770999
     f06103773e8585df
     ef46db3751d8e999
     >
     > ## these outputs were calculated using mmh3 python package
     > ## the first two are also shown at this StackOverflow question on test vectors
     > ## https://stackoverflow.com/questions/14747343/murmurhash3-test-vectors
     > murmur32Input <-
     + c("abc",
     + "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
     + "")
     > murmur32Output <-
     + c("b3dd93fa",
     + "ee925b90",
     + "00000000")
     >
     > for (i in seq(along.with=murmur32Input)) {
     + murmur32 <- digest(murmur32Input[i], algo="murmur32", serialize=FALSE)
     + cat(murmur32, "\n")
     + stopifnot(identical(murmur32, murmur32Output[i]))
     + }
     b3dd93fa
     ee925b90
     00000000
     >
     > ## tests for digest spooky
     >
     > stopifnot(require(digest))
     >
     > ## test vectors (originally for md5)
     > spookyInput <-
     + c("",
     + "a",
     + "abc",
     + "message digest",
     + "abcdefghijklmnopqrstuvwxyz",
     + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",
     + paste("12345678901234567890123456789012345678901234567890123456789012",
     + "345678901234567890", sep=""))
     >
     > # from spooky import hash128
     > # from binascii import hexlify
     > #
     > # spookyInput = [
     > # "",
     > # "a",
     > # "abc",
     > # "message digest",
     > # "abcdefghijklmnopqrstuvwxyz",
     > # "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",
     > # "12345678901234567890123456789012345678901234567890123456789012345678901234567890"
     > # ]
     > #
     > # for s in spookyInput:
     > # hexlify(hash128(s).to_bytes(16, 'little')).decode()
     > #
     > # '1909f56bfc062723c751e8b465ee728b'
     > # 'bdc9bba09181101a922a4161f0584275'
     > # '67c93775f715ab8ab01178caf86713c6'
     > # '9630c2a55c0987a0db44434f9d67a192'
     > # '5172de938ce149a98f4d06d3c3168ffe'
     > # 'b5b3b2d0f08b58aa07f551895f929f81'
     > # '3621ec01112dafa1610a4bd23041966b'
     >
     > spookyOutputPython <-
     + c(
     + '1909f56bfc062723c751e8b465ee728b',
     + 'bdc9bba09181101a922a4161f0584275',
     + '67c93775f715ab8ab01178caf86713c6',
     + '9630c2a55c0987a0db44434f9d67a192',
     + '5172de938ce149a98f4d06d3c3168ffe',
     + 'b5b3b2d0f08b58aa07f551895f929f81',
     + '3621ec01112dafa1610a4bd23041966b'
     + )
     >
     > ## spooky raw output test
     > for (i in seq(along.with=spookyInput)) {
     + # skip = 30 skips the entire serialization header for a length 1 character vector
     + # this is equivalent to raw = TRUE and matches the python spooky implementation for those vectors
     + spooky <- digest(spookyInput[i], algo = "spookyhash", skip = 30)
     + stopifnot(identical(spooky, spookyOutputPython[i]))
     + cat(spooky, "\n")
     + }
     1909f56bfc062723c751e8b465ee728b
     bdc9bba09181101a922a4161f0584275
     67c93775f715ab8ab01178caf86713c6
     9630c2a55c0987a0db44434f9d67a192
     5172de938ce149a98f4d06d3c3168ffe
     b5b3b2d0f08b58aa07f551895f929f81
     3621ec01112dafa1610a4bd23041966b
     >
     > ## some extras to get coverage up - these aren't tested against reference output,
     > ## just output from R 3.6.0
     > spookyInput <- c("a", "aaaaaaaaa", "aaaaaaaaaaaaa")
     > spookyOutput <- c(
     + "b7a3573ba6139dfdc52db30acba87f46",
     + "fd876ecaa5d1e442600333118f223e02",
     + "91848873bf91d06ad321bbd47400a556"
     + )
     > for (i in seq(along.with=spookyInput)) {
     + spooky <- digest(spookyInput[i], algo = "spookyhash")
     + stopifnot(identical(spooky, spookyOutput[i]))
     + cat(spooky, "\n")
     + }
     b7a3573ba6139dfdc52db30acba87f46
     fd876ecaa5d1e442600333118f223e02
     91848873bf91d06ad321bbd47400a556
     >
     > # test a bigger object
     > spooky <- digest(iris, algo = "spookyhash")
     > stopifnot(identical(spooky, "af58add8b4f7044582b331083bc239ff"))
     > cat(spooky, "\n")
     af58add8b4f7044582b331083bc239ff
     >
     > # test error message
     > error.message <- try(digest(spookyInput[i], algo = "spookyhash", serialize = FALSE))
     Error : spookyhash algorithm is not available without serialization.
     > stopifnot(
     + grepl("spookyhash algorithm is not available without serialization.", error.message)
     + )
     >
     > ## test 'length' parameter and file input
     > ##fname <- file.path(R.home(),"COPYING") ## not invariant across OSs
     > fname <- system.file("GPL-2", package="digest")
     > x <- readChar(fname, file.info(fname)$size) # read file
     > xskip <- substring(x, first=20+1)
     > for (alg in c("sha1", "md5", "crc32", "sha256", "sha512",
     + "xxhash32", "xxhash64", "murmur32")) {
     + # partial file
     + h1 <- digest(x , length=18000, algo=alg, serialize=FALSE)
     + h2 <- digest(fname, length=18000, algo=alg, serialize=FALSE, file=TRUE)
     + h3 <- digest(substr(x,1,18000) , algo=alg, serialize=FALSE)
     + stopifnot( identical(h1,h2), identical(h1,h3) )
     + cat(h1, "\n", h2, "\n", h3, "\n")
     + # whole file
     + h4 <- digest(x , algo=alg, serialize=FALSE)
     + h5 <- digest(fname, algo=alg, serialize=FALSE, file=TRUE)
     + stopifnot( identical(h4,h5) )
     +
     + ## Assert that 'skip' works
     + h6 <- digest(xskip, algo=alg, serialize=FALSE)
     + h7 <- digest(fname, algo=alg, serialize=FALSE, skip=20, file=TRUE)
     + stopifnot( identical(h6, h7) )
     + }
     6a165a2bc0ebf484edaf11c05c60560e5f3674f0
     6a165a2bc0ebf484edaf11c05c60560e5f3674f0
     6a165a2bc0ebf484edaf11c05c60560e5f3674f0
     9871178703e0ff013ad372755f298f6b
     9871178703e0ff013ad372755f298f6b
     9871178703e0ff013ad372755f298f6b
     f1233fcd
     f1233fcd
     f1233fcd
     7c50eb0cecac5beb39f84594e97ad6813c70b87e671515dea39e731332cdf240
     7c50eb0cecac5beb39f84594e97ad6813c70b87e671515dea39e731332cdf240
     7c50eb0cecac5beb39f84594e97ad6813c70b87e671515dea39e731332cdf240
    
     *** caught segfault ***
     address 0x4000000048, cause 'memory not mapped'
    
     Traceback:
     1: digest(fname, length = 18000, algo = alg, serialize = FALSE, file = TRUE)
     An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang