1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131
|
/*******************************************************
* Copyright (c) 2015, ArrayFire
* All rights reserved.
*
* This file is distributed under 3-clause BSD license.
* The complete license agreement can be obtained at:
* http://arrayfire.com/licenses/BSD-3-Clause
********************************************************/
#include <gtest/gtest.h>
#include <arrayfire.h>
#if defined(AF_OPENCL)
#include <af/opencl.h>
#include <iostream>
using namespace std;
inline void checkErr(cl_int err, const char * name) {
if (err != CL_SUCCESS) {
std::cerr << "ERROR: " << name << " (" << err << ")" << std::endl;
exit(EXIT_FAILURE);
}
}
void getExternals(cl_device_id &deviceId, cl_context &context, cl_command_queue &queue)
{
static cl_device_id dId = NULL;
static cl_context cId = NULL;
static cl_command_queue qId = NULL;
static bool call_once = true;
if (call_once) {
cl_platform_id platformId = NULL;
cl_uint numPlatforms;
cl_uint numDevices;
cl_int errorCode = 0;
checkErr(clGetPlatformIDs(1, &platformId, &numPlatforms),
"Get Platforms failed");
checkErr(clGetDeviceIDs(platformId, CL_DEVICE_TYPE_DEFAULT, 1, &dId, &numDevices),
"Get cl_device_id failed");
cId = clCreateContext(NULL, 1, &dId, NULL, NULL, &errorCode);
checkErr(errorCode, "Context creation failed");
qId = clCreateCommandQueue(cId, dId, 0, &errorCode);
checkErr(errorCode, "Command queue creation failed");
call_once = false;
}
deviceId = dId;
context = cId;
queue = qId;
}
TEST(OCLExtContext, push)
{
cl_device_id deviceId = NULL;
cl_context context = NULL;
cl_command_queue queue = NULL;
getExternals(deviceId, context, queue);
int dCount = af::getDeviceCount();
printf("%d devices before afcl::addDevice\n", dCount);
af::info();
afcl::addDevice(deviceId, context, queue);
ASSERT_EQ(true, dCount+1==af::getDeviceCount());
printf("%d devices after afcl::addDevice\n", af::getDeviceCount());
af::info();
}
TEST(OCLExtContext, set)
{
cl_device_id deviceId = NULL;
cl_context context = NULL;
cl_command_queue queue = NULL;
getExternals(deviceId, context, queue);
afcl::setDevice(deviceId, context);
af::info();
const int x = 5;
const int y = 5;
const int s = x * y;
af::array a = af::constant(1, x, y);
vector<float> host(s);
a.host((void*)host.data());
for (int i=0; i<s; ++i)
ASSERT_EQ(host[i], 1.0f);
}
TEST(OCLExtContext, pop)
{
cl_device_id deviceId = NULL;
cl_context context = NULL;
cl_command_queue queue = NULL;
getExternals(deviceId, context, queue);
int dCount = af::getDeviceCount();
printf("%d devices before afcl::deleteDevice\n", dCount);
af::setDevice(0);
af::info();
afcl::deleteDevice(deviceId, context);
ASSERT_EQ(true, dCount-1==af::getDeviceCount());
printf("%d devices after afcl::deleteDevice\n", af::getDeviceCount());
af::info();
}
TEST(OCLCheck, DeviceType)
{
afcl::deviceType devType = afcl::getDeviceType();
cl_device_type type = -100;
clGetDeviceInfo(afcl::getDeviceId(),
CL_DEVICE_TYPE,
sizeof(cl_device_type),
&type,
NULL);
ASSERT_EQ(type, (cl_device_type)devType);
}
TEST(OCLCheck, DevicePlatform)
{
afcl::platform platform = afcl::getPlatform();
ASSERT_NE(platform, AFCL_PLATFORM_UNKNOWN);
}
#else
TEST(OCLExtContext, NoopCPU)
{
}
#endif
|