[TEST] prepare

Caldrin · Oct 22, 2012 · 401dedf · 401dedf
1 parent a9ff529
commit 401dedf
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 8 deletions.
diff --git a/t/01-opencl-convenient.t b/t/01-opencl-convenient.t
@@ -4,13 +4,13 @@ use strict;
 use warnings;
 use 5.010;
 
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 use lib 't/lib/';
 
-BEGIN { use_ok('OpenCL::Convenient') }
+BEGIN { use_ok('OpenCL::Convenient::Testing') }
 
 
-my $retval = OpenCL::Convenient::prepare('test');
+my $retval = OpenCL::Convenient::Testing::prepare('testing');
 
-is($retval, undef, 'OpenCL preparation finished');
+is(ref $retval, 'OpenCL::Kernel', 'OpenCL preparation finished');
diff --git a/t/lib/OpenCL/Convenient/Testing.pm b/t/lib/OpenCL/Convenient/Testing.pm
@@ -0,0 +1,10 @@
+package OpenCL::Convenient::Testing;
+
+use OpenCL::Convenient;
+
+sub prepare
+{
+        OpenCL::Convenient::prepare(@_);
+}
+
+1; # End of OpenCL::Convenient::Testing
diff --git a/t/lib/auto/OpenCL/Convenient/Testing/testing.cl b/t/lib/auto/OpenCL/Convenient/Testing/testing.cl
@@ -0,0 +1,4 @@
+__kernel void testing()
+{
+        return;
+}
diff --git a/t/lib/auto/main/test.cl b/t/lib/auto/main/test.cl