                       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)
+           => [-27.020862579345703 55.27095031738281 185.7442169189453 322.7049560546875]
            (seq (subvector sample-1d 9996 4))
-           => (list 175.25137329101562 7.7207489013671875 126.18175506591797 -69.49845886230469)
+           => [175.25137329101562 7.720747470855713 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)))
+           (mean sample-1d) => 95.1347296875)))
 
       (facts
        "OpenCL GCN direct sampler for Erlang distribution"

           (second (:tau autocorrelation)) => (roughly 20.41 0.001)
           (entry (:sigma autocorrelation) 0) => (roughly 0.009 0.001)))))))

#_(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))
           => [108.93402099609375 139.30517578125 -82.35221862792969 47.42252731323242]
           (seq (subvector sample-1d 9996 4))
           => [17.43636131286621 151.42117309570312 42.78262710571289 107.87583923339844]
           (entry sample-1d (imax sample-1d)) => 200.0757293701172
           (entry sample-1d (imin sample-1d)) => -99.86572265625
           (mean sample-1d) => 51.331178125)))

      (facts
       "OpenCL GCN direct sampler for Gaussian distribution"
