a b/tests/testthat/test-spine.R 

  1
  
bma_out <- biomkrAccrual(quietly = TRUE)





  
  

  2
  





  
  

  3
  
test_that("Output of biomkrAccrual() should be an S7 object", {





  
  

  4
  
  checkmate::expect_class(bma_out, "S7_object")





  
  

  5
  
})





  
  

  6
  





  
  

  7
  
test_that("Property accrual of output of biomkrAccrual() should be an array", {





  
  

  8
  
  checkmate::expect_class(bma_out@accrual, "array")





  
  

  9
  
})