tests/testthat/test-expt_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::expt::changes_applied::single::")
test_that("changes must be applied",
{
  
   connect.dataset.1() 
   values.to.replace <- c(-1000000)
  .test.apply.changes('D$NEGATIVE_NUMERIC','NEG_NUM_recoded',ds.test_env$local.values.1,13,values.to.replace)
  .test.apply.changes('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
  .test.apply.changes('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
            
   values.to.replace <- c(8000)
  .test.apply.changes('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
 
  .test.apply.changes('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
  .test.apply.changes('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
  .test.apply.changes('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
            
   values.to.replace <- c(100000)
   .test.apply.changes('D$NON_NEGATIVE_INTEGER','NON_NEG_INT_recoded',ds.test_env$local.values.1,7, values.to.replace)
   .test.apply.changes('D$NON_NEGATIVE_NUMERIC','NON_NEG_NUM_recoded',ds.test_env$local.values.1,11, values.to.replace)
           
   connect.dataset.1() 
   values.to.replace <- c(-100000,-200000)
  .test.apply.changes('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
  .test.apply.changes('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
  .test.apply.changes('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
            
   values.to.replace <- c(0,200000)
   .test.apply.changes('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
   .test.apply.changes('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
   .test.apply.changes('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
   .test.apply.changes('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
            
    values.to.replace <- c(100000,200000)
   .test.apply.changes('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
   .test.apply.changes('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
})


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



  context("ds.recodeValues::expt::no_change_applied::single")
  test_that("no_change_applied",
  {
      connect.dataset.1() 
      values.to.replace <- c()
      .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
      .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
      .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
      .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
      .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
      .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
      .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
      .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
      .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
              
      connect.dataset.1() 
      values.to.replace <- c(-100)
      .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
      .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
      .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
              
      values.to.replace <- c(0)
      .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
      .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
      .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
      .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
              
      values.to.replace <- c(100)
      .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEG_INT_recoded',ds.test_env$local.values.1,7, values.to.replace)
      .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEG_NUM_recoded',ds.test_env$local.values.1,11, values.to.replace)
              
      values.to.replace <- c(-100,-200)
      .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,13,values.to.replace)
      .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values.1,15,values.to.replace)
      .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,9,values.to.replace)
              
      values.to.replace <- c(0,200)
      .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values.1,6,values.to.replace)
      .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values.1,8,values.to.replace)
      .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values.1,10,values.to.replace)
      .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values.1,12,values.to.replace)
              
      values.to.replace <- c(100,200)
      .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values.1,7, values.to.replace)
      .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values.1,11, values.to.replace)
  })            
              
          
context("ds.recodeValues::expt::no_change_applied::multiple")
test_that("no_change_applied",
{
    connect.all.datasets()
    values.to.replace <- c()
    .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,13,values.to.replace)
    .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values,15,values.to.replace)
   .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values,9,values.to.replace)
            
    values.to.replace <- c()
    .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values,6,values.to.replace)
    .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values,8,values.to.replace)
    .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values,10,values.to.replace)
    .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values,12,values.to.replace)
            
    values.to.replace <- c()
    .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values,7, values.to.replace)
    .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,11, values.to.replace)
            
    values.to.replace <- c(-100)
    .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,13,values.to.replace)
    .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values,15,values.to.replace)
    .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values,9,values.to.replace)
            
    values.to.replace <- c(0)
    .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values,6,values.to.replace)
    .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values,8,values.to.replace)
    .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values,10,values.to.replace)
    .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values,12,values.to.replace)
            
    values.to.replace <- c(100)
    .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values,7, values.to.replace)
    .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,11, values.to.replace)
     
    connect.all.datasets()
    values.to.replace <- c(-100,-200)
    .test.apply.no.change('D$NEGATIVE_NUMERIC','NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,13,values.to.replace)
    .test.apply.no.change('D$FACTOR_INTEGER','FACTOR_INTEGER_recoded',ds.test_env$local.values,15,values.to.replace)
    .test.apply.no.change('D$NEGATIVE_INTEGER','NEGATIVE_INTEGER_recoded',ds.test_env$local.values,9,values.to.replace)
            
    values.to.replace <- c(0,200)
    .test.apply.no.change('D$INTEGER','INTEGER_recoded',ds.test_env$local.values,6,values.to.replace)
    .test.apply.no.change('D$POSITIVE_INTEGER','POSITIVE_INTEGER_recoded',ds.test_env$local.values,8,values.to.replace)
    .test.apply.no.change('D$NUMERIC','NUMERIC_recoded',ds.test_env$local.values,10,values.to.replace)
    .test.apply.no.change('D$POSITIVE_NUMERIC','POSITIVE_NUMERIC_recoded',ds.test_env$local.values,12,values.to.replace)
            
    values.to.replace <- c(100,200)
    .test.apply.no.change('D$NON_NEGATIVE_INTEGER','NON_NEGATIVE_INTEGER_recoded',ds.test_env$local.values,7, values.to.replace)
    .test.apply.no.change('D$NON_NEGATIVE_NUMERIC','NON_NEGATIVE_NUMERIC_recoded',ds.test_env$local.values,11, values.to.replace)
})