anchor.diff:    (return))
   
   (with-cuda-context (0)
  -  (ok (test-when :grid-dim '(1 1 1) :block-dim '(1 1 1))
  -      "basic case 19"))
  +  (is (test-when :grid-dim '(1 1 1) :block-dim '(1 1 1))
  +      nil "basic case 19"))
   
   ;; test kernel symbol macro
   (defkernel-symbol-macro x 1)
  
positive.code:     (setf (memory-block-aref a 0) nil
            (memory-block-aref a 1) t)
      (sync-memory-block a :host-to-device)
      (ok (kernel-bool a :grid-dim '(1 1 1) :block-dim '(1 1 1))
          "basic case 4")
      (sync-memory-block a :device-to-host)
      (is (memory-block-aref a 0) t
          "basic case 5")
  
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")))
  