Sat Apr 3 14:50:36 CEST 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Test qt.opengl conversions.

--- old-qt.tests/cl-smoke.qt.tests.asd 2014-10-30 07:02:32.000000000 +0100

+++ new-qt.tests/cl-smoke.qt.tests.asd 2014-10-30 07:02:32.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"))

--- old-qt.tests/src/opengl.lisp 1970-01-01 01:00:00.000000000 +0100

+++ new-qt.tests/src/opengl.lisp 2014-10-30 07:02:32.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))))