1 files changed, 117 insertions, 0 deletions
diff --git a/tests/test_platform.cpp b/tests/test_platform.cpp
new file mode 100644
index 0000000..516c652
--- /dev/null
+++ b/tests/test_platform.cpp
@@ -0,0 +1,117 @@
+/*
+ * Copyright (c) 2011, Denis Steckelmacher <steckdenis@yahoo.fr>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *     * Redistributions of source code must retain the above copyright
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright
+ *       notice, this list of conditions and the following disclaimer in the
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the copyright holder nor the
+ *       names of its contributors may be used to endorse or promote products
+ *       derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+ * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+ * DISCLAIMED. IN NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY
+ * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+ * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+ * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+ * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include "test_platform.h"
+
+#include "CL/cl.h"
+
+START_TEST (test_get_platform_ids)
+{
+    cl_platform_id platform = 0;
+    cl_uint num_platforms = 0;
+    cl_int result = 0;
+
+    result = clGetPlatformIDs(0, &platform, &num_platforms);
+    fail_if(
+        result != CL_INVALID_VALUE,
+        "num_entries cannot be NULL when *platforms is provided"
+    );
+
+    result = clGetPlatformIDs(0, 0, 0);
+    fail_if(
+        result != CL_INVALID_VALUE,
+        "Both num_platforms and *platforms cannot be NULL at the same time"
+    );
+
+    result = clGetPlatformIDs(1, 0, &num_platforms);
+    fail_if(
+        result != CL_SUCCESS || num_platforms == 0,
+        "When *platforms is NULL, success and put the number of platforms in num_platforms"
+    );
+
+    result = clGetPlatformIDs(1, &platform, &num_platforms);
+    fail_if(
+        result != CL_SUCCESS,
+        "It's bad to fail when the function is used in the most common sense"
+    );
+}
+END_TEST
+
+START_TEST (test_get_platform_info)
+{
+    cl_platform_id platform = 0;
+    cl_uint num_platforms = 0;
+    cl_int result = 0;
+    char *buf[100];
+    size_t buf_len = 0;
+
+    result = clGetPlatformIDs(1, &platform, &num_platforms);
+    fail_if(
+        result != CL_SUCCESS,
+        "It's bad to fail when the function is used in the most common sense"
+    );
+
+    result = clGetPlatformInfo((_cl_platform_id *) -1, CL_PLATFORM_PROFILE, sizeof(buf), buf, &buf_len);
+    fail_if(
+        result != CL_INVALID_PLATFORM,
+        "-1 is not a valid platform"
+    );
+
+    result = clGetPlatformInfo(platform, 1337, sizeof(buf), buf, &buf_len);
+    fail_if(
+        result != CL_INVALID_VALUE,
+        "1337 is not a valid param_name"
+    );
+
+    result = clGetPlatformInfo(platform, CL_PLATFORM_PROFILE, 0, buf, &buf_len);
+    fail_if(
+        result != CL_INVALID_VALUE,
+        "param_value_size cannot be NULL when a buffer is supplied"
+    );
+
+    result = clGetPlatformInfo(platform, CL_PLATFORM_PROFILE, 0, 0, &buf_len);
+    fail_if(
+        result != CL_SUCCESS || buf_len == 0,
+        "We are allowed not to pass a buffer. The function must fill param_value_size_ret"
+    );
+
+    result = clGetPlatformInfo(platform, CL_PLATFORM_PROFILE, sizeof(buf), buf, &buf_len);
+    fail_if(
+        result != CL_SUCCESS || buf_len == 0,
+        "It's bad to fail when the function is used in the most common sense"
+    );
+}
+END_TEST
+
+TCase *cl_platform_tcase_create(void)
+{
+    TCase *tc = NULL;
+    tc = tcase_create("platform");
+    tcase_add_test(tc, test_get_platform_ids);
+    tcase_add_test(tc, test_get_platform_info);
+    return tc;
+}