Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fixed ticket 131

  • Loading branch information...
commit 825dd111e80ed3f47e8b7c58ca1c29df351827d6 1 parent 3b23ca9
@kthakore kthakore authored
Showing with 6 additions and 5 deletions.
  1. +1 −0  CHANGELOG
  2. +5 −5 t/opengl.t
View
1  CHANGELOG
@@ -1,6 +1,7 @@
Revision history for Perl extension SDL_perl.
* 2.405 TBD
+ - Conditional compile on glu.h header [kthakore] {ticket 131}
- Documentation cleanup [bricas, kthakore]
- Remove usesages of 'new SDL...' [bricas]
- Fixed Surface->set_pixels/get_pixel, proper offset depending on Bpp [FROGGS]
View
10 t/opengl.t
@@ -39,15 +39,13 @@ use strict;
use SDL::Config;
use Test::More;
+plan ( tests => 3 );
-if ( SDL::Config->has('GL') && SDL::Config->has('GLU') ) {
- plan ( tests => 3 );
-} else {
- plan ( skip_all => 'OpenGL support not compiled' );
-}
use_ok('SDL::OpenGL');
+skip ( 'No GL support found', 1) unless SDL::Config->has('GL');
+
can_ok('main', qw/
glBegin
glClear
@@ -80,6 +78,8 @@ can_ok('main', qw/
glVertex
glViewport /);
+skip ( 'No GLU support found', 1) unless SDL::Config->has('GLU');
+
can_ok('main',qw/
gluPerspective
gluBeginSurface
Please sign in to comment.
Something went wrong with that request. Please try again.