Merge branch 'patch'

[sdlgit/SDL_perl.git] / t / opengl.t

diff --git a/t/opengl.t b/t/opengl.t
index 1c3eef6..4b51c0b 100644 (file)
--- a/t/opengl.t
+++ b/t/opengl.t
@@ -15,7 +15,7 @@ use SDL::Config;
 use Test::More;
 
 if ( SDL::Config->has('GL') && SDL::Config->has('GLU') ) {
-               plan ( tests => 3 );
+               plan ( tests => 4 );
 } else {
        plan ( skip_all => 'OpenGL support not compiled' );
 }
@@ -74,3 +74,5 @@ can_ok('main',qw/
        gluDisk
        gluPartialDisk
        gluSphere /);
+
+can_ok('main',qw/glXUseXFont/);