anchor.diff:            (memory-block-aref y 0) 0)
       (sync-memory-block x :host-to-device)
       (sync-memory-block y :host-to-device)
  -    (ok (test-atomic-add x :grid-dim '(1 1 1) :block-dim '(256 1 1))
  -        "basic case 13")
  -    (ok (test-no-atomic-add y :grid-dim '(1 1 1) :block-dim '(256 1 1))
  -        "basic case 14")
  +    (is (test-atomic-add x :grid-dim '(1 1 1) :block-dim '(256 1 1))
  +        nil "basic case 13")
  +    (is (test-no-atomic-add y :grid-dim '(1 1 1) :block-dim '(256 1 1))
  +        nil "basic case 14")
       (sync-memory-block x :device-to-host)
       (sync-memory-block y :host-to-device)
       (is (memory-block-aref x 0) 256
  
positive.code:   (return))
  
  (with-cuda-context (0)
    (ok (test-when :grid-dim '(1 1 1) :block-dim '(1 1 1))
        "basic case 19"))
  
  ;; test kernel symbol macro
  (defkernel-symbol-macro x 1)
  
negative.code:   (with-memory-blocks ((x 'int 1))
      (setf (memory-block-aref x 0) 0)
        (sync-memory-block x :host-to-device)
        (is (test-add x :grid-dim '(1 1 1) :block-dim '(1 1 1))
            nil "basic case 11")
        (sync-memory-block x :device-to-host)
        (is (memory-block-aref x 0) 3
            "basic case 12")))
  