test all available opencl devices

Author: SimonDanisch

src/context.jl

@@ -11,7 +11,7 @@ end
 function show(io::IO, ctx::CLContext)
     println(io, "OpenCL context with:")
     println(io, "CL version: ", cl.info(ctx.device, :version))
-    device_summary(io, ctx.device)
+    GPUArrays.device_summary(io, ctx.device)
 end
 
 function CLContext(device::cl.Device)
@@ -47,7 +47,7 @@ function device(x::cl.Context)
 end
 
 
-
+global init
 let contexts = Dict{cl.Device, CLContext}(), active_device = cl.Device[], clcontext2context = Dict{cl.Context, CLContext}()
     function getcontext!(ctx::cl.Context)
         if haskey(clcontext2context, ctx)

src/device.jl

@@ -4,10 +4,7 @@ import GPUArrays: supports_double, local_memory
 function devices()
     filter(cl.devices()) do dev
         # These drivers have some problems -  TODO figure out if we are the problem
-        !(
-            contains(cl.info(dev, :version), "AMD-APP (2348.3)") || #AMD for intel. Why though?
-            contains(cl.info(dev, :version), "(Build 10)") # intels experimental 2.1 driver
-        )
+        !contains(cl.info(dev, :version), "(Build 10)") # intels experimental 2.1 driver
     end
 end
 

test/runtests.jl

@@ -15,6 +15,10 @@ if (
 end
 
 using CLArrays
-using GPUArrays.TestSuite
-
-TestSuite.run_tests(CLArray)
+using GPUArrays.TestSuite, Base.Test
+for dev in CLArrays.devices()
+    CLArrays.init(dev)
+    @testset "Device: $dev" begin
+        TestSuite.run_tests(CLArray)
+    end
+end