inst/test/runit.bitopTest.R

In rredis: "Redis" Key/Value Database Client

options('redis:num'=TRUE) # many tests assume : returns numeric

test01_connect <- function() {
  redisConnect()
  if(!is.null(redisKeys("bitmapr_test*"))){
    redisDelete(redisKeys("bitmapr_test*"))
  }     
}

test02_getsetbit <- function() {
  redisSetBit('bitmapr_test02', 10, 1)  
  checkEquals(1, redisGetBit('bitmapr_test02', 10))
}


test03_bitcount <- function() {
  redisSetBit('bitmapr_test03', 1, 1)  
  redisSetBit('bitmapr_test03', 10, 1)  
  redisSetBit('bitmapr_test03', 100, 1)  
  checkEquals(3, redisBitCount('bitmapr_test03'))  
}

test04_bitops <- function() {

  sourcekeys <- c('bitmapr_test04_src_1', 'bitmapr_test04_src_2','bitmapr_test04_src_3')
  
  redisSetBit(sourcekeys[1], 1, 1)
  redisSetBit(sourcekeys[1], 2, 1)
  redisSetBit(sourcekeys[1], 3, 1)
  redisSetBit(sourcekeys[1], 100, 1)
  
  redisSetBit(sourcekeys[2], 1, 1)
  redisSetBit(sourcekeys[2], 4, 1)
  redisSetBit(sourcekeys[2], 5, 1)
  redisSetBit(sourcekeys[2], 100, 1)
  
  redisSetBit(sourcekeys[3], 1, 1)
  redisSetBit(sourcekeys[3], 6, 1)
  redisSetBit(sourcekeys[3], 7, 1)
  redisSetBit(sourcekeys[3], 100, 1)
  
  # id 1 and 100 are present in all keys.
  operation <- 'AND'
  destkey <- 'bitmapr_test04_dest'
  
  redisBitOp(operation, destkey, sourcekeys)
  checkEquals(2, redisBitCount(destkey))
  checkEquals(0, redisGetBit(destkey, 5))
  checkEquals(1, redisGetBit(destkey, 1))

}