tests/testthat/test00_build_literal.R

In Paradigm4/scidbhelper: SCIDBHELPER

context("local checks")

test_that("build_literal_query test ",
          { expect_equal( scidbhelper::formulate_build_literal_query(c(1:5,3:5)),
            "build(<value_id:int64>[idx=0:4], '[1,2,3,4,5]', true)")})

test_that("base_selection_query test ",
          {expect_equal( scidbhelper::formulate_base_selection_query("feature_id",c(1:5)),
                         "(feature_id>=1 AND feature_id<=5)")})

test_that("drop_na_cols test ",
          { expect_equal( length(
            scidbhelper::drop_na_columns(
              data.frame(c(1:5),c(NA,NA,NA,NA,NA)))
            )
            ,5)
            expect_equal( ncol(
              scidbhelper::drop_na_columns(
                data.frame(c(1:5),c(NA,NA,NA,NA,NA),c("a","b","c","d","e")))
            )
            ,2)
            }
)