1 (in-package :qt.tests)

2

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

4

5 (5am:test gluint

6 "GLuint conversion"

7 (qt:with-app ()

8 (let* ((texture (make-instance 'qt:pixmap))

9 (gl-widget (make-instance 'qt:glwidget))

10 (id (cxx:bind-texture gl-widget texture)))

11 (5am:is (typep id '(integer 0)))

12 (cxx:delete-texture gl-widget id))))

13

14

15 (5am:test glint

16 "Test GLint and GLenum conversion."

17 (qt:with-app ()

18 (let* ((texture (make-instance 'qt:pixmap))

19 (target 3553) ;(cffi:foreign-enum-value '%gl:enum :texture-2d))

20 (format 6409) ;(cffi:foreign-enum-value '%gl:enum :rgba))

21 (gl-widget (make-instance 'qt:glwidget))

22 (id (cxx:bind-texture gl-widget texture target format)))

23 (5am:is (typep id '(integer 0)))

24 (cxx:delete-texture gl-widget id))))