[Piglit] [PATCH] cl: test clGetKernelArgInfo
EdB
edb+piglit at sigluy.net
Tue Mar 3 11:01:14 PST 2015
On Monday 02 March 2015 17:42:01 Jan Vesely wrote:
> sorry, it took me a while to find some free time, comments inlined.
>
> Have you tested it on any implementation that actually passes the test?
There is patch awaiting for review on mesa list. With it, clover pass the
test.
I've also test against AMD catalyst. The test failed on
CL_KERNEL_ARG_INFO_NOT_AVAILABLE because kernel info were always available
>
> On Sun, 2014-12-28 at 14:23 +0100, EdB wrote:
> > ---
> >
> > tests/cl/api/CMakeLists.cl.txt | 1 +
> > tests/cl/api/get-kernel-arg-info.c | 229
> > +++++++++++++++++++++++++++++++++++++ tests/util/piglit-util-cl-enum.c
> > | 11 ++
> > tests/util/piglit-util-cl-enum.h | 1 +
>
> you'll need to add the test to cl.py too
indeed, I know why I forgot that...
>
> > 4 files changed, 242 insertions(+)
> > create mode 100644 tests/cl/api/get-kernel-arg-info.c
> >
> > diff --git a/tests/cl/api/CMakeLists.cl.txt
> > b/tests/cl/api/CMakeLists.cl.txt index 7e78491..3082411 100644
> > --- a/tests/cl/api/CMakeLists.cl.txt
> > +++ b/tests/cl/api/CMakeLists.cl.txt
> > @@ -41,6 +41,7 @@ piglit_cl_add_api_test (create-kernels-in-program
> > create-kernels-in-program.c)>
> > piglit_cl_add_api_test (set-kernel-arg set-kernel-arg.c)
> > piglit_cl_add_api_test (retain_release-kernel retain_release-kernel.c)
> > piglit_cl_add_api_test (get-kernel-info get-kernel-info.c)
> >
> > +piglit_cl_add_api_test (get-kernel-arg-info get-kernel-arg-info.c)
> >
> > piglit_cl_add_api_test (get-kernel-work-group-info
> > get-kernel-work-group-info.c)
> >
> > # Events
> >
> > diff --git a/tests/cl/api/get-kernel-arg-info.c
> > b/tests/cl/api/get-kernel-arg-info.c new file mode 100644
> > index 0000000..7e6c8df
> > --- /dev/null
> > +++ b/tests/cl/api/get-kernel-arg-info.c
> > @@ -0,0 +1,229 @@
> > +/*
> > + * Copyright © 2014 EdB <edb+piglit at sigluy.net>
> > + *
> > + * Permission is hereby granted, free of charge, to any person obtaining
> > a
> > + * copy of this software and associated documentation files (the
> > "Software"), + * to deal in the Software without restriction, including
> > without limitation + * the rights to use, copy, modify, merge, publish,
> > distribute, sublicense, + * and/or sell copies of the Software, and to
> > permit persons to whom the + * Software is furnished to do so, subject to
> > the following conditions: + *
> > + * The above copyright notice and this permission notice (including the
> > next + * paragraph) shall be included in all copies or substantial
> > portions of the + * Software.
> > + *
> > + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
> > EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
> > MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND
> > NONINFRINGEMENT. IN NO EVENT SHALL + * THE AUTHORS OR COPYRIGHT HOLDERS
> > BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN
> > ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + * FROM, OUT OF OR IN
> > CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + * DEALINGS IN THE
> > SOFTWARE.
> > + *
> > + * copied from get-kernel-info.c
> > + * Copyright © 2012 Blaž Tomažič <blaz.tomazic at gmail.com>
> > + */
> > +
> > +/**
> > + * @file get-kernel-arg-info.c
> > + *
> > + * Test API function:
> > + *
> > + * cl_int clGetKernelArgInfo (cl_kernel kernel,
> > + * cl_uint arg_indx,
> > + * cl_kernel_arg_info param_name,
> > + * size_t param_value_size,
> > + * void *param_value,
> > + * size_t *param_value_size_ret)
> > + */
> > +
> > +#include "piglit-framework-cl-api.h"
> > +
> > +
> > +PIGLIT_CL_API_TEST_CONFIG_BEGIN
> > +
> > + config.name = "clGetKernelArgInfo";
> > + config.version_min = 12;
> > +
> > + config.run_per_platform = true;
> > + config.create_context = true;
> > +
> > + config.program_source = "kernel void dummy_kernel(int param_1) {}";
> > + config.build_options = "-cl-kernel-arg-info";
> > +
> > +PIGLIT_CL_API_TEST_CONFIG_END
> > +
> > +
> > +enum piglit_result
> > +piglit_cl_test(const int argc,
> > + const char** argv,
> > + const struct piglit_cl_api_test_config* config,
> > + const struct piglit_cl_api_test_env* env)
> > +{
> > +#if defined(CL_VERSION_1_2)
> > + enum piglit_result result = PIGLIT_PASS;
> > +
> > + int i;
> > + cl_int errNo;
> > + cl_kernel kernel;
> > +
> > + size_t param_value_size;
> > + void* param_value;
> > +
> > + int num_kernel_arg_infos = PIGLIT_CL_ENUM_NUM(cl_kernel_arg_info,
> > env->version); + const cl_kernel_arg_info* kernel_arg_infos =
> > PIGLIT_CL_ENUM_ARRAY(cl_kernel_arg_info); +
> > + kernel = clCreateKernel(env->program,
> > + "dummy_kernel",
> > + &errNo);
> > + if(!piglit_cl_check_error(errNo, CL_SUCCESS)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Create kernel.\n",
> > + piglit_cl_get_error_name(errNo));
> > + return PIGLIT_FAIL;
> > + }
> > +
> > + /*** Normal usage ***/
> > + for(i = 0; i < num_kernel_arg_infos; ++i) {
> > + printf("%s ", piglit_cl_get_enum_name(kernel_arg_infos[i]));
> > +
> > + errNo = clGetKernelArgInfo(kernel,
> > + 0,
> > + kernel_arg_infos[i],
> > + 0,
> > + NULL,
> > + ¶m_value_size);
>
> we might want to check the correctness of the returned value, too.
At first, I just want to test the API.
>
> > + if(!piglit_cl_check_error(errNo, CL_SUCCESS)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Get size of %s.\n",
> > + piglit_cl_get_error_name(errNo),
> > + piglit_cl_get_enum_name(kernel_arg_infos[i]));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + continue;
> > + }
> > +
> > + param_value = malloc(param_value_size);
> > + errNo = clGetKernelArgInfo(kernel,
> > + 0,
> > + kernel_arg_infos[i],
> > + param_value_size,
> > + param_value,
> > + NULL);
> > + if(!piglit_cl_check_error(errNo, CL_SUCCESS)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Get value of %s.\n",
> > + piglit_cl_get_error_name(errNo),
> > + piglit_cl_get_enum_name(kernel_arg_infos[i]));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + //TODO: test returned values
> > + printf("\n");
> > + free(param_value);
> > + }
> > +
> > + /*** Errors ***/
> > +
> > + /*
> > + * CL_INVALID_ARG_INDEX if arg_indx is not a valid argument index.
> > + */
> > + errNo = clGetKernelArgInfo(kernel,
> > + 99,
> > + CL_KERNEL_ARG_NAME,
> > + 0,
> > + NULL,
> > + ¶m_value_size);
> > + if(!piglit_cl_check_error(errNo, CL_INVALID_ARG_INDEX)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Trigger CL_INVALID_ARG_INDEX
if
> > arg_indx is not a valid argument index.\n",
> linewrap
Other cl api test don't wrap error message, maybe to be able to grep for them.
I was been consistent
>
> > + piglit_cl_get_error_name(errNo));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + /*
> > + * CL_INVALID_VALUE if param_name is not one of the supported
> > + * values or if size in bytes specified by param_value_size is
> > + * less than size of return type and param_value is not a NULL
> > + * value.
> > + */
> > + errNo = clGetKernelArgInfo(kernel,
> > + 0,
> > + CL_DEVICE_NAME,
> > + 0,
> > + NULL,
> > + ¶m_value_size);
> > + if(!piglit_cl_check_error(errNo, CL_INVALID_VALUE)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Trigger CL_INVALID_VALUE if
> > param_name is not one of the supported values.\n",
> linewrap
see above
>
> > + piglit_cl_get_error_name(errNo));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + errNo = clGetKernelArgInfo(kernel,
> > + 0,
> > + CL_KERNEL_ARG_NAME,
> > + 1,
> > + param_value,
> > + NULL);
> > + if(!piglit_cl_check_error(errNo, CL_INVALID_VALUE)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Trigger CL_INVALID_VALUE if
size in
> > bytes specified by param_value is less than size of return type and
> > param_value is not a NULL value.\n",
> linewrap
see above above :)
> > + piglit_cl_get_error_name(errNo));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + /*
> > + * CL_KERNEL_ARG_INFO_NOT_AVAILABLE
> > + * if the argument information is not available for kernel.
> > + */
> > +{
> > + char* strings[] = { "kernel void dummy_kernel(int param_a) {}" };
> > +
> > + cl_program prog = piglit_cl_build_program_with_source(env->context,
> > + 1,
> > + strings,
> > + "");
> > + cl_kernel kern = piglit_cl_create_kernel(prog, "dummy_kernel");
> > +
> > + errNo = clGetKernelArgInfo(kern,
> > + 0,
> > + CL_KERNEL_ARG_NAME,
> > + 0,
> > + NULL,
> > + ¶m_value_size);
> > + if(!piglit_cl_check_error(errNo, CL_KERNEL_ARG_INFO_NOT_AVAILABLE)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Trigger
> > CL_KERNEL_ARG_INFO_NOT_AVAILABLE" + " if the argument
> > information is not available for kernel.\n", +
> > piglit_cl_get_error_name(errNo));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + clReleaseKernel(kern);
> > + clReleaseProgram(prog);
> > +}
> > +
> > + /*
> > + * CL_INVALID_KERNEL if kernel is not a valid kernel object.
> > + */
> > + errNo = clGetKernelArgInfo(NULL,
> > + 0,
> > + CL_KERNEL_ARG_NAME,
> > + 0,
> > + NULL,
> > + ¶m_value_size);
> > + if(!piglit_cl_check_error(errNo, CL_INVALID_KERNEL)) {
> > + fprintf(stderr,
> > + "Failed (error code: %s): Trigger CL_INVALID_KERNEL if
kernel
> > is not a valid kernel object.\n", +
> > piglit_cl_get_error_name(errNo));
> > + piglit_merge_result(&result, PIGLIT_FAIL);
> > + }
> > +
> > + clReleaseKernel(kernel);
> > +
> > + return result;
> > +#else
> > + return PIGLIT_SKIP;
> > +#endif
> > +}
> > +
> > diff --git a/tests/util/piglit-util-cl-enum.c
> > b/tests/util/piglit-util-cl-enum.c index 5a38e01..3156ce2 100644
> > --- a/tests/util/piglit-util-cl-enum.c
> > +++ b/tests/util/piglit-util-cl-enum.c
> > @@ -750,6 +750,17 @@ PIGLIT_CL_DEFINE_ENUM_2(cl_kernel_info, 5, 5, 6) = {
> >
> > };
> > PIGLIT_CL_DEFINE_ENUM_PTR_2(cl_kernel_info);
> >
> > +PIGLIT_CL_DEFINE_ENUM_2(cl_kernel_arg_info, 0, 0, 5) = {
> > +#ifdef CL_VERSION_1_2
> > + CL_KERNEL_ARG_ADDRESS_QUALIFIER,
> > + CL_KERNEL_ARG_ACCESS_QUALIFIER,
> > + CL_KERNEL_ARG_TYPE_NAME,
> > + CL_KERNEL_ARG_TYPE_QUALIFIER,
> > + CL_KERNEL_ARG_NAME, //5
> > +#endif //CL_VERSION_1_2
> > +};
> > +PIGLIT_CL_DEFINE_ENUM_PTR_2(cl_kernel_arg_info);
> > +
> >
> > PIGLIT_CL_DEFINE_ENUM_2(cl_kernel_work_group_info, 3, 5, 6) = {
> >
> > CL_KERNEL_WORK_GROUP_SIZE,
> > CL_KERNEL_COMPILE_WORK_GROUP_SIZE,
> >
> > diff --git a/tests/util/piglit-util-cl-enum.h
> > b/tests/util/piglit-util-cl-enum.h index 16c8d3e..f956c8b 100644
> > --- a/tests/util/piglit-util-cl-enum.h
> > +++ b/tests/util/piglit-util-cl-enum.h
> > @@ -81,6 +81,7 @@ PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_program_info);
> >
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_program_build_info);
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_mem_info);
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_kernel_info);
> >
> > +PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_kernel_arg_info);
> >
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_kernel_work_group_info);
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_event_info);
> > PIGLIT_CL_DEFINE_ENUM_PROTOTYPE_2(cl_image_info);
>
> jan
More information about the Piglit
mailing list