tests/testthat/test-math_bug-ds.recodeValues.R

In datashield/dsBaseClient: DataSHIELD Client Functions

source("connection_to_datasets/init_testing_datasets.R")
source("definition_tests/def-ds.recodeValues.R")


context("ds.recodeValues::math::single")
test_that("difference",
{
  connect.dataset.1() 
  values.to.replace <- c()
  .test.differences.in.sets('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
  .test.differences.in.sets('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
  .test.differences.in.sets('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
  
  .test.differences.in.sets('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
  .test.differences.in.sets('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
  .test.differences.in.sets('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
  .test.differences.in.sets('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
  .test.differences.in.sets('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
  .test.differences.in.sets('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
  
  
  connect.dataset.1() 
  values.to.replace <- c(1000)
  .test.differences.in.sets('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
  .test.differences.in.sets('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
  .test.differences.in.sets('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
  .test.differences.in.sets('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
  .test.differences.in.sets('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
  .test.differences.in.sets('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
  .test.differences.in.sets('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)

  values.to.replace <- c(-1000)
  .test.differences.in.sets('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
  
  .test.differences.in.sets('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
  
  values.to.replace <- c(100,200)
 .test.differences.in.sets('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
 .test.differences.in.sets('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
 .test.differences.in.sets('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
 .test.differences.in.sets('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
 .test.differences.in.sets('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
 .test.differences.in.sets('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
 .test.differences.in.sets('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
 
 values.to.replace <- c(-1000,-2000)
 .test.differences.in.sets('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
 .test.differences.in.sets('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
 
 values.to.replace <- c(100,200,300)
 .test.differences.in.sets('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
 .test.differences.in.sets('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
 .test.differences.in.sets('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
 .test.differences.in.sets('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
 .test.differences.in.sets('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
 .test.differences.in.sets('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
 .test.differences.in.sets('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
 
 values.to.replace <- c(-1000,-2000,-3000)
 .test.differences.in.sets('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
 .test.differences.in.sets('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
 

})



context("ds.recodeValues::math::multiple")
test_that("difference",
          {
            connect.all.datasets() 
            values.to.replace <- c(0,200)
            .test.differences.in.sets('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
            .test.differences.in.sets('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
            .test.differences.in.sets('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
            .test.differences.in.sets('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
            .test.differences.in.sets('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
            .test.differences.in.sets('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
            .test.differences.in.sets('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
            .test.differences.in.sets('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
            .test.differences.in.sets('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
          })