anchor.diff:      (with-memory-blocks ((a 'float 1))
         (setf (memory-block-aref a 0) 1.0)
         (sync-memory-block a :host-to-device)
  -      (ok (kernel-float3 a x :grid-dim '(1 1 1) :block-dim '(1 1 1))
  -          "basic case 7")
  +      (is (kernel-float3 a x :grid-dim '(1 1 1) :block-dim '(1 1 1))
  +          nil "basic case 7")
         (sync-memory-block a :device-to-host)
         (is (memory-block-aref a 0) 6.0
             "basic case 8"))))
  
positive.code:   (return 1))
  
  (with-cuda-context (0)
    (ok (use-one :grid-dim (list 1 1 1)
                 :block-dim (list 1 1 1))
        "basic case 2"))
  
  ;; test "argument" kernel
  (defkernel argument (void ((i int) (j float3)))
    (return))
  
  (with-cuda-context (0)
    (ok (argument 1 (make-float3 0.0 0.0 0.0) :grid-dim (list 1 1 1)
                                              :block-dim (list 1 1 1))
        "basic case 3"))
  
  ;; test "kernel-bool" kernel
  (defkernel kernel-bool (void ((a bool*)))
  
negative.code:   (with-memory-blocks ((x 'int 1))
      (setf (memory-block-aref x 0) 0)
      (sync-memory-block x :host-to-device)
      (is (test-do-kernel x :grid-dim '(1 1 1) :block-dim '(1 1 1))
          nil "basic case 9")
      (sync-memory-block x :device-to-host)
      (is (memory-block-aref x 0) 16
          "basic case 10")))
  