Sat Apr  3 14:50:36 CEST 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test qt.opengl conversions.
diff -rN -u old-qt.tests/cl-smoke.qt.tests.asd new-qt.tests/cl-smoke.qt.tests.asd
--- old-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:29.000000000 +0100
+++ new-qt.tests/cl-smoke.qt.tests.asd	2014-10-30 07:54:29.000000000 +0100
@@ -4,7 +4,8 @@
   :author "Tobias Rautenkranz"
   :license "GPL with linking exception"
   :description "Qt unit tests."
-  :depends-on (:cl-smoke.qt.test :cl-smoke.qt.gui :FiveAM :trivial-garbage :cl-smoke.smoke)
+  :depends-on (:cl-smoke.qt.test :cl-smoke.qt.gui :cl-smoke.qt.opengl
+               :FiveAM :trivial-garbage :cl-smoke.smoke)
 
   :components
   ((:module "src"
@@ -17,6 +18,7 @@
              (:file "qlist" :depends-on ("tests"))
              (:file "graphics-item" :depends-on ("tests"))
              (:file "overload" :depends-on ("tests"))
+             (:file "opengl" :depends-on ("tests"))
              (:file "gc" :depends-on ("tests" "object"))
              (:file "variant" :depends-on ("tests"))
              (:file "application" :depends-on ("tests"))
diff -rN -u old-qt.tests/src/opengl.lisp new-qt.tests/src/opengl.lisp
--- old-qt.tests/src/opengl.lisp	1970-01-01 01:00:00.000000000 +0100
+++ new-qt.tests/src/opengl.lisp	2014-10-30 07:54:29.000000000 +0100
@@ -0,0 +1,24 @@
+(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))))