inst/unitTests/test_LevelFilter.R

In jotsetung/atc: Data package providing ATC codes

test_LevelFilter_constructor <- function(){
    lf <- LevelFilter(1)
    checkException(LevelFilter("sd"))
    checkEquals(atc:::where(lf), "= 1")
    checkEquals(atc:::where(lf, atc), "atc.level = 1")

    checkEquals(atc:::column(lf), "level")
    checkEquals(atc:::column(lf, atc), "atc.level")
}

test_LevelFilterQuery <- function(){
    lf <- LevelFilter(1)
    res <- atcs(atc, filter = lf)
    checkTrue(all(res$level == 1))
    library(RSQLite)
    resM <- dbGetQuery(dbconn(atc), "select * from atc where level = 1 order by key asc")
    checkEquals(res$key, resM$key)

    lf <- LevelFilter(1:3, condition = "==")
    res <- atcs(atc, filter = lf)
    checkTrue(all(res$level %in% 1:3))
    resM <- dbGetQuery(dbconn(atc), "select * from atc where level in (1, 2, 3) order by key asc")
    checkEquals(res$key, resM$key)
}


test_combineFilters <- function(){
    ## res <- atcs(atc, filter=list(LevelFilter(2),
    ##                              NameFilter("%respi%", condition="like")))
    ## checkEquals(res$key, "R07")
}