tests/hyperloglogTest.R

In bwlewis/rredis: "Redis" Key/Value Database Client

require(rredis)
checkEquals <- function(x, y) if(!isTRUE(all.equal(x, y, check.attributes=FALSE))) stop()

if(Sys.getenv("RunRRedisTests") == "yes")
{
  redisConnect()
  redisFlushAll()

  redisPfadd("testcounter", letters[1:10])
  redisPfadd("testcounter", letters[1:20])
  redisPfcount("testcounter")
  redisPfadd("testcounter_2", "z")
  redisPfmerge("testcounter", "testcounter_2")
  x = as.integer(redisPfcount("testcounter"))
# Note! HyperLogLog is only an approximate count!
  checkEquals(TRUE, x > 10 && x < 30)

  redisFlushAll()
}