anchor.diff:                  (is +cl-success+ (cl-release-command-queue command-queue))))))))))
   
   (subtest "Memmory Object API"
  -  (subtest "invalid params."
  +  (subtest "can call functions."
       (ok (cl-create-buffer (null-pointer)
                             0
                             0
  
positive.code:                                                    0
                                                     0
                                                     (null-pointer)
                                                     (null-pointer)))))
  
  (finalize)
  
negative.code: ;; NOTE: To run this test file, execute `(asdf:test-system :cl-oclapi)' in your Lisp.
  
  (plan 5)
  
  (defun set-platform-id (properties platform-id)
    (setf (mem-aref properties 'cl-context-properties 0) +cl-context-platform+)
    (setf (mem-aref properties 'cl-platform-id 1) platform-id)
    (setf (mem-aref properties 'cl-context-properties 2) 0))
  
  (subtest "platform API"
    (with-foreign-objects ((platforms 'cl-platform-id)
  