(in-package :qt.tests)

(5am:in-suite :qt.suite)

(5am:test gluint
  "GLuint conversion"
  (qt:with-app ()
    (let* ((texture (make-instance 'qt:pixmap))
           (gl-widget (make-instance 'qt:glwidget))
           (id (cxx:bind-texture gl-widget texture)))
      (5am:is (typep id '(integer 0)))
      (cxx:delete-texture gl-widget id))))
    

(5am:test glint
  "Test GLint and GLenum conversion."
  (qt:with-app ()
    (let* ((texture (make-instance 'qt:pixmap))
           (target 3553) ;(cffi:foreign-enum-value '%gl:enum :texture-2d))
           (format 6409) ;(cffi:foreign-enum-value '%gl:enum :rgba))
           (gl-widget (make-instance 'qt:glwidget))
           (id (cxx:bind-texture gl-widget texture target format)))
      (5am:is (typep id '(integer 0)))
      (cxx:delete-texture gl-widget id))))