tests/testthat/test-independent-test-sfBetaDist.R

In keaven/gsDesign: Group Sequential Design

#-----------------------------------
### Testing sfBetaDist function
#-----------------------------------

testthat::test_that("Test: alpha - Checking Variable Type, Out-of-Range, 
                    Order-of-List", {
  testthat::expect_error(gsDesign::sfBetaDist(alpha = "abc", t = c(.1, .4),
                                              param = c(0.1, 0.2)),
                         info = "Checking for incorrect variable type")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = 0, t = c(.1, .4), 
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value")
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = -1, t = c(.1, .4),
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value")
  

})


testthat::test_that("Test: t - Checking Variable Type, Out-of-Range, Order-of-List",
                    {
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = "a", 
                                              param = c(0.1, 0.2)),
                         info = "Checking for incorrect variable type")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c("a","b"),
                                              param = c(0.1, 0.2)),
                         info = "Checking for incorrect variable type")
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c(-.5, .75),
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value")
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c(.5, -.75),
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value"
  )
  
 
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(1, -5),
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value")
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(-1, 5),
                                              param = c(0.1, 0.2)),
                         info = "Checking for out-of-range variable value")
  
})


testthat::test_that("Test: param - Checking Variable Type, Out-of-Range,
                    Order-of-List", {
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
                                              param = c("a", "b")), 
                         info = "Checking for incorrect variable type")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
                                              param = "a"), 
                         info = "Checking for incorrect variable type")
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
                                              param = 4), 
                         info = "Checking for incorrect variable type"
  )  
  
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025, t = c(.1, .4),
                                              param = c(.2, .55, .75)), 
                         info = "Checking for length of the variable")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha = .025,t = c(.1, .4),
                                            param = c(.2, .45, .55, 0.75, 0.85)), 
                         info = "Checking for length of the variable")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(1,0)), 
                         info = "Checking for out-of-range of the variable")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(1,-5)), 
                         info = "Checking for out-of-range of the variable")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),param=c(-3,-1)),  
                         info = "Checking for out-of-range of the variable")
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(NULL,0.2,0.05,.4)), 
                         info = "Checking for out-of-range of the variable"
  )
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(0.2,NULL,0.05,.4)), 
                         info = "Checking for out-of-range of the variable"
  )
  
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(0.1,0.01,0.1,0.4)), 
                         info = "Checking for order of the variable"
  )
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(0.01,0.1,0.4,0.1)), 
                         info = "Checking for order of the variable"
  )
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(0.01,-0.1,0.1,0.4)), 
                         info = "Checking for order of the variable"
  )
  
  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .1),
                                              param=c(0.01,0.1,0.1,0.1)), 
                         info = "Checking for order of the variable"
  )
  

  testthat::expect_error(gsDesign::sfBetaDist(alpha=.025,t=c(.1, .4),
                                              param=c(0.01,4,0.1,0.4)), 
                         info = "Checking for order of the variable"
  )
  
})


testthat::test_that("Test: output validation for param of length 2 :
                    Source: helper.R)", {

  t <- c(.01, .05, .1, .25, .5,1)
  param<-c(0.25,0.1)
  alpha<-0.025 
  
  sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
  expected_sp <- validate_sfBetaDist(alpha, t, param)
  expect_equal(sp,expected_sp)
  
})


testthat::test_that("Test: for param of length 2, t of length 5 :
                     Source: helper.R)", {
  
  t <- c(.01, .05, .1, .25, .5)
  param<-c(0.25,0.1)
  alpha<-0.025 
   
  sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
  expected_sp <- validate_sfBetaDist(alpha, t, param)
  expect_equal(sp,expected_sp)
  
})


testthat::test_that("Test: for param of length 2, t of length 7 :
                    Source: helper.R)", {
  
  t <- c(.01, .05, .1, .25, .5, 1, 1.02)
  param<-c(0.25,0.1)
  alpha<-0.025 

  sp <- gsDesign::sfBetaDist(alpha, t, param)$spend
  expected_sp <- validate_sfBetaDist(alpha, t, param)
  expect_equal(sp,expected_sp)
  
})