tests/testthat/test_kernelManager.R

In gpuMagic: An openCL compiler with the capacity to compile R functions and run the code on GPU

context("The functionality of the kernel manager")
skip_if(gpuMagic:::getTotalDeviceNum()==0)
N_size=1000

test_that("vector add",{
  A=runif(N_size)
  B=runif(N_size)
  dev_C=gpuEmptMatrix(N_size,1)
  
  #fileName="tests/testthat/opencl_code.c"
  fileName<- 'opencl_code.c'
  option=kernel.getOption()
  option$kernelMsg$insufficient.thread.num.warning=FALSE
  
  .kernel(src=fileName,kernel="vectorAdd",parms=list(A,B,dev_C),.options=option)
  
  dev_C=download(dev_C)
  C=as.vector(dev_C)
  
  expect_equal(sum(abs(C-A-B)),0)
})