anchor.diff:                           (devices 'cl-device-id)
                            (num-devices 'cl-uint)
                            (errcode-ret 'cl-int))
  -    (is +cl-success+ (cl-get-platform-ids 1 platforms num-platforms) "create platform")
  +    (is-success (cl-get-platform-ids 1 platforms num-platforms) "create platform")
       (let ((platform (mem-aref platforms 'cl-platform-id)))
  -      (is +cl-success+ (cl-get-device-ids platform
  -                                          +cl-device-type-default+
  -                                          1
  -                                          devices
  -                                          num-devices) "create device")
  +      (is-success (cl-get-device-ids platform
  +                                     +cl-device-type-default+
  +                                     1
  +                                     devices
  +                                     num-devices) "create device")
         (let ((context (cl-create-context (null-pointer)
                                           1
                                           devices
  
positive.code:                                         (null-pointer)
                                          errcode-ret))
              (device (mem-aref devices 'cl-device-id)))
          (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create context")
          (let ((in (cl-create-buffer context
                                      +cl-mem-read-only+
                                      1
                                      (null-pointer)
                                      errcode-ret)))
            (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create buffer")
            (ok in "create buffer")
            (let ((out (cl-create-buffer context
                                       +cl-mem-write-only+
                                       1
                                       (null-pointer)
                                       errcode-ret)))
              (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create buffer")
              (ok out "create buffer")
              (let ((command-queue (cl-create-command-queue context
                                                            device
                                                            0
                                                            errcode-ret)))
                (is +cl-success+ (mem-aref errcode-ret 'cl-int) "create command queue")
                (ok command-queue "create command queue")
                (with-foreign-objects ((src-offset 'size-t)
                                       (dst-offset 'size-t)
  
negative.code:   (:use :cl
          :cl-oclapi
          :prove
          :cffi
          :cl-oclapi-test.init))
  (in-package :cl-oclapi-test.copy)
  
  (plan nil)
  