packrat/lib/x86_64-w64-mingw32/3.4.3/digest/tests/num2hexTest.R

In UBC-MDS/Karl:

## tests for digest, taken from the examples in the manual page

stopifnot(require(digest))

# zap small numbers to zero
zapsmall <- 1:10
border <- 2 ^ floor(log2(10 ^ -zapsmall))
stopifnot(
    identical(
        sapply(
            seq_along(zapsmall),
            function(i) {
                digest:::num2hex(border[i] * -1:1, digits = 6, zapsmall = zapsmall[i])
            }
        ),
        matrix(
            "0",
            ncol = length(zapsmall),
            nrow = 3
        )
    )
)

# handle 0 correct
stopifnot(
    identical(
        digest:::num2hex(0),
        "0"
    )
)

# digits are consistent
x <- pi
x.hex <- sapply(1:16, digest:::num2hex, x = x)
x.hex <- x.hex[c(TRUE, diff(nchar(x.hex)) > 0)]
exponent <-  unique(gsub("^[0-9a-f]* ", "", x.hex))
stopifnot(
    identical(
        length(exponent),
        1L
    )
)
mantissa <- gsub(" [0-9]*$", "", x.hex)
do.call(
    stopifnot,
    lapply(
        head(seq_along(mantissa), -1),
        function(i){
            all(
                grepl(
                    paste0("^", mantissa[i], ".*"),
                    tail(mantissa, -i)
                )
            )
        }
    )
)

#it keeps NA values
x <- c(pi, NA, 0)
stopifnot(
    identical(
        is.na(digest:::num2hex(x)),
        is.na(x)
    )
)
x <- c(pi, NA, pi)
stopifnot(
    identical(
        is.na(digest:::num2hex(x)),
        is.na(x)
    )
)
x <- as.numeric(c(NA, NA, NA))
stopifnot(
    identical(
        is.na(digest:::num2hex(x)),
        is.na(x)
    )
)

# handles empty vectors
stopifnot(
    identical(
        digest:::num2hex(numeric(0)),
        character(0)
    )
)

# example from FAQ 7.31
# tests if all trailing zero's are removed
stopifnot(
    identical(
        digest:::num2hex(2, digits = 14),
        digest:::num2hex(sqrt(2) ^ 2, digits = 14)
    )
)
stopifnot(
    !identical(
        digest:::num2hex(2, digits = 15),
        digest:::num2hex(sqrt(2) ^ 2, digits = 15)
    )
)