1 files changed, 57 insertions, 0 deletions
diff --git a/src/boost/libs/compute/test/test_scatter.cpp b/src/boost/libs/compute/test/test_scatter.cpp
new file mode 100644
index 00000000..00c74b22
--- /dev/null
+++ b/src/boost/libs/compute/test/test_scatter.cpp
@@ -0,0 +1,57 @@
+//---------------------------------------------------------------------------//
+// Copyright (c) 2013 Kyle Lutz <kyle.r.lutz@gmail.com>
+//
+// Distributed under the Boost Software License, Version 1.0
+// See accompanying file LICENSE_1_0.txt or copy at
+// http://www.boost.org/LICENSE_1_0.txt
+//
+// See http://boostorg.github.com/compute for more information.
+//---------------------------------------------------------------------------//
+
+#define BOOST_TEST_MODULE TestScatter
+#include <boost/test/unit_test.hpp>
+
+#include <boost/compute/system.hpp>
+#include <boost/compute/algorithm/scatter.hpp>
+#include <boost/compute/container/vector.hpp>
+#include <boost/compute/iterator/constant_buffer_iterator.hpp>
+
+#include "check_macros.hpp"
+#include "context_setup.hpp"
+
+namespace bc = boost::compute;
+
+BOOST_AUTO_TEST_CASE(scatter_int)
+{
+    int input_data[] = { 1, 2, 3, 4, 5 };
+    bc::vector<int> input(input_data, input_data + 5, queue);
+
+    int map_data[] = { 0, 4, 1, 3, 2 };
+    bc::vector<int> map(map_data, map_data + 5, queue);
+
+    bc::vector<int> output(5, context);
+    bc::scatter(input.begin(), input.end(), map.begin(), output.begin(), queue);
+    CHECK_RANGE_EQUAL(int, 5, output, (1, 3, 5, 4, 2));
+}
+
+BOOST_AUTO_TEST_CASE(scatter_constant_indices)
+{
+    int input_data[] = { 1, 2, 3, 4, 5 };
+    bc::vector<int> input(input_data, input_data + 5, queue);
+
+    int map_data[] = { 0, 4, 1, 3, 2 };
+    bc::buffer map_buffer(context,
+                          5 * sizeof(int),
+                          bc::buffer::read_only | bc::buffer::use_host_ptr,
+                          map_data);
+
+    bc::vector<int> output(5, context);
+    bc::scatter(input.begin(),
+                input.end(),
+                bc::make_constant_buffer_iterator<int>(map_buffer, 0),
+                output.begin(),
+                queue);
+    CHECK_RANGE_EQUAL(int, 5, output, (1, 3, 5, 4, 2));
+}
+
+BOOST_AUTO_TEST_SUITE_END()