anchor.diff:            (cl-release-context context))))))
   
   (subtest "Command Queue API"
  -  (subtest "invalid params."
  +  (subtest "can call functions."
       (ok (cl-create-command-queue (null-pointer)
                                    (null-pointer)
                                    0
  
positive.code:                 (is +cl-success+ (cl-release-command-queue command-queue))))))))))
  
  (subtest "Memmory Object API"
    (subtest "invalid params."
      (ok (cl-create-buffer (null-pointer)
                            0
                            0
  
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)
  