            (second (:tau autocorrelation)) => (roughly 20.41 0.001)
            (entry (:sigma autocorrelation) 0) => (roughly 0.009 0.001)))))))
 
-#_(with-default
+(with-default
   (with-release [factory (gcn-bayadera-factory *context* *command-queue*)
                  library (device-library factory)]
     (test-all library)))

                      native-sample (native smpl)]
         (let [sample-1d (row native-sample 0)]
           (seq (subvector sample-1d 0 4))
           => (list -27.02086639404297 55.27095031738281 185.74420166015625 322.7049560546875)
           (seq (subvector sample-1d 9996 4))
           => (list 175.25137329101562 7.7207489013671875 126.18175506591797 -69.49845886230469)
           (entry sample-1d (imax sample-1d)) => 868.6443481445312
           (entry sample-1d (imin sample-1d)) => -610.0803833007812
           (mean sample-1d) => 95.13473203125)))

      (facts
       "OpenCL GCN direct sampler for Erlang distribution"

           (enq-kernel! cqueue stretch-move-bare-kernel (work-size-1d (/ walker-count 2)))
           (enq-copy! cqueue cl-xs (buffer res))
           (take 4 (native (row res 0)))
           => [0.7279692888259888 1.81407630443573 0.040318019688129425 0.4697103202342987]

           (set-args! stretch-move-bare-kernel 0 (wrap-int seed) (wrap-int 3333) (wrap-int 0) (wrap-int 2)
                      cl-params cl-s1 cl-s0 cl-logfn-s0 (wrap-float a) (wrap-float 1.0) (wrap-int 1))
