anchor.diff:                                                      errcode-ret)))
             (is +cl-success+ (cl-retain-context context))))
         (subtest "clReleaseContext"
  -        (is +cl-invalid-context+ (cl-release-context (null-pointer)))
           (let ((context (cl-create-context-from-type properties
                                                       +cl-device-type-default+
                                                       (null-pointer)
  
positive.code:                                                     errcode-ret)))
            (is +cl-success+ (cl-release-context context))))
        (subtest "clGetContextInfo"
          (is +cl-invalid-context+ (cl-get-context-info (null-pointer)
                                                        0
                                                        0
                                                        (null-pointer)
                                                        (null-pointer)))
          (let ((context (cl-create-context-from-type properties
                                                      +cl-device-type-default+
                                                      (null-pointer)
  
negative.code:           (is +cl-success+ (mem-aref errcode-ret 'cl-int))
            (ok context)))
        (subtest "clRetainContext"
          (let ((context (cl-create-context-from-type properties
                                                      +cl-device-type-default+
                                                      (null-pointer)
  